没有对话框的重新编辑
可以在不打开对话框的情况下制作就地编辑块（选择嵌套块内部）的 lisp，我有类似的代码，但不适用于嵌套！提前致谢。#EDIT BLOCK IN PLACE WITHOUT DIALOG BOX#
(defun c:REDT()
(if(=(strlen(getvar 'refeditname))0)
(progn
(sssetfirst nil(ssget "_:S" '((0 . "INSERT"))))
(command "-refedit" "O" "" "")
)
(command "refCLOSE" "" "")
)
(princ)
)
你必须计算嵌套的级别。
页:
[1]