vernonlee 发表于 2022-7-6 23:39:12

帮助：LISP删除所有文本，

删除。。。。。。。。。。。。。。

ttray33y 发表于 2022-7-6 23:57:18

我能想到的一个解决方案是为带有图案填充等的块创建一个更新的块。
然后立即批量重新定义这些块。
你介意把你的画和你提到的那些方块贴在这里吗。

vernonlee 发表于 2022-7-7 00:10:18

 
嗨，兄弟。我不太明白你的问题。
 
为了澄清，我正在寻找一个通过LISP清理绘图例程。
 
我已经有了删除尺寸和图案填充的LISP。我仍然缺少的是删除LISP的文本、多行文字和引线。
 
希望澄清。

ttray33y 发表于 2022-7-7 00:37:14

尝试此bro，但它不会删除块内的嵌套对象。

(defun c:test2(/ cntr eset en cnt)
(setvar "cmdecho" 0)
(setq eset
   (ssget"X"
   (list
       (cons -4 "<OR")
         (cons 0 "ARC")
         (cons 0 "ATTRIBUTE")
         (cons 0 "CIRCLE")
         (cons 0 "ELLIPSE")
         ;(cons 0 "INSERT")
         (cons 0 "LINE")
         (cons 0 "LWPOLYLINE")
         (cons 0 "MLINE")
         (cons 0 "MTEXT")
         (cons 0 "POINT")
         (cons 0 "POLYLINE")
         (cons 0 "SOLID")
         (cons 0 "TEXT")
         (cons 0 "TRACE")
         (cons 0 "XLINE")
   (cons 0 "LEADER")
   (cons 0 "HATCH")
       (cons -4 "OR>")
   )
   )
)
(if (and eset (> (sslength eset) 0))
   (progn
   (setq cnt(sslength eset))
   (command "ERASE" eset "")
   (alert (strcat "Erased " (itoa cnt) " Entities."))
   )
)
(setvar "cmdecho" 1)
(princ)
)
(princ "\n Type test2.")
(princ "\nttray33y CADTutor.")

 
有关从嵌套块中删除对象的信息，请参见下面的链接
 
http://www.cadtutor.net/forum/showthread.php?69075-删除嵌套块中的图元

vernonlee 发表于 2022-7-7 00:50:33

 
再次感谢您的努力。我真的需要一个深度嵌套的层次，因为我遇到的图纸有很多块中的块
页: [1]
查看完整版本: 帮助：LISP删除所有文本，