vb与cad二次开发过程中....

cryyyy

出现了如图的错误


原原本本的程序


在另外一个模块里运行的好好的


怎么到了这里就出现这样的错误了???


赐教?是啥发生错误了,是啥导致了这个错误....

rliuyong2

是否是已存在了选择集没清空,而造成的?

cryyyy

rliuyong2发表于2005-5-8 21:36:00是否是已存在了选择集没清空,而造成的?

什么是 选择集 清空? 要怎样清空?

cryyyy

高手救命啊


急

cryyyy

cryyyy发表于2005-5-9 21:12:00回复：（cryyyy）高手救命啊 高手救命啊 急

zfbj

把完整代码贴出来看看。

cryyyy

zfbj发表于2005-5-12 14:23:00把完整代码贴出来看看。

谢谢


已经搞定

cryyyy

zfbj发表于2005-5-12 14:23: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)

cryyyy

谁给帮帮忙,谢谢了，急啊,要毕业答辩了...

mccad

唯一的区别是Text10.Text。 该控件是否存在。