[帮助]缩放到句柄列表

littlepeterpan8 · 发表于 2022-7-5 16:29:21

我发现这个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)
)