如何自定义分解？

zilong136

[size=12.6825pt]

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

ssyfeng

试试这个：

2. (defun c:x (/ qaflags)
   
3.   (prompt "\n x:分解")
   
4.   (setq qaflags (getvar "qaflags"))
   
5.   (setvar "qaflags" 1)
   
6.   (vl-cmdf "explode" (ssget) "")
   
7.   (setvar "qaflags" qaflags)
   
8.   (princ)
   
9. )

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

zilong136

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

恩，这个可以，就要这种效果。