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

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

编程时遇到一个问题：
怎样可以获得用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对象

发表回复

精选推荐