炸开标注（三领集成源码）

尘缘一生

• ;;三领设计 V2.0 炸尺寸标注
• ;; modify by: 尘缘一生 QQ:15290049
• ;; ss 标注选择集-----（一级）-----
• (defun expl-dim (ss / num pk ss2 oas i sn pt1 pt2)
•   (setq num (atof (substr (getvar "ACADVER") 1 4)))
•   (if (= nil (getcname "tpscale")) ; 非天正图纸，炸开
•     (progn
•       (setq pk (get-box ss))
•       (setq ss2 (entlast))
•       (cond
•         ((<= num 15.1) ;低于CAD2002
•           (setq oas (getvar "dimaso"))
•           (setvar "dimaso" 1) ;设为关联标注
•         )
•         ((> num 15.1) ;高于CAD2002
•           (setq oas (getvar "dimassoc"))
•           (setvar "dimassoc" 1)
•         )
•       )
•       (repeat (setq i (sslength ss))
•         (setq sn (ssname ss (setq i (1- i))))
•         (command "EXPLODE" sn)
•       )
•       (cond
•         ((<= num 15.1)
•           (setvar "dimaso" oas)
•         )
•         ((> num 15.1)
•           (setvar "dimassoc" oas)
•         )
•       )
•       (setq ss (last_ent ss2))
•       (setq ss2 (entlast))
•       (repeat (setq i (sslength ss))
•         (setq sn (ssname ss (setq i (1- i))))
•         (if (= (dxf1 sn 0) "MTEXT")
•           (command "EXPLODE" sn)
•         )
•       )
•       (setq ss (last_ent ss2)) ;文字炸开后
•       (setq ss2 (ssadd))
•       (repeat (setq i (sslength ss))
•         (setq sn (ssname ss (setq i (1- i))))
•         (if (= (dxf1 sn 1) "0")
•           (ssadd sn ss2)
•         )
•       )
•       (setq ss (ssdiff ss ss2)) ;;差集
•       (if (> (sslength ss2) 0) (sl:-erase ss2)) ;;删除数值为0的标注
•       (sl-wzgz ss) ;;文字归正集成
•       (setq pt1 (car pk) pt2 (cadr pk))
•       (setq ss (ssget "c" pt1 pt2))
•       (ssduppe ss) ;;清理、合并重复实体集成
•     )
•   )  
• )
  

三领新版下载:  三领设计V2.0- date 2022-9-13
链接：https://pan.baidu.com/s/1Be_V3xaqIdVhaBKUYonx2Q
提取码：fyr6

雨的节奏

分解就不要用command了嘛，，，，用vla-explode....然后自己写一个方法，，得到炸开后的东西，完美出锅