zkq1212 发表于 2015-3-14 16:31:04

多重插入引用块的炸开

多重插入引用块的炸开的指令写的这么短的很少见。分享一下

(defun c:unlk (/ en ent);;解密块
(setq en (entsel "\nSelect Object to Unlock:"))
(if en
    (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
    "INSERT"
)
      (progn
(setq ent (entmakex
      (list '(0 . "INSERT")
   (assoc 2 ent)
   '(10 0.0 0.0 0.0)
      )
    )
)
(command "_.explode" (entlast))
(entdel en)
      )
    )
)
(princ)
)
请大师解释一下

yanchao316 发表于 2016-9-15 16:20:21

感谢分享..........

1028695446 发表于 2019-4-5 23:18:29

这个呢，首先要明白多重插入块的意义，首先，他也是有普通块构成的，然后普通块加入行列参数，这个程序就是重现插入那个普通块（可以直接用x炸开的那种），并删除多重插入块，本质上是块的替换，，但是这个会有bug，比如你旋转了原本的多重插入块，执行这个程序后，会发现旋转角度不对

tudou121 发表于 2019-11-5 08:40:59

感谢分享..........
页: [1]
查看完整版本: 多重插入引用块的炸开