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

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

出现了如图的错误

原原本本的程序

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

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

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

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

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

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

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

 什么是选择集清空?

要怎样清空?

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

高手救命啊

高手救命啊

急

cryyyy 发表于 2005-5-12 09:58:00

cryyyy发表于2005-5-9 21:12:00static/image/common/back.gif回复：（cryyyy）高手救命啊
高手救命啊

急

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

把完整代码贴出来看看。

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

zfbj发表于2005-5-12 14:23:00static/image/common/back.gif把完整代码贴出来看看。

谢谢

已经搞定

cryyyy 发表于 2005-5-20 22:26:00

zfbj发表于2005-5-12 14:23:00static/image/common/back.gif把完整代码贴出来看看。

又出现错误这样的错误了/狂晕...

下面是俩段程序

第一段运行都没出错,到了第二段就出错,为什么呀?

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。

该控件是否存在。

页: [1]

明经CAD社区's Archiver