zilong136 发表于 2024-3-7 17:33:05

如何自定义分解？


[*]如何优化下列代码，使其框选部分全部分解，如图所示。
[*](defun c:x ()
[*]    (prompt "\n x:分解")
[*](vl-cmdf "explode"(ssget) pause )
[*](princ)
[*])

ssyfeng 发表于 2024-3-7 17:46:42

试试这个：

(defun c:x (/ qaflags)
(prompt "\n x:分解")
(setq qaflags (getvar "qaflags"))
(setvar "qaflags" 1)
(vl-cmdf "explode" (ssget) "")
(setvar "qaflags" qaflags)
(princ)
)

zilong136 发表于 2024-3-7 18:48:52

ssyfeng 发表于 2024-3-7 17:46
试试这个：

恩，这个可以，就要这种效果。
页: [1]
查看完整版本: 如何自定义分解？