如何修改动态块内直线的长度？

kingerst

各位高手：
我把一条直线做成了动态块，两端节点可以移动。这样手动可以延长。
请问有什么方法可以用程序去修改延长？
我在块内查找到直线。并用下面的方法去修改了长度。长度变了。可动态节点依然没变。
(Vlax-Put-Property   item 'EndPoint  (Vlax-3d-Point '(100.0 0.0 0.0)))   )

(defun UpdatePts(EntName / );blk blkname endpoint get insertpt item pts startpoint)
(Setq blkname (Vlax-Get (setq get (Vlax-Ename->Vla-Object EntName)) 'Name ))
(setq insertPt (Vlax-Get get 'InsertionPoint ))
(setq blk (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'Item blkname))

(vlax-for item blk
  (cond
   ((= "AcDbLine" (Vlax-Get item 'ObjectName ))
    (setq itt item)
(Vlax-Put-Property   item 'EndPoint  (Vlax-3d-Point '(100.0 0.0 0.0)))   )
  )
)
  
)

tester005

我也正被这个问题困扰

edata

怎样用lisp程序取得动态块（这个动态块是图框）的长和宽
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795