如何修改动态块内直线的长度？
各位高手：我把一条直线做成了动态块，两端节点可以移动。这样手动可以延长。
请问有什么方法可以用程序去修改延长？
我在块内查找到直线。并用下面的方法去修改了长度。长度变了。可动态节点依然没变。
(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))) )
)
)
) 我也正被这个问题困扰 怎样用lisp程序取得动态块（这个动态块是图框）的长和宽
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109123&fromuid=338795
页:
[1]