AutoCAD 画圆的VBA代码
我想在AutoCAD里用VBA来控制画一个圆：直径10，坐标(0,0,0)。这里就想请各位高人给一段以上的VBA代码。十分感谢！...
我想在AutoCAD里用VBA来控制画一个圆：直径10，坐标(0,0,0)。这里就想请各位高人给一段以上的VBA代码。十分感谢！
展开
1个回答
展开全部
VBA帮助上就有的，很简单:
Sub Example_AddCircle()
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5# '#半径5
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ZoomAll
End Sub
Sub Example_AddCircle()
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
radius = 5# '#半径5
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ZoomAll
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
华天软件
2025-03-05 广告
在线CAD绘图已成为我们山东山大华天软件有限公司服务的重要一环。我们凭借先进的技术，为用户提供高效便捷的在线绘图平台。该平台支持多种CAD文件格式，功能全面且操作简便，用户可随时随地通过浏览器进行图纸设计、编辑和协作。无论是建筑设计、机械设...
点击进入详情页
本回答由华天软件提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
