VLAX类及曲线操作

BDYCAD · 发表于 2004-3-24 08:55

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

rscenter · 发表于 2004-4-13 17:24

[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 · 发表于 2004-4-13 18:28

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

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

rscenter · 发表于 2004-4-14 16:10

也就是说：前面的代码不要了，包括：
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 · 发表于 2004-5-8 09:29

下載學習

莫名 · 发表于 2004-5-14 17:51

学习

ntchjie · 发表于 2004-5-14 21:34

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

nt_jie@hotmail.com

yingxunxue · 发表于 2004-5-19 10:47

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 · 发表于 2004-5-19 10:54

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

yingxunxue · 发表于 2004-5-19 10:55

下面是出错的图片

账号		自动登录	找回密码
密码			注册

VLAX类及曲线操作

本帖子中包含更多资源

本帖子中包含更多资源