换个角度问一下

freshairfly · 发表于 2003-3-28 12:17:00

我问了：
“如何提取剖面线？？”
“如何让一个对象处于选中状态？？”
第二个问题其实是第一个问题的延伸
  斑竹说把剖面线分解后读取
因为剖面线没有explode这个方法
所以斑竹说用SendCommand
但这又有个问题：需要用户来选中剖面线！！
因为我要处理大量的剖面线
所以让用户来选择，是不可行的
  于是我想先选中剖面线，再SendCommand
于是问题就变为：如何让一个对象处于选中状态？？”
  斑竹，如果不能分解读取剖面线，那又能怎么办呢
难道要我自己添加剖面线？？？？
  郁闷ing……

mccad · 发表于 2003-3-28 12:21:00

'转换图元函数
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 · 发表于 2003-3-28 12:22:00

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

换个角度问一下

发表回复

精选推荐