Question

用CAD的lisp命令绘制图块的外框

RT。功能类似MSteel结构工具箱中的“绘外框”。
在CAD中选择的块外围绘制一个矩形框，然后结束命令。本来是用command调用MSteel结构工具箱命令的，但是这个命令运行完后不能结束。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏10（财富值+成长值）

Answer 1

;试用以下程序
(defun c:kjxwk()
(vl-load-com)
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0) (setvar "osmode" 0)
(command "_undo" "be")
(while (setq ssa (ssget ":S" '((0 . "INSERT"))))
(setq ent (ssname ssa 0)
obj (vlax-ename->vla-object ent)
)
(vla-GetBoundingBox obj 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
p2 (vlax-safearray->list p2)
)
(command "_rectang" p1 p2)
(command "_chprop" (entlast) "" "c" 1 "")
)
(command "_undo" "e")
(setvar "osmode" os) (setvar "cmdecho" cm)
(princ)
)