炸开嵌套块

尘缘一生

• ;;炸开嵌套块-----(一级)------
• ;;返回:炸开后选择集
• (defun sl-explo (en / e nam obj s ss x y z p0 p1 p2 plis d0 d1)
•   (setq e (entlast) obj (vlax-ename->vla-object en) x (vla-get-XScaleFactor obj) y (vla-get-YScaleFactor obj) z (vla-get-ZScaleFactor obj)
•     plis (e-box4 en) p1 (car plis) p2 (caddr plis) d0 (distance p1 p2) p0 (sl:mid p1 p2)
•   )
•   (vl-catch-all-apply '(lambda () (command "EXPLODE" en)))
•   (if (setq ss (ssget "p" '((0 . "INSERT"))))
•     (while (setq nam (ssname ss 0))
•       (if (/= (dxf1 nam 66) 1)
•         (sl-explo nam)
•         (sl-a2t (ssadd nam))
•       )
•       (ssdel nam ss)
•     )
•   )
•   (setq s (last_ent e))
•   (if (and (equal x y z) (/= x 1.0));等比块但比例不为1.0
•     (progn
•       (setq plis (ss9pt s nil) d1 (distance (car plis) (nth 8 plis)))
•       (if (/= d0 d1) (sl:scale s p0 (/ d0 d1)))
•     )
•   )
•   s
• )
• ;;-----------
• (defun c:tt ()
•   (sl-explo (car(entsel)))
• )
  

437271963

CAD里面有个命令：BURST，这个炸开块可以把块里面的属性变为文字，同时块里面“0”图层的图元改变图层与块相同。