Topic: Lengthen from Both Sides

[HasanCAD]

I am trying to modify a lisp for LEE to match my needs
http://www.lee-mac.com/midlen.html
Is there a way to lengthen an object from both sides and keep centerpoint as it is
This part which I modifed

Code: [Select]

(setq ent (ssname sel (setq idx (1- idx))))
      (setq lng (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))
      (setq lng (Rnd lng 50))
      (vl-cmdf "_.lengthen" "Total" lng ent)

[ymg]

hasan,

Use the delta option instead.

Code: [Select]

(defun c:test ()
   (setq en (car (entsel))
         sp (vlax-curve-getStartPoint en)
         ep (vlax-curve-getEndPoint en)
        lng (Rnd lng 50)
   )
   (vl-cmdf "_.lengthen" "Delta" lng sp ep "")
   (princ)
)


[HasanCAD]

Thanks ymg
I updated and it is very usefull

Code: [Select]

(defun c:BRL ( / en enfpoint enty extnd lngth strtpnt)
  (While
    (setq ent (entsel))   
    (setq enty (car ent))   
    (setq Lngth (vlax-curve-getdistatparam enty (vlax-curve-getendparam enty)))
    (if
      (> 12000 (setq *NewLength (cond ( (getint (strcat "\nWhat is New Length < " (itoa (setq *NewLength  (cond ( *NewLength  ) ( 7000 )))) " >?: "))) ( *NewLength  ))))
      (setq *NewLength *NewLength)
      (setq *NewLength (cond ( (getint (strcat "\nThere is no BAR more than 12000mm, Are you sure Bar length is < " (itoa (setq *NewLength  (cond ( *NewLength  ) ( 7000 )))) " >?: "))) ( *NewLength  )))
      )
    (setq extnd (/ (- *NewLength Lngth) 2))
    (setq StrtPnt (vlax-curve-getStartPoint enty))
    (setq EnfPoint (vlax-curve-getEndPoint enty))
    (vl-cmdf "_.Zoom" "Object" ent "")
    (vl-cmdf "_.lengthen" "Delta" extnd StrtPnt EnfPoint "")
    (vl-cmdf "_.Zoom" "Previous" )
   
    (princ)
    )
  )