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

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

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

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

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

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

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

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

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

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

比如机械版中的引线注释

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

很不错！！

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

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

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

有些"可以用chr(34)代替，就明白了
ThisDrawing.sendcommand "explode" & vbCr & "(Handent " & chr(34) & 选择集adSS中的对象.Handle & chr(34) & ")" & vbCr & vbCr
(Handent xxxxx)是lisp函数，当然有空格了

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

发表回复

精选推荐