我有这个例程来防止表格在AutoCAD中爆炸。如何将其合并到上述例程中的重新ifined分解命令中?
提前非常感谢,罗博。
- (defun c:explode (/ oce ss)
- (princ "\nSelect objects to explode")
- (if
- (setq ss (ssget (list (cons 0 "~ACAD_TABLE"))))
- (progn
- (sssetfirst ss ss)
- (setq oce (getvar "cmdecho"))
- (setvar "cmdecho" 0)
- (command "_.explode")
- (setvar "cmdecho" oce)
- )
- )
- (princ)
- )
|