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

mycad 发表于 2009-10-27 07:28:00

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

编程时遇到一个问题：
怎样可以获得用thisdrawing.sendcommand画的CAD实体（图元）?
比如：
sub drawcir（）
   Dim circleOBJ As AcadCircle
    ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf
   ' 怎样把ThisDrawing.SendCommand "circle" & vbCrLf & "3p" & vbCrLf 绘制的圆
    '赋给 circleOBJ ？
end sub

烟雨.江南 发表于 2009-10-27 09:07:00

试试下面的语句。不过如果命令行创建实体没有成功，给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 发表于 2009-10-27 09:22:00

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

wylong 发表于 2009-10-27 09:26:00

把Dim circleOBJ As AcadCircle改成Dim circleOBJ As AcadEntity

查看完整版本: [求助]请教高手：怎获得到thisdrawing.sendcommand绘制的autocad对象