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

zhufengxi 发表于 2005-6-1 17:12:00

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

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

artuo 发表于 2005-6-6 22:05:00

可先作好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)

查看完整版本: 急！请问怎样有VB语言设置CAD中图纸类型