本帖最后由 作者 于 2007-1-23 1:12:56 编辑
dim ssobjs as acadselectionset ........此处为选择集赋值的代码,省略 if typeof ssobj(i) is acadline then msgbox("line") elseif typeof ssobj(i) is acadtext then msgbox("text") ..................... end if 也可以用objectname 属性来判断。这里是vb代码,自己转换下。 |