怎样分解选择集中的所有对象

freshclue · 发表于 2015-2-7 17:37:44

adSS 为已创建好的选择集，怎样把选择集adSS内的所有对象都分解？

freshclue · 发表于 2015-2-7 20:18:57

问题解决了，前来贴出来,供大家参考
ThisDrawing.sendcommand "explode" & vbCr & "(Handent """ & 选择集adSS中的对象.Handle & """)" & vbCr & vbCr

zzyong00 · 发表于 2015-2-7 20:41:49

on error resume next
选择集adSS中的对象.Explode

freshclue · 发表于 2015-2-7 21:37:40

选择集adSS中的对象.Explode 对有一些对象不好用，对块参照，多段线还可以

freshclue · 发表于 2015-2-8 15:47:22

比如机械版中的引线注释

Real_King · 发表于 2015-4-7 15:26:34

freshclue 发表于 2015-2-7 20:18
问题解决了，前来贴出来,供大家参考
ThisDrawing.sendcommand "explode" & vbCr & "(Handent """ & 选择集 ...

很不错！！

baneit319 · 发表于 2015-4-7 16:04:29

后面看不懂
"(Handent """ & 选择集adSS中的对象.Handle & """)" & vbCr & vbCr
好多"号，完全凌乱，请问"""是指前面加了一个空格吗？"(Handent """是指(Handent 后面加一个空格？

zzyong00 · 发表于 2015-4-7 16:28:18

有些"可以用chr(34)代替，就明白了
ThisDrawing.sendcommand "explode" & vbCr & "(Handent " & chr(34) & 选择集adSS中的对象.Handle & chr(34) & ")" & vbCr & vbCr

(Handent xxxxx)是lisp函数，当然有空格了

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

怎样分解选择集中的所有对象

点评