[求助]请教高手：怎获得到thisdrawing.sendcommand绘制的autocad对象

mycad

编程时遇到一个问题：

怎样可以获得用thisdrawing.sendcommand画的CAD实体（图元）?

比如：

 sub drawcir（）

     Dim circleOBJ As AcadCircle

    ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf

     ' 怎样把  ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf 绘制的圆

    '  赋给 circleOBJ ？

end sub

烟雨.江南

试试下面的语句。不过如果命令行创建实体没有成功，给circleOBJ 赋值会出错。

sub drawcir（）

     Dim circleOBJ As AcadCircle

dim i%

i=ThisDrawing.ModelSpace.Count

    ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf "0,0 100,100 100,50 "

     ' 怎样把  ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf 绘制的圆

    '  赋给 circleOBJ ？

Set circleOBJ = ThisDrawing.ModelSpace(I)

end sub

mycad

楼上的只能解决一个圆的问题。

wylong

把Dim circleOBJ As AcadCircle改成Dim circleOBJ As AcadEntity