Change a length of line by feeding a new end point to the association list.

[Dayananda]

I can get the Association list of a line with  entget .

Please help me feed to new values to this list.

[mhupp]

to update entmod you need to get familiar with dxf codes. This simple lisps will dump to the command line. All entities follow a pattern.

 

;;----------------------------------------------------------------------------;;
;; Dump all DXF Group Data             
(defun C:DumpIt (/ ent)
  (while (setq ent (car (entsel "\nSelect Entity to Dump")))
    (mapcar 'print (entget ent '( "*")))
  )
  (princ)
)
;;----------------------------------------------------------------------------;;
;; Dump All Visual Lisp Methods and Properties for Selected Entity
(defun C:VDumpIt (/ ent)
  (while (setq ent (car (entsel "\nSelect Entity to Dump")))
    (vlax-Dump-Object (vlax-Ename->Vla-Object ent) t)
  )
  (princ)
)

 

 

entsel will return an entity name and point of seleciton. use that to see which endpoint your closest to. and use that to update with entmod and entupd.

;;----------------------------------------------------------------------------;;
;; Extend line to new point.
;; https://www.cadtutor.net/forum/topic/98936-change-a-length-of-line-by-feeding-a-new-end-point-to-the-association-list/
(defun c:EXTLINE ( / sel ent pick line sp ep newpt)
  (if (setq sel (entsel "\nSelect line near the end to extend: "))
    (progn
      (setq ent (car sel)
            pt (cadr sel)
            line (entget ent)
      )
      (if (= (cdr (assoc 0 line)) "LINE")
        (progn
          (setq sp (cdr (assoc 10 line)))
          (setq ep (cdr (assoc 11 line)))
          (if (< (distance pt sp) (distance pt ep))
            (setq newpt (getpoint ep "\nSpecify new endpoint: ")
                  line (subst (cons 10 newpt) (assoc 10 line) line)
            )
            (setq newpt (getpoint sp "\nSpecify new endpoint: ")
                  line (subst (cons 11 newpt) (assoc 11 line) line)
            )
          )
          (entmod line)
          (entupd ent)
        )
        (prompt "\nSelected entity is not a LINE.")
      )
    )
  )
  (princ)
)

Edited 1 hour ago by mhupp
Added notes to lisp