[拜求]关于VB与AutoCAD的开发的问题！

夏经凯

用VB开发AutoCAD2004
如何设定图形中：
1 直线的线宽
2 文字的字体
关于字体 小弟写的是这样
AcadDoc.TextStyles.Add "宋体"
AcadDoc.TextStyles("宋体").fontFile = "宋体"
AcadDoc.ActiveTextStyle = AcadDoc.TextStyles("宋体") 在AutoCAD R14或2000版本下能正常运行 但是到了2002和2004版本下
第2句就不能执行 那位大哥帮帮小弟 给小弟代码
小弟先谢了

夏经凯

ＨＥＬＰ　ＭＥ


呜呜　再次拜谢

efan2000

使用TTF字体应该使用SetFont。

夏经凯

先谢谢楼上的大哥 不过您说的我有点不大明白 我的程序是这样写的 Public AcadApp As AcadApplication
Public AcadPre As AcadPreferences
Public AcadDoc As AcadDocument
Public AcadPaS As AcadPaperSpace
Public AcadMoS As AcadModelSpace Public Sub cmdlinkCAD() On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox "²»ÄÜÔËÐÐAutoCAD!" & Err.Description
Exit Sub
End If
End If Set AcadPre = AcadApp.Preferences
Set AcadDoc = AcadApp.ActiveDocument
Set AcadPaS = AcadDoc.PaperSpace
Set AcadMoS = AcadDoc.ModelSpace AcadApp.Visible = True End Sub Public Sub cmdRunCAD() Dim insPnt(0 To 2) As Double
insPnt(0) = 2
insPnt(0) = 4
insPnt(0) = 0
Dim texthgt As Double
Dim textstr As String
textstr = "Auto CAD Automation"
texthgt = 1#
Call AcadMoS.AddText(textstr, insPnt, texthgt)
Call AcadMoS.AddLine(insPnt, insPnt)
'Call AcadMoS.AddArc(insPnt, insPnt)
Call AcadMoS.AddEllipse(insPnt, texthgt, 1)
Call AcadMoS.AddCircle(insPnt, texthgt) End Sub cmdlinkCAD
Dim insPnt(0 To 2) As Double
Dim insPnt1(0 To 2) As Double
Dim insPnt2(0 To 2) As Double AcadDoc.TextStyles.Add ＂宋体"
'AcadDoc.TextStyles("宋体").fontFile = "宋体"
AcadDoc.ActiveTextStyle = AcadDoc.TextStyles("宋体")
Dim texthgt As Double
texthgt = 400 insPnt(0) = 79650: insPnt(1) = 3600: insPnt(2) = 0
Call AcadMoS.AddText("文字", insPnt, texthgt) 然后编译到AcadDoc.TextStyles("宋体").fontFile = "宋体" 这句就出现错误 麻烦能帮改一下或说具体点吗？ 拜谢

夏经凯

写成


                         AcadDoc.TextStyles("宋体").SetFont = "宋体"


的话，编译时提示.SetFont参数不可选


５５５５５５５５５５５５

雪山飞狐_lzh

建议你先看看对象模型

夏经凯

多谢版主指点


万分感谢