SE二次开发遇难求救

xiaweihg · 发表于 2007-8-24 00:17:10

经典图书

我想用vbs文件对solidedge的模型做二次开发，程序如下
Dim sdApp,ST
Dim STVars

Set sdApp=GetObject("E:Solid EdgeProgram","Edge.Application")
Set ST=sdApp.ActiveDocument
Set STVars=ST.variables
Call STVars.Edit("L_SIDE1",5.8000)
Call STVars.Edit("L_ANGLE", 120.0000)
Call STVars.Edit("L_SIDE2", 5.8000)
Call STVars.Edit("L_SHANK", 65.0000)
Call STVars.Edit("L_HANDLE", 190.0000)
Call STVars.Edit("L_BANDARD", 10.0000)

beam.SaveAs"E:iSIGHT_80examples_NTSTICK.igs"
可是.bat文件运行起来老是说
行：4
字符：1
错误：ActiveX部件不能创建对象：'GetObject'
我按论坛上的建议重新注册了xxrun.dll还是不行，看看那位能帮帮忙啊？

gaoyf_000 · 发表于 2007-8-24 15:28:36

不会SE啊.

daovay · 发表于 2007-8-26 03:17:35

经典图书

痛苦研究后，总算搞定了
跟Get不读有关
Dim sdApp
Dim sdPart
Dim sdVars

On Error Resume Next
Set sdApp = CetObject(,"SolidEdge.Application")
If Err Then
Err.Clear
Set sdApp = CreateObject("SolidEdge.Application")
Set sdPart = sdApp.Documents.Add("SolidEdge.PartDocument")
sdApp.Visible = True
Else
Set sdPart=sdApp.ActiveDocument
End If
On Error GoTo 0

Set sdPart = sdApp.Documents.Open("E:iSIGHT_80examples_NTSTICK.par")

Set sdVars=sdPart.Variables
Call sdVars.Edit("L_SIDE1",3.8000)
Call sdVars.Edit("L_ANGLE", 120.0000)
Call sdVars.Edit("L_SIDE2", 5.8000)
Call sdVars.Edit("L_SHANK", 65.0000)
Call sdVars.Edit("L_HANDLE", 190.0000)
Call sdVars.Edit("L_BANDARD", 10.0000)

sdPart.SaveAs ("E:iSIGHT_80examples_NTSTICK.igs")

		自动登录	找回密码
密码			立即注册

SE二次开发 遇难求救

SE二次开发遇难求救