|
|
发表于 2005-5-20 22:26:00
|
显示全部楼层
又出现错误这样的错误了/狂晕...
下面是俩段程序
第一段运行都没出错,到了第二段就出错,为什么呀?
Dim jstj0 As AcadText
Dim textstringjstj0 As String
Dim heightjstj0 As Double
Dim insertionpointjstj0(0 To 2) As Double
'定义文字的高度和书写位置
textstringjstj0 = "技术条件："
heightjstj0 = 5.2
insertionpointjstj0(0) = tkc - 130#: insertionpointjstj0(1) = 62: insertionpointjstj0(2) = 0#
acadapp.ActiveDocument.ActiveTextStyle = styobj2
Set jstj0 = acadapp.ActiveDocument.ModelSpace.AddText(textstringjstj0, insertionpointjstj0, heightjstj0)
Dim jstj As AcadText
Dim textstringjstj As String
Dim heightjstj As Double
Dim insertionpointjstj(0 To 2) As Double
'定义文字的高度和书写位置
textstringjstj = Text10.Text
heightjstj = 3.5
insertionpointjstj(0) = tkc - 130#: insertionpointjstj(1) = 56: insertionpointjstj(2) = 0#
acadapp.ActiveDocument.ActiveTextStyle = styobj2
Set jstj = acadapp.ActiveDocument.ModelSpace.AddText(textstringjstj, insertionpointjstj, heightjstj)
|
|
置顶卡
