autocad二次开发(VBA)就这么简单

xuehong51

加一个画园的，凑数
1 h. w. p/ v* J9 d  h+ u1 }
Sub 画圆()
8 t4 R6 ^, o) A( x7 |6 PDim 圆心(2) As Double
Dim 半径 As Double
圆心(0) = 0: 圆心(1) = 0
半径 = ThisDrawing.Utility.GetReal("输入半径：")
Call ThisDrawing.ModelSpace.AddCircle(圆心, 半径)
End Sub
! L% c% p( p% w  w; T
[ 本帖最后由 xuehong51 于 2008-10-16 16:16 编辑 ]

hebei

坚决学不会，个人意见：每天画不同的图，总不能为一个图定做一个程序吧？
5 Y- g$ h& H2 j& T' C不过对会编程序的人还是佩服的，起码比我强。

slh8410

程序长了更晕！

wutan04

学习了，谢谢!!辛苦了