|
CATIA V5 Programmierung : Länge von Kante in Draft messen-HILFE
Sr.Herms am 07.09.2006 um 14:33 Uhr (0)
Hallo!Im Zuge meiner aufgabe versuche ich gerade in Draft eine Kante zu wählen und von dieser dann die Länge zu bestimmen! das das makro die selektierte Kante erkennt funzt schon mal, zumindestens kann ich sie z.B durch ein makro löschen etc, also sollte der code funktionieren.im 2.schritt muß ich nun die länge bemessen aber da bekomm ich immer eine fehlermeldung! ich hab nicht soviel ahnung davon aber ich denke es liegt daran das ich das irgendwie als reference übergeben muß und nicht so einfach direkt, a ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Sr.Herms am 14.09.2006 um 11:00 Uhr (0)
Danke schon mal!Allerdings habe ich vor vorhher noch die Länge zu messen und da bricht er nun ab:_______________ Dim TheSPAWorkbench As SPAWorkbench Dim TheMeasurable As Measurable Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Ref) Dim dLength As Double dLength = TheMeasurable.Length______________Hast du dafür auch eine Lösung?
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Sr.Herms am 14.09.2006 um 11:16 Uhr (0)
Versucht aber ohne erfolg!Versuche ja deinen Cod einzuarbeiten, vll habe ich da den fehler:------------- Auswahl festlegen ----------------------------------------------- Dim Was(1) Was(0) = "HybridShape" Was(1) = "Edge" Selektion definieren und leeren --------------------------------- Dim UserSel Set UserSel= CATIA.ActiveDocument.Selection UserSel.Clear Selektion Kante vornehmen lassen -------------------------------------- Call UserSel.SelectElement2(Was, "Bitte Linie auswählen!", false) Dim Ref Set Re ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Sr.Herms am 14.09.2006 um 12:02 Uhr (0)
Sub CATMain () Dim partDocument1 As Document Set partDocument1 = CATIA.Activedocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim HB as HybridBody Set HB = part1.HybridBodies.item (1) Auswahl festlegen ----------------------------------------------- Dim Was(0) Was(0) = "HybridShape" Selektion definieren und leeren --------------------------------- Dim UserSel As Selection Set UserSel= CATIA.ActiveDocument.Selecti ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
