---

Hallo zusammen,

und wieder komme ich nicht weiter.
Ich wollte die größe der Bemaßungspfeile über ein Makro setzen.
Es läuft durch, anstatt der Pfeilgröße ändert sich aber die Textgröße der Positionsnummern (Bezugshinweise)?.
Hab ich da was verwechselt?

==================================
Auszug aus der API-Hilfe:

// Detailing Settings

swDetailingArrowHeight Lets you specify the Height of arrowheads
swDetailingArrowWidth Lets you specify the Width of arrowheads
swDetailingArrowLength Lets you specify the Length of arrowheads
==================================

Hier mein Makro :

'*********************************************************************
' Setzen der Pfeilgröße (Dokumenteigenschaften / SLDDRW)
' ********************************************************************
Dim swApp As Object
Dim ModelDoc As Object

Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set ModelDoc = swApp.ActiveDoc

Dim Height As Double
Dim Width As Double
Dim Length As Double
Dim retval_H As Boolean
Dim retval_W As Boolean
Dim retval_L As Boolean

Height = 2                          ' Festlegen der Pfeilhöhe
Width = (Height * 3.85) / 1000      ' Pfeilbreite berechnen
Length = (Height * 3.85) / 1000     ' Pfeilhöhe berechnen

retval_H = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowHeight, Height)   'Lets you specify the Height of arrowheads
retval_W = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowWidth, Width)    'Lets you specify the Width of arrowheads
retval_L = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowLength, Length)   'Lets you specify the Length of arrowheads

retval_FRB3 = ModelDoc.ForceRebuild3(1)

End Sub

MfG

Stephan

[Diese Nachricht wurde von StephanWörz am 26. Juli 2002 editiert.]

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

---

Hallo Stephan,

ich vermute du hast die swconst.bas nicht eingebunden, da weiß er mit den Parametern nichts anzufangen. Falls du nicht direkt das ganze Ding einbinden willst schreibst du die Konstanten einfach mit in den Kopf. Ausserdem musst du drauf achten, dass alle Angaben in Metern erfolgen, auch für die Höhe, da hast du Height=2 stehen 

So funktioniert es dann bei mir:

Code:

---

'*********************************************************************
' Setzen der Pfeilgröße (Dokumenteigenschaften / SLDDRW)
' ********************************************************************
Dim swApp As Object
Dim ModelDoc As Object

Const swDetailingArrowHeight = 24
Const swDetailingArrowWidth = 25
Const swDetailingArrowLength = 26

Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set ModelDoc = swApp.ActiveDoc

Dim Height As Double
Dim Width As Double
Dim Length As Double
Dim retval_H As Boolean
Dim retval_W As Boolean
Dim retval_L As Boolean

Height = 0.002          ' Festlegen der Pfeilhöhe
Width = (Height * 3.85)  ' Pfeilbreite berechnen
Length = (Height * 3.85) ' Pfeilhöhe berechnen

retval_H = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowHeight, Height)  'Lets you specify the Height of arrowheads
retval_W = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowWidth, Width)    'Lets you specify the Width of arrowheads
retval_L = ModelDoc.SetUserPreferenceDoubleValue(swDetailingArrowLength, Length)  'Lets you specify the Length of arrowheads

retval_FRB3 = ModelDoc.ForceRebuild3(1)

End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Danke Dir

Stephan

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