用thisdrawing.sendcommand画的CAD图元能返回给一个变量吗?

ahlzl

如题.用thisdrawing.sendcommand(_circle 2,2,0 4 )画的圆能返回给一个变量吗?

莫名

用SelSet.Select acSelectionSetLast，构造新选择集SelSet，然后将选择集的第一个实体赋给实体变量即可。

efan2000

通过比较模型空间的实体的数目差异来判断。

2. 
   
3. Sub test()
   
4.    
   
5.     ' 返回当前模型空间的实体数目
   
6.     Dim n As Long
   
7.     n = ThisDrawing.ModelSpace.Count
   
8.    
   
9.     ' 调用Circle命令绘制圆
   
10.     ThisDrawing.SendCommand "circle 2,2,0 4 "
    
11.    
    
12.     ' 如果执行成功，则会生成新的实体
    
13.     Dim circleObj As AcadCircle
    
14.     If ThisDrawing.ModelSpace.Count > n Then
    
15.         Set circleObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
    
16.         circleObj.Color = acRed
    
17.     End If
    
18. End Sub
    

<br /> Sub test()<br />     <br />     ' 返回当前模型空间的实体数目<br />     Dim n As Long<br />     n = ThisDrawing.ModelSpace.Count<br />     <br />     ' 调用Circle命令绘制圆<br />     ThisDrawing.SendCommand "circle 2,2,0 4 "<br />     <br />     ' 如果执行成功，则会生成新的实体<br />     Dim circleObj As AcadCircle<br />     If ThisDrawing.ModelSpace.Count > n Then<br />         Set circleObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)<br />         circleObj.Color = acRed<br />     End If<br /> End Sub<br />

h_lon

个人看法，efan2000兄的方法更好。

my_computer

我个人认为直接使用vba的画线功能更好。不会在命令行留下痕迹。