dl.lzc 发表于 2009-11-10 06:34

在CAD模型空间里画一个圆

本帖最后由 作者 于 2009-11-11 11:51:43 编辑 <br /><br /> <p>Sub Example_AddCircle()<br/>&nbsp;&nbsp;&nbsp; ' 这是在模型空间画一个圆的例子.<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Dim circleObj As AcadCircle<br/>&nbsp;&nbsp;&nbsp; Dim centerPoint(0 To 2) As Double<br/>&nbsp;&nbsp;&nbsp; Dim radius As Double<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' 定义圆<br/>&nbsp;&nbsp;&nbsp; centerPoint(0) = 0# 'X坐标<br/>&nbsp;&nbsp;&nbsp; centerPoint(1) = 0# 'Y坐标<br/>&nbsp;&nbsp;&nbsp; centerPoint(2) = 0# 'Z坐标<br/>&nbsp;&nbsp;&nbsp; radius = 5# '半径<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' 在模型空间里画圆<br/>&nbsp;&nbsp;&nbsp; Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)<br/>&nbsp;&nbsp;&nbsp; ZoomAll<br/>&nbsp;&nbsp;&nbsp; <br/>End Sub</p><p></p>

monkeylzx 发表于 2011-4-2 13:09

这是什么意思？没看懂呢。
页: [1]
查看完整版本: 在CAD模型空间里画一个圆