各位大侠“
请问一下，下面红色一栏的程序，怎么修改为非指定的线，我的意思是，我可以选择的的直线。
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters Set hybridShapeLine = parameters1.Item("直线.3")
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLine)
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveFromPercent(reference1, 0.500000, False)
Set hybridBodies1 = part1.HybridBodies
发表于 2012-5-27 10:22:47
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！