Hallo zusammen,
ich formuliere die Frage etwas anderst.
1. Front view erzeugen (erledigt)
2. Dimensions erzeugen (hierzu benötige ich eure Hilfe)
Ich habe als erstes eine Front View mit folgendem Code erzeugt.
Sub CATMain()
Const sFrontView = "FrontView"
Const sLeftView = "LeftView"
Const sTopView = "TopView"
Set oProductDocument = CATIA.ActiveDocument
Set oPart = oProductDocument.Part
Set oSelection = oProductDocument.Selection
Set oOriginElements = oPart.OriginElements
Set oPlaneXY = oOriginElements.PlaneXY
Set oPlaneYZ = oOriginElements.PlaneYZ
Set oPlaneZX = oOriginElements.PlaneZX
Set oAnnoSets = oPart.AnnotationSets
' Set oAnnoSet = oAnnoSets.Add("")
' Set oViewFactory = oAnnoSet.TPSViewFactory
Set RefPlaneXY = oPart.CreateReferenceFromObject(oPlaneXY)
Set RefPlaneYZ = oPart.CreateReferenceFromObject(oPlaneYZ)
Set RefPlaneZX = oPart.CreateReferenceFromObject(oPlaneZX)
'Set oViewZX = oViewFactory.CreateView(oPlaneZX,1)
'Set oViewYZ = oViewFactory.CreateView(oPlaneYZ,1)
'Set oViewXY = oViewFactory.CreateView(oPlaneXY,1)
' FrontView umbenennen ************************************
Set oCatiaInternal = oAnnoSets.item(1).TPSViews.item(3).GetItem("ModelElement")
oCatiaInternal.DisplayName = "View3_____"
oPart.Update
msgbox oAnnoSets.item(1).TPSViews.item(1).name
oPart.Update
End Sub
-----------------------
und nun möchte ich, einmal zwischen einem Punkt und einer Linie und zwischen zwei Linien eine Dimension erzeugen. Der Punkt und die Linien sind mir namentlich bekannt. Man könnte den Punkt oder die Linien genau mit Ihrem Namen ansprechen. Ich brauch also zwei Dimensions.
Ich weiß absolut nicht weiter und hier im Forum, habe ich auch keine Antwort auf meine Frage gefunden. Ich hoffe Ihr könnt mir weiterhelfen bzw. mich bei der Rätsels - Lösung unterstützen. Ich bin für jeden Tipp dankbar.
Edit: Frage umformuliert.
Vielen Dank im vorraus.
Mit freundlichen Grüßen,
cChris
[Diese Nachricht wurde von cChris am 05. Okt. 2010 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP