社区 › VB › vb与cad二次开发过程中....

cryyyy 发表于 2005-5-8 17:03:00

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

出现了如图的错误
原原本本的程序
在另外一个模块里运行的好好的
怎么到了这里就出现这样的错误了???
赐教?是啥发生错误了,是啥导致了这个错误....

rliuyong2 发表于 2005-5-8 21:36:00

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

cryyyy 发表于 2005-5-9 09:10:00

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

cryyyy 发表于 2005-5-9 21:12:00

高手救命啊
急

zfbj 发表于 2005-5-12 14:23:00

把完整代码贴出来看看。

cryyyy 发表于 2005-5-14 21:27:00

谢谢
已经搞定

cryyyy 发表于 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)

cryyyy 发表于 2005-5-21 15:14:00

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

mccad 发表于 2005-5-21 21:29:00

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

查看完整版本: vb与cad二次开发过程中....