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<BR>                                                                       Dim insertionPnt(0 To 2) As Double<BR>                                                                               insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0<BR>                                                                               If tuf.Text = "" Then<BR>                                                                                                                                                                       End If<BR>                                                                               If bl.Text = "" Then bl.Text = "1:1"<BR>                                                                       zx = "D:" &amp; "\tff\" &amp; tuf.Text &amp; ".dwg"<BR>Dim sysVarData As Variant<BR>xx = Len(bl.Text)<BR>yy = InStr(1, bl.Text, ":", 1)<BR>zz = xx - yy<BR>zf = Val(Left(bl.Text, yy - 1))<BR>zi = Val(Right(bl.Text, zz) / zf) 'CByte<BR>        sysVarName = "dimScale" 'OSMODE<BR>        ' On Error Resume Next<BR>                                               If SelVersion = True Then<BR>                       moSpace.InsertBlock insertionPnt, zx, zi, zi, zi, 0<BR>                                               Else:<BR>                       moSpace.InsertBlock insertionPnt, zx, zi, zi, 0<BR>                                               End If<BR>        acadApp.Application.ZoomExtents       


End Function


' RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation)
页: [1]
查看完整版本: 急！请问怎样有VB语言设置CAD中图纸类型