尘缘一生 发表于 2014-5-24 20:29:26

！自动整理图第一篇！

本帖最后由 尘缘一生 于 2014-5-24 20:30 编辑

自动整理图，炸开，清理等!

希望大家补充更多，打开图，就自动清理完成所有的，别浪费设计者宝贵时间！(defun C:T-EXPLODE(/ s p n nam)
;; 炸开属性块，属性转文字
   (setq s nil)
   (if (setq s(ssget "X" (list (cons 0 "INSERT")(cons 66 1))))
      (progn   
          (vl-load-com)
          (setq p(sslength s))
          (setq n 0 )
          (undobegin)         
          (setq p(- p 1))
             (while (<= n p)
               (a2t (ssname s n))            
               (setq n (+ n 1))
               (undoend)
            )
      )
   )
(setq s nil)
;; 炸开各种块、MTEXT字体，，，，，，，，，，
(setq s nil)
(if (setq s(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))   
   (progn      
       (setq p(sslength s))
      (setq n 0 )
      (setq p (- p 1))
         (while (<= n p)
             (setq nam(ssname s n))
             (command "EXPLODE" nam "")
             (setq n (+ n 1))
            )
      )
    )
(command "_.PURGE" "a" "*" "N")
(command "regenall")
)

SunSpring 发表于 2014-5-24 21:24:57

全部炸开以后怎么编辑，这么做不太合适吧，有些用块还是很方便的。

尘缘一生 发表于 2014-5-25 00:36:18

SunSpring 发表于 2014-5-24 21:24 static/image/common/back.gif
全部炸开以后怎么编辑，这么做不太合适吧，有些用块还是很方便的。

正相反啊，炸开才能编辑。

lsjj 发表于 2014-5-25 09:03:51

(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))
請問TCH*是啥?
(command "EXPLODE" nam "")可以少一組""

尘缘一生 发表于 2014-5-25 09:34:05

lsjj 发表于 2014-5-25 09:03 static/image/common/back.gif
(ssget "X" (list (cons 0 "MTEXT,DIM*,TCH*,INSERT"))))
請問TCH*是啥?
(command "EXPLODE" nam "")   ...

天正实体啊

fl202 发表于 2014-5-28 08:56:59

好好的块，干嘛炸开？ 块不炸开也可以编辑的。

zhangrunze 发表于 2024-3-13 14:17:44

正好适合工作使用呢~
底图正好要虚化处理，不再开五颜六色的。
感谢分享~
页: [1]
查看完整版本: ！自动整理图第一篇！