|
CATIA V5 Programmierung : Defekte Constraints markieren
ferdo am 12.01.2014 um 21:12 Uhr (1)
Hallo,Mit CATScript...Option ExplicitSub CATMain() Dim prdRoot As Product Set prdRoot = CATIA.ActiveDocument.Product Dim oConstraints As Constraints Set oConstraints = prdRoot.Connections("CATIAConstraints") Dim iConstraint Dim iNbConstraints iConstraint = 1 iNbConstraints = oConstraints.Count Do While (iConstraint = iNbConstraints) If (oConstraints.Item(iConstraint).Status = catCstStatusOK) Then iConstraint = iConstraint + 1 Else oConstraints.Remove ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:51 Uhr (0)
Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObjectTyp ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:58 Uhr (0)
Hallo, Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObj ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
