多语言展示
当前在线:1909今日阅读:84今日分享:32

VBA 窗体与 CAD 图形交互

很多CAD大神在用VBA画图时,只能在窗体中输入数据,待关闭窗体后才能显示图形。图形与VBA数据无法实时变化!《如图问题》 希望我的这个经验能帮助这些大神。。。
工具/原料
1

AUTOCAD2007

2

VBA

方法/步骤
1

在CAD VBA中添加如图控件,并将USERFORM的 ShowModal属性改成False.

2

在command控件 Click 下输入如下代码:标注黑斜体代码为主要代码Private Sub CommandButton1_Click()   ‘Guilin HuDim a(0 To 2) As Doublea(0) = 1000a(1) = 1000a(2) = 0Call ThisDrawing.ModelSpace.AddCircle(a, TextBox1.Text)ThisDrawing.Application.UpdateEnd Sub

推荐信息