LENGTH MATCH( POLYLINES)
@ВeekeeCZ wrote:
....
... (cond ((= (cdr (assoc 0 (entget en))) "LWPOLYLINE") (command "_.AREA" "_e" en) (getvar 'PERIMETER)) ((vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))))) ....
That AREA/PERIMETER part is there because the distance along an object at its endpoint returns 0 if it's closed, which can only happen, among the object types allowed in the routine, with a Polyline. There's a simpler way to get around that problem, without involving the Area command and the Perimeter System Variable -- get the distance at the end Parameter instead of at the endpoint. That returns the correct distance even if it's closed, and avoids the problem of using VLA Properties that 'Length will get it for some object types, but not for all types. And it works for any finite-length kind of (vlax-curve)-class object [however unlikely it may be that you would ever want to match the length of some of them]. Something like this [lightly tested], which also lets you try again if you either miss or pick the wrong kind of thing:
(vl-load-com)
(defun c:MatchLength (/ en)
(while
(not
(and
(setq en (car (entsel "\nSelect source object: ")))
(wcmatch (cdr (assoc 0 (entget en))) "LINE,*POLYLINE,ARC,SPLINE,ELLIPSE,CIRCLE")
); and
);not
(prompt "\nNothing selected, or not a finite-length object with linearity.")
); while
(command "_.LENGTHEN" "_T"
(vlax-curve-getDistAtParam en (vlax-curve-getEndParam en))
); command
(princ)
); defun
EDIT: I took out the wait-for-User-input-until-the-command-is-finished part at the end. That's appropriate if a routine changes something earlier [the current Layer, or some System Variable setting(s)] that you want to have set back, but not until after the command is done. In this case, there's nothing to reset, and it can just leave you in the command at the end.
Kent Cooper, AIA 
@ВeekeeCZ wrote:
....
Also... I can see that an end param of LINE is its length. But - you know what is the actual value of end param of ARC?
BTW. The difference of kind of closing those two rectangles is significant....
The Parameter value along an Arc is the angle in radians from the center to the location along it, the start and end points being defined as proceeding in a CCW direction, regardless of the direction in which the Arc was drawn.
Yes, many routines are affected by whether a Polyline is closed as AutoCAD defines that, or merely looks closed by having its end vertex at the same place as its start vertex.
Kent Cooper, AIA
@ВeekeeCZ wrote:
....
... (command "_.LENGTHEN") (princ "\nSelect source object: ") (command PAUSE "_T" (getvar 'PERIMETER)) ...
I wouldn't have guessed the length of the selected object in that circumstance would go into the PERIMETER System Variable, but sure enough it does -- provided you actually pick something with length at the pause. It fails if you miss, or pick on an inappropriate object [well, it keeps working, but it uses whatever is the latest value on whatever you then pick (and any further things), rather than taking the length from that to apply to other things].
Kent Cooper, AIA
@Anonymous wrote:
....but my drawing the both are not matching,because both end are (one end is bga and anchor end is connector).so both end are matching...i need the lisp for length match in-between.
I'm not sure I understand correctly -- can you post a sample drawing or image with before and after conditions?
If you mean that you want to apply Lengthen to both ends of the same object by the same amount, without needing to select at both ends, try this.
Kent Cooper, AIA