Community
@asim6687 wrote:....i need any lisp that perform the Lengthen command from both side of Polyline by Digits Entry.
....
In simplest terms, assuming you want to Lengthen both ends by the same amount, and if both ends are out in the open, something like this:
(defun C:LPBE (/ delta pline); = Lengthen Polyline Both Ends
(setq
delta (getdist "\nEnter delta length: ")
pline (car (entsel "\nSelect Polyline to Lengthen at Both Ends: "))
); setq
(command
"_.lengthen" "_delta" delta
(vlax-curve-getStartPoint pline)
(vlax-curve-getEndPoint pline)
""
); command
); defun
If either end might lie close enough to some other object that the other one might be "seen" by the Lengthen command, you would want to account for that somehow -- I can imagine a couple of different ways.
It could use various enhancements, such as selected-object-type control, locked Layer control, saving the length as a default and/or offering any current Lengthen-Delta value as a default, error handling, viability check [e.g. for an end arc segment that's of too small a radius for the delta value], etc.
Kent Cooper, AIA 
@asim6687 wrote:
for decrese need to select from both side. and units in negative
....
It sounds as though you mean that the routine requires you to select a Polyline at both ends in order to shorten it at both ends. Is that right? That's not the way it works for me. I select it once, anywhere, and if I gave it a negative "delta" value, both ends are shortened.
Kent Cooper, AIA
@asim6687 wrote:
....PLEASE HELP ME IN THIS ALSO
....
[In general, it's not a good idea to post the same question on more than one Forum -- people who find the question in one place may not be able to tell if it's been answered in another. Since this is a new topic, I posted a Reply on the linked thread.]
Kent Cooper, AIA
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
