飞越迷雾 发表于 2009-7-1 10:10:00

怎样提取面域对象？

<p>我在cad中画出封闭的图形，然后用cad的命令生成面域。现在想用vb通过程序提取cad窗体中选择的面域，该怎么操作呀？我查帮助，面域的属性是：</p><p>RetVal = object.AddRegion(ObjectList) </p><p>其中这个ObjectList这个参数数组该如何确定。我是先在cad中画图，生成面域。不是用程序生成的。然后用程序在cad窗体中选择这个面域。但我不知怎么确定这个数组，因为生成的面域不只一个，有直线也有曲线。这个该怎么确定。恳请会的朋友帮帮忙，小弟谢过了先！！</p>

雪山飞狐_lzh 发表于 2009-7-1 11:49:00

<p>提取cad窗体中选择的面域？</p><p>和AddRegion方法无关</p><p>用选择集或GetEntity获取</p>

飞越迷雾 发表于 2009-7-1 15:53:00

<p>那这个选择集怎么选呢？</p><p>还有，我本来是想把选择的面域进行一个布尔运算的。这个该如何操作？面域1减去面域2等等。如果我不用程序操作布尔运算，在cad里完成，然后选择这运算后的面域也是要用选择集嘛？恳请版主给点提示。谢谢啦</p>

雪山飞狐_lzh 发表于 2009-7-1 17:18:00

<p>不太明白你要做什么，如果只是选择集的话</p><p>Sub tt()<br/>On Error Resume Next</p><p>&nbsp;&nbsp;&nbsp; Dim ss As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SelectionSets("Test").Delete<br/>&nbsp;&nbsp;&nbsp; Set ss = ThisDrawing.SelectionSets.Add("Test")<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim ft(0) As Integer, fd(0)<br/>&nbsp;&nbsp;&nbsp; ft(0) = 0: fd(0) = "Region"<br/>&nbsp;&nbsp;&nbsp; ss.Select acSelectionSetAll, , , ft, fd</p><p>End Sub</p>
页: [1]
查看完整版本: 怎样提取面域对象？