iCAx开思网

标题: 如何用vbscript创建curve类型参数？ [打印本页]

作者: powtin 时间: 2013-12-16 21:33
标题: 如何用vbscript创建curve类型参数？
在catia录的宏，目的是创建一个实型参数A=10 和一个名称为curve1的curve型参数
Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim realParam1 As RealParam
Set realParam1 = parameters1.CreateReal("", 0.000000)

realParam1.Rename "A"

realParam1.Value = 10.000000

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

Dim parameters2 As Parameters
Set parameters2 = part1.Parameters

Dim parameter1 As Parameter
Set parameter1 = parameters2.Item("Curve.1")

parameter1.Rename "curve1"

End Sub
但生成宏语句，在catia中运行的时候，提示“Set parameter1 = parameters2.Item("Curve.1")”是错误的，难道vbscript不支持创建curve类型的参数吗？求高手指点！

欢迎光临 iCAx开思网 (https://www.icax.org/)