使用Refedit的LISP

Bill Tillman · 发表于 2022-7-6 06:37:28

我又回到了我的全自动项目中，伙计们，用户们抱怨一些行的细节没有被裁剪。所讨论的线位于插入的块的内部。这是一项简单的手工任务，但我的项目是完全自动化的。。。不允许用户输入，必须完全由代码完成。以下是我所拥有的：


(command "._INSERT" my_block (polar pt 0 5) "" "" "")
(setq b1 (entlast))
(command "._REFEDIT" b1 "O" "A" "N")
  (command "._TRIM" "nea" (polar pt pi 5.78125)
                       "nea" (polar pt (dtr 285.0547) 2.46875) ""
                              "nea" (polar pt (dtr 214.3396) 2.75) "")
  (command "._REFCLOSE" "S")

但这会导致以下错误消息：

hmsilva · 发表于 2022-7-6 06:59:29

也许是这样

copy


(setq pt (getpoint))
(command "._INSERT" my_block (polar pt 0 5) "" "" "")
(setq b1 (entlast))
(setq ss (ssadd b1))
(sssetfirst ss ss)
(command "._-REFEDIT" "O" "A" "N")
  (command "._TRIM" "nea" (polar pt pi 5.78125)
         "nea" (polar pt (dtr 285.0547) 2.46875) ""
         "nea" (polar pt (dtr 214.3396) 2.75) "")
  (command "._REFCLOSE" "S")