VLAX类及曲线操作

BDYCAD

剛在學VBA, 把樓主的代碼拷下來, 搞了半天. 是這樣的效果吧! 呵呵!!

rscenter

[I]VERSION 1.0 CLASS[/I]BEGIN
MultiUse = -1 'True
End
[I]Attribute VB_Name = "Curve"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False[/I] 斜的部分不能为红色，如何操作？？？？？

mccad

rscenter发表于2004-4-13 17:24:00VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueEnd ...

必须整个文件用导入的方法，如果是拷贝，则前面这几行不必须拷贝。

rscenter

也就是说：前面的代码不要了，包括：
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
End
Attribute VB_Name = "VLAX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False 不过在运行的时候，出现错误，为什么，老是不通！出错在模块的第二段代码，如下：
Set ObjCurve = New Curve 出错提示为图片所示，谢谢指教。rscenter@tom.com

hojing7

下載學習

莫名

学习

ntchjie

总是调试不成功，哪位能不能将调试文件发给我，谢谢了。


nt_jie@hotmail.com

yingxunxue

Sub Example_GetInterfaceObject()
' This example returns top level object of another application.
On Error GoTo ERRORHANDLER

Dim poly As Object
Set poly = ThisDrawing.Application.GetInterfaceObject("Polycad.Application") ERRORHANDLER:
MsgBox Err.Description, , "GetInterfaceObject Example"

End Sub 这段程序怎么老是出现"加载应用程序出错" 请帮忙

yingxunxue

请问为什么出现上面的问题,我是根据版主的程序来调试的.

yingxunxue

下面是出错的图片