---

hallo
da ich in catia sehr viel zeichnungen mache und in diesen immer wieder verschiedenen toleranzen eintragen muss wollte ich mir ein marko machen das wie folgt funktionieren sollte:

-maß anklicken
-marko ausführen
1. ausgewähltes maß wird auf 0,1 gerundet
2. je nach größe des maß wird im dann einen toleranz zugewiesen
(bsp. 0-10 mm = +-0.2, 10-20 mm = 0.3,... usw.)

da ich leider wenig ahung habe von makros hoff ich mal das mir jemd. helfen kann

falls noch iwelche infos fehlen werde ich diese gerne dazu schreiben

danke schon mal im voraus!!

*Rechtschreibfehler sind Spezialeffekte meiner Tastatur!  

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
das Ganze scheitert schon an der Bedingung, dass durch anklicken des Maßes ein makro gestartet werden soll. Das geht leider nicht in V5. Reactions funktionieren leider nicht im Drafting.
Der umgekehrte Weg wäre eher denkbar:
1. Makro starten,
2. User wählt Maß(e) aus
3. Maß wird vearbeitet
4. User wählt ESC zum Abbrechen

Aufwendig ist die Hinterlegung der ganzen Toleranzstufen. Diese lassen sich ja leider nicht linear numerisch ermitteln.
Mal eben so ist das jedenfalls nicht geschrieben und da stellt sich die Frage wer es sich zeitlich erlauben kann das Makro für umsonst umzusetzen.

SG

Jens

------------------
Inoffizielle CATIA-Hilfeseite
Kochbuch - CATIA V5 automatisieren

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

mhhh ok ich hatte mir das einfacher vorgestellt....

an wen müsste ich mich wenden um sowas zu bekommen. derjenige müsste es auch nicht für umsonst machen xD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

frohe weihnachten....

Code:

---

MACRO_NAME = "ToleranceDRW"
MACRO_VERS = "V1.0"

'VER: 1.0
'DESC: CREATE ADDS TOLERANCE TO SELECTED DIMENSIONS DEPENDING ON VALUE.
'PREP: ACTIVE DOCUMENT MUST BE OF TYPE CATDRAWING
'LANG: CATSCRIPT
'DATE: 19/12/12

'CREA: DasDon
'-------------------------------------------

'----------------------------------------
'DECLARE VARIABLE

'--------------------
'CONSTANT VARIABLES

'--------------------
'GENERAL VARIABLES
DIM oSel As Selection
'--------------------
'ARRAYS
DIM InputObj(0)
InputObj(0) = "DrawingDimension"
'----------------------------------------

'----------------------------------------
SUB CATMain()
'--------------------
'CHECK IF DOCUMENT OPENED IS CORRECT FORMAT
IF CATIA.Documents.Count = 0 THEN
MSGBOX "no documents are opened in CATIA!" & CHR(10) & "please open a document",16,"DOCUMENT ERROR"
EXIT SUB
END IF
IF TYPENAME(CATIA.ActiveDocument) <> "DrawingDocument" THEN
MSGBOX "the active document must be of type Drawing Document!" & CHR(10) & "please open correct document type",16,"DOCUMENT ERROR"
EXIT SUB
END IF
'--------------------
'SET STANDARD VARIABLES
CATInit
'--------------------
'SELECTION OF DIMENSIONS AND CALL TOLERANCE SUB
STATUS = oSel.SelectElement3(InputObj,"select dimensions...",true,CATMultiSelTriggWhenUserValidatesSelection ,false)
IF oSel.Count <1 THEN Exit Sub
FOR n = 1 TO oSel.Count
TolaranceDimension oSel.Item(n).Value
NEXT

'--------------------

'--------------------
'macro finished
END_MESSAGE
END SUB
'----------------------------------------

'----------------------------------------
SUB CATInit()
SET oSel = CATIA.ActiveDocument.Selection
END SUB
'----------------------------------------

'----------------------------------------
SUB TolaranceDimension (byVal DimObj)
DIM dimValueObj As DrawingDimValue
DIM dimValue As Integer
DIM plusValue As Double
Dim minusValue As Double

SET dimValueobj = DimObj.GetValue
dimValue = dimValueobj.Value

IF dimValue > 0.0 AND dimValue < 10.0 THEN
plusValue = 0.2
minusValue = -0.2
ELSEIF dimValue > 10.0 AND dimValue < 20.0 THEN
plusValue = 0.3
minusValue = -0.3
ELSEIF dimValue > 20.0 AND dimValue < 30.0 THEN
plusValue = 0.4
minusValue = -0.4
END IF

DimObj.SetTolerances 1,"TOL_0.7", "" , "" , plusValue, minusValue, 0
End
'----------------------------------------

'----------------------------------------
SUB END_MESSAGE()
MSGBOX MACRO_NAME & " " & MACRO_VERS & " finished." _
& vbLF & "Please check results" & vbLF & _
"-----------------------------------" & vbLF & _
"-----------------------------------" & vbLF & _
"macro written by:" & vbLF & _
"DasDon" , vbyes, MACRO_NAME & " " & MACRO_VERS
END SUB
'----------------------------------------

---

einfach unter SUB TolaranceDimension die IF Schleife erweitern und nach belieben an passen...

PS: Das Makro als CATScript abspeichern!
PPS: Makro starten Bemaßung auswählen...bang!

Gruß,
DasDon

[Diese Nachricht wurde von DasDon am 20. Dez. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen dank  

gleichfalls frohes fest!!

[Diese Nachricht wurde von Tropby182 am 20. Dez. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP