两个多行文本，只能分解一个。

jkl111 · 发表于 2022-4-14 09:43

(defun c:tjzf()
(vl-load-com)
(setq ss (ssget '((8 . "元件名称标注"))))
(or ss (setq ss (ssadd)))
(setq n 0 nn (sslength ss) mpl '())
(while (< n nn)

(setq en (ssname ss n))
(setq n (1+ n));;
           (vl-cmdf  "_.explode" en )
            (setq jdent (ssget "_P") )
            (vl-cmdf  "_.explode" jdent )

)
)
运行后，多行文本只能分解“DN300”字样的，请帮助。谢谢。图已上传

jkl111 · 发表于 2022-4-14 12:36

QAFLAGS是个未公布的变量，用来控制LISP中使用EXPLODE炸开一个选择集的时候的表现。
如果QAFLAGS＝0，那么用LISP执行
(command "explode" ss "")的时候仅仅能炸开选择集的第一个实体，其他实体炸不了.
如果QAFLAGS＝1，可以炸开选择集所有实体。
这个变量不影响标准的EXPLODE命令的执行。

jkl111 · 发表于 2022-4-14 12:20

(initcommandversion 2)
(command "explode" (ssget) "")

jkl111 · 发表于 2022-4-14 12:37

(setvar "QAFLAGS" 1) (command "_.explode" (ssget "_X") "") (setvar "QAFLAGS" 0)

zhangcan0515 · 发表于 2022-11-15 17:12

jkl111 发表于 2022-4-14 12:36
QAFLAGS是个未公布的变量，用来控制LISP中使用EXPLODE炸开一个选择集的时候的表现。
如果QAFLAGS＝0，那么 ...

谢谢详细的讲解很有收获

ZYX2129 · 发表于 2022-12-4 16:18

谢谢详细的讲解很有收获

账号		自动登录	找回密码
密码			注册

[讨论] 两个多行文本，只能分解一个。

本帖子中包含更多资源