图4.4 参数化楼梯示意图
其主要代码如下:Private Sub CommandButton1_Click()
Dim varRet As Variant
varRet=ThisDrawing Utility.GetPoint ( _ ,"输入插入点: " )
p0(0)=CStr(varRet(0))
p0(1)=CStr(varRet(1))
p0(2)=CStr(varRet(2))
p1(0)=p0(0)+2000
p1(1)=p0(1)
p1(2)=p0(2)
for i=1to n
x=i+1
px(0)=p1(0)+(i-1)*b
px(1)=p0(1)-i*h
px(2)=p0(2)
y=n+i+1
py(0)=p1(0)+i*b
py(1)=p0(1)-i*h
py(2)=p0(2)
end for
pe(0)=p1(0)-sqr(b*b+h*h)*q/b-b*(h-100)/h
pe(1)=p1(1)-100
pe(2)=p0(2)
f=n+1
pg(0)=pf(0)-100*h/b
pg(1)=pf(1)-100
pf(2)=p0(2)
Set Culine = ThisDrawing.ModelSpace.AddLine(p1, p2)
for i=2to n+1
x=i+n
y=i+1
Set Culine = ThisDrawing.ModelSpace.AddLine(pi, px)
Set Culine = ThisDrawing.ModelSpace.AddLine(px, py)
End for
Set Culine = ThisDrawing.ModelSpace.AddLine(pe, pg)
End Sub
参数化绘图大大提高了我们的作图效率,使我们有了适合于我们专业的工具,不在拘泥于一点一线的原始方式。它有利于绘制出高质量的图。目前参数化绘图依然是我们二次开发的主要方向之一,我们将不断开发出各种各样的参数化绘图工具。
(2)专业辅助图库开发[11]
由于计算机可以方便的对大量的设计资料进行管理,同时又因为土木工程专业有大量的标准样图,我们可以分门别类的做出各种各样丰富多彩的图库。做图库其实质上就是建立CAD辅助数据库。上学期我们学CAD时,在课后作业中遇到的沙发、床等家具不需要自己画,我们都是从网上或者老师给的图库中粘贴过来的。如果我们在CAD中建立一个图库把我们常用的图都放进去并分类存好,那么我们再需要用的时候就可以直接从CAD中直接调出使用了。比起每次都去别的地方找图,这可以节省很多时间。因此建立一个适合属于自己的图库非常必要。如图4.5所示为一个常用图库对话框。