AUTOCAD_VBA的书较少,抛出一例

!!!橄榄树

Private Sub CommandButton1_Click()
Call 画圆1
End Sub

Private Sub CommandButton2_Click()
Unload Me
End
End Sub
Public Sub 画圆1()
Dim cir1 As AcadCircle
Dim center1(0 To 2) As Double
Dim r1 As Double

center1(0) = Val(TextBox1.Text): center1(1) = Val(TextBox2.Text): center1(2) = 0
r1 = Val(TextBox3.Text)
Set cir1 = ThisDrawing.ModelSpace.AddCircle(center1, r1)
If ComboBox4.Text = "红" Then
    cir1.color = 1
ElseIf ComboBox4.Text = "黄" Then
    cir1.color = 2
ElseIf ComboBox4.Text = "绿" Then
    cir1.color = 3
Else: cir1.color = 7
End If

cir1.Update
'ZoomAll
ThisDrawing.Regen acAllViewports
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox4.AddItem "黄"
ComboBox4.AddItem "绿"
ComboBox4.AddItem "红"
End Sub

[此贴子已经被作者于2006-10-6 15:43:03编辑过]

lotustower

QUOTE:

以下是引用!!!橄榄树在2006-10-6 15:34:01的发言：

Private Sub CommandButton1_Click()
Call 画圆1
End Sub

 

AUTOCAD_VBA的書較少,抛出一例 , 這是『 Office圖書品評 』  !!!

 

AutoCAD VBA二次开发教程

http://www.huachu.com.cn/itbook/itbookinfo.asp?lbbh=BF011032617

 

出版社　： 清华大学出版社 系列名　：实例通系列 作者　　： 张帆/ 郑立楷/ 卢择临 等/ 浏览次数：5929 次 出版日期：2006年1月 版别版次：2006年1月第1版第1次印刷

本书勘误：有(0)条勘误 综合评价：   (3)条评论 国标编号：ISBN 7-302-11982-1 条形码　：9787302119821 字数　　：773千字　　印张：31 印数　　：1-3500册　　页数：485 开本　　：185*260 附带物　：

lotustower

AutoCAD VBA开发精彩实例教程

http://www.china-pub.com/computers/common/info.asp?id=16228

shuiyuan

不错，我喜欢

yachtz

哪里有免费的下载吗？

hhzjxss

是呀，要是有免费的下载多好吧，不过还是要谢谢提供信息！

lyj141224

ding

biaotiger1

前两天还在同事电脑上看CAD的vba，不过不知道对象，方法，属性啥的，不知道该干啥能干啥

jfanrtae

对函数还是不怎么懂

jfanrtae

多谢楼主了,