11223344 发表于 2014-7-6 00:16:38

分解指定图层的所有块，求指教。

(command "explode" (ssget "x" (list (cons 8 "GF_BLOCK"))))
此代码只能分解一个，求指点

reyun 发表于 2014-7-6 01:18:47

加循环，逐个分解。

ZZXXQQ 发表于 2014-7-6 08:15:39

(defun c:tt ()
(setvar "CMDECHO" 0)
(while (setq ss (ssget "X" (list '(0 . "INSERT") (cons 8 "GF_BLOCK"))))
(command "QAFLAGS" 1 "_.EXPLODE" ss "" "QAFLAGS" 0)
)
(setvar "CMDECHO" 1)
(princ)
)

reyun 发表于 2014-7-6 21:52:34

谢谢Z版，一直都不知道有这个变量呢，感谢感谢！

xyp1964 发表于 2014-7-6 22:04:03

本帖最后由 xyp1964 于 2014-7-6 22:05 编辑

(xyp-explodeQf(ssget "x" '((0 . "insert") (8 . "GF_BLOCK"))))
页: [1]
查看完整版本: 分解指定图层的所有块，求指教。