Dim oAutoCAD As Object
Call BindAutoCAD(True)<\/p>\n\n\n\n
Dim sLayerName As String
Dim iColor As Integer
Dim sTextStyle As String
Dim iMode As Integer<\/p>\n\n\n\n
sLayerName = “\u5e73\u9762”
iColor = 1 ‘Red
sTextStyle = “\u6c49\u5b57”
iMode = 519 ‘\u7aef\u70b9 1 + \u4e2d\u70b9 2 + \u5706\u5fc3 4 + \u6700\u8fd1\u70b9 512<\/p>\n\n\n\n
Call AddLayer(sLayerName, iColor)
Call AddTextStyle(sTextStyleName)
Call SetOSMode(iMode)<\/p>\n\n\n\n
Public Sub AddLayer(sLayerName As String, iColor As Integer) ‘\u589e\u52a0\u56fe\u5c42
Dim oLayer As Object
Set oLayer = oAutoCAD.ActiveDocument.Layers.Add(sLayerName)
oLayer.Color = iColor
oAutoCAD.ActiveDocument.ActiveLayer = oLayer
End Function<\/p>\n\n\n\n
Public Sub AddTextStyle(sTextStyleName As String) ‘\u6dfb\u52a0\u6216\u4fee\u6539\u5b57\u4f53
Dim oTextStyle As Object
Set oTextStyle = oAutoCAD.ActiveDocument.TextStyles.Add(sTextStyleName)
oTextStyle.BigFontFile = “hztxt.shx”
oTextStyle.FontFile = “romans.shx”
oTextStyle.Height = 8
oTextStyle.Width = 0.6
oAutoCAD.ActiveDocument.ActiveTextStyle = oTextStyle
End Function<\/p>\n\n\n\n
Public Sub SetOSMode(ByVal iMode As Integer) ‘\u8bbe\u7f6e\u5bf9\u8c61\u6355\u6349\u6a21\u5f0f
oDraw.SetVariable “OSMODE”, iMode
‘\u4f7f\u7528\u4ee5\u4e0b\u4f4d\u7801\u8bbe\u7f6e\u201c\u5bf9\u8c61\u6355\u6349\u201d\u7684\u6a21\u5f0f(OSNAP mode)\uff1a
‘0 NON (\u65e0)
‘1 END\uff08\u7aef\u70b9\uff09
‘2 MID\uff08\u4e2d\u70b9\uff09
‘4 CEN (\u5706\u5fc3)
‘8 NOD (\u8282\u70b9)
’16 QUA (\u8c61\u9650\u70b9)
’32 INT\uff08\u4ea4\u70b9\uff09
’64 INS (\u63d2\u5165\u70b9)
‘128 PER (\u5782\u8db3)
‘256 Tan (\u5207\u70b9)
‘512 NEA (\u6700\u8fd1\u70b9)
‘1024 QUI (\u5feb\u901f)
‘2048 App (\u5916\u89c2\u4ea4\u70b9)
‘4096 EXT (\u5c3a\u5bf8\u7ebf)
‘8192 PAR (\u5e73\u884c)
‘\u8981\u6307\u5b9a\u591a\u4e2a\u5bf9\u8c61\u6355\u6349\u65b9\u5f0f\uff0c\u8bf7\u8f93\u5165\u5404\u4e2a\u4f4d\u7801\u503c\u4e4b\u548c\u3002
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"