Lee Mac 发表于 2022-7-6 08:35:51

 
是的，要保留原始对象，只需注释该行：
 
如果您也不希望插入结果块，请更改：
 
(if (setq n (entmake '((0 . "ENDBLK"))))
   (entmake
       (list
          '(0 . "INSERT")
         (cons 02 n)
         (cons 10 (trans p 1 0))
       )
   )
)至：
 
5
页: 1 [2]
查看完整版本: 创建块