没有对话框的重新编辑

jim78b · 发表于 2022-9-15 00:07:24

可以在不打开对话框的情况下制作就地编辑块（选择嵌套块内部）的 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)
)

mhupp · 发表于 2022-9-15 01:45:06

你必须计算嵌套的级别。

[编程交流] 没有对话框的重新编辑

发表回复

精选推荐