xuehong51 发表于 2008-10-16 16:12

加一个画园的，凑数:)

Sub 画圆()
Dim 圆心(2) As Double
Dim 半径 As Double
圆心(0) = 0: 圆心(1) = 0
半径 = ThisDrawing.Utility.GetReal("输入半径：")
Call ThisDrawing.ModelSpace.AddCircle(圆心, 半径)
End Sub

[ 本帖最后由 xuehong51 于 2008-10-16 16:16 编辑 ]

hebei 发表于 2008-10-16 16:18

坚决学不会，个人意见：每天画不同的图，总不能为一个图定做一个程序吧？
不过对会编程序的人还是佩服的，起码比我强。:victory: :victory: :D

slh8410 发表于 2009-1-5 12:11

程序长了更晕！:victory:

wutan04 发表于 2009-6-1 16:50

学习了，谢谢

学习了，谢谢!!辛苦了
页: 1 [2]
查看完整版本: autocad二次开发(VBA)就这么简单