我总是使用命令“exoffset”,我想通过lisp跳过“T”或[通过]。
命令:exoffset
设置:距离=通过,层=源,间隙类型=正常
指定偏移距离或[通过]:T
选择要偏移的对象或[选项/撤消]:
找到1个对象。
Shift+Pick for multiple;按住Ctrl键并拾取以删除源对象。
我怎样才能做到这一点。谢谢
- (defun C:test ()
- (command (C:exoffset) "T"
- (while (= 1 (getvar "cmdactive"))
- (command pause))
- )
- (princ)
- )
|