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 static/image/common/back.gif
问题解决了，前来贴出来,供大家参考
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函数，当然有空格了
页: [1]
查看完整版本: 怎样分解选择集中的所有对象