急！请问怎样有VB语言设置CAD中图纸类型

zhufengxi

请问各位仁兄，怎样用VB语言来设置CAD中图纸的类型，比如在VB窗体中选择了A4图纸，就能在CAD中的布局空间中设置好相应的图纸类型。急用，请哪位高手帮帮忙，小女感激不尽。

artuo

可先作好A4等图框以DWG格式存到一个指定的目录下,然后用moSpace.InsertBlock的方式插入所选取的图框. Function insetObj() Dim blockObj As Object
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0
If tuf.Text = "" Then
End If
If bl.Text = "" Then bl.Text = "1:1"
zx = "D:" & "\tff\" & tuf.Text & ".dwg"
Dim sysVarData As Variant
xx = Len(bl.Text)
yy = InStr(1, bl.Text, ":", 1)
zz = xx - yy
zf = Val(Left(bl.Text, yy - 1))
zi = Val(Right(bl.Text, zz) / zf) 'CByte
sysVarName = "dimScale" 'OSMODE
' On Error Resume Next
If SelVersion = True Then
moSpace.InsertBlock insertionPnt, zx, zi, zi, zi, 0
Else:
moSpace.InsertBlock insertionPnt, zx, zi, zi, 0
End If
acadApp.Application.ZoomExtents End Function ' RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation)