[帮助]缩放到句柄列表
我发现这个Lisp程序很简单，但很好，任何人都可以帮我编辑多一点请！？我有一个句柄ID列表，如A.BCD
我想用这个lisp来表示单HandleID，也可以表示多HandleID^^
提前谢谢！！！！
(defun c:zh ( / YourHandle ll ur )
(vl-load-com)
(setq YourHandle (getstring "\nEnter Handle: "))
(if (handent YourHandle)
(progn
(vla-getboundingbox (vlax-ename->vla-object (handent YourHandle)) 'll 'ur)
(vla-zoomwindow (vlax-get-acad-object) ll ur)
(sssetfirst nil (ssadd (handent YourHandle)))
)
(princ "\nHandle not in drawing")
)
(princ)
) 循环遍历列表中的每个成员，并将其作为参数传递给函数。
问候
沃尔夫冈 最好使用LM:ListBox和LM:SSBoundingBox函数。 非常感谢！！！
页:
[1]