[求助]：请大家帮忙看一下一个简单的代码

sharksun

Private Sub CommandButton1_Click()

Dim AcadApp As AcadApplication
Dim StyObj1 As AcadTextStyle
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim typeFace As String
Dim PitchAndFamily As Long


Set StyObj1 = AcadApp.ActiveDocument.TextStyles.Add("A1")
typeFace = "宋体"
Bold = True
Italic = True
charSet = 1
PitchAndFamily = 1 Or 16
StyObj1.SetFont typeFace, Bold, Italic, charSet, PitchAndFamily


textString = "AutoCAD"
height = 20
insertionPoint(0) = 5: insertionPoint(1) = 2: insertionPoint(2) = 0

AcadApp.ActiveDocument.ActiveTextStyle = StyObj1
Set textObj = AcadApp.ActiveDocument.ModelSpace.AddText(textString, insertionPoint, height)
textObj.Update

运行时出错，提示行：Set StyObj1 = AcadApp.ActiveDocument.TextStyles.Add("A1") 变量或with未定义？怎么回事呢？

qijiun

我觉得加字体和图层、标注样式等等可以考虑采用插入块然后再删除来实现

lijiao

最初由 sharksun 发布
[B]Private Sub CommandButton1_Click()

Dim AcadApp As AcadApplication
Dim StyObj1 As AcadTextStyle
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim typeFace As String
Dim PitchAn... [/B]

在这一行之前，要有：set acadapp = ........

darkblue

三楼说的不错，在操作acadapp对象之前要对其初始化。我想可以这样写：

on error resume next
set acadapp=GetObject("AutoCAD.Application")'先获得autocad进程
if err then
err.clear
set acadapp=CreateObject("AutoCAD.Application")'如果出错，创建进程
if err then
msgbox err.description
err.clear
end if
end if