换个角度问一下

freshairfly

我问了：

“如何提取剖面线？？”
“如何让一个对象处于选中状态？？”

第二个问题其实是第一个问题的延伸

  斑竹说把剖面线分解后读取
因为剖面线没有explode这个方法
所以斑竹说用SendCommand
但这又有个问题：需要用户来选中剖面线！！
因为我要处理大量的剖面线
所以让用户来选择，是不可行的
  于是我想先选中剖面线，再SendCommand
于是问题就变为：如何让一个对象处于选中状态？？”

  斑竹，如果不能分解读取剖面线，那又能怎么办呢
难道要我自己添加剖面线？？？？
  郁闷ing……

mccad

'转换图元函数

Public Function axEnt2lspEnt(entObj As AcadEntity) As String
    Dim entHandle As String
    entHandle = entObj.Handle
    axEnt2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
End Function

这样就可以将AX中的对象通过以上函数转换为可以直接用于SendCommand方法的对象了。

mccad

http://www.mjtd.com/a2/list.asp?id=30

freshairfly