---

Hallo,
ich versuche gerade einen Punkt in eine bestehende Skizze einzufügen.(per API)
Das klappt.
Dann füge ich Beziehungen hinzu.
Klappt auch.
Dann füge ich Bemaßungen hinzu mit AddDimension2 bzw. AddHorizontalDimension2.
Bemaßungen werden hinzugefügt.
Dabei geht die Modify-Box auf und das Makro stoppt.
Nun steht in der Hilfe, dass man die Modify-Box mit ModelDoc2::SetUserPreferenceToggle deaktivieren kann.

Meine Versuche mit:
bstatus = oswmodel.SetUserPreferenceToggle(SwConst.swUserPreferenceToggle_e.swInputDimValOnCreate, True)
bzw.
bstatus = oswmodel.SetUserPreferenceToggle(SwConst.swUserPreferenceToggle_e.swInputDimValOnCreate, False)

scheiterten, die Modify-Box öffnet sich in beiden Fällen immer noch bei AddDimension2.

Weiß jemand Rat?
Danke

------------------
Rettet das Orthogravieh!

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

---

Hallo Nicola,

du bist auf den richtigen Weg.
Es handelt sich dabei nur um einen Application Option!
Also einfach mit:

Code:

---

oSwApp.SetUserPreferenceToggle(SwConst.swUserPreferenceToggle_e.swInputDimValOnCreate, False)

---

die Application Option swInputDimValOnCreate auf false setzten und schon kommt keine MessageBox mehr.

------------------
Mfg Daniel

Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. Bertolt Brecht
------------------
SolidWorks | API | Makro | Schulung | Freeware | Schuler Design Automation GmbH

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

---

Ach so, das "Yes und No" in der Liste der swUserPreferenceToggle_e bedeutet "entwerder oder". Klingeling!!!
Danke Daniel!

------------------
Rettet das Orthogravieh!

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

---

Falls du öfters nach Optionen in der SwConst mit der Zugehörigkeit, also Application oder Dokument suchts, kann ich dir unsere Funktion "Optionen Konstante ermitteln" unserer Freeware SDA-4Free empfehlen.
Die Funktion liefert dir alle Informationen welche du für ein Makro oder externes Programm benötigtst.

Frohes Programmieren...

------------------
Mfg Daniel

Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. Bertolt Brecht
------------------
SolidWorks | API | Makro | Schulung | Freeware | Schuler Design Automation GmbH

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

---

Weisst du auch, wie ich an den automatisch durch AddDimension vergebenen Namen der Bemaßung komme.
Der "LPDISPATCH" (was ist das) Rückgabewert lässt sich nicht von Object in Dimension umwandeln. Mit einer greifbaren "sldworks.dimension" gäbe es die Eigenschaft .Name, aber wie greife ich die erzeugte Dimension?
Oder gibt es einen anderen Weg?

------------------
Rettet das Orthogravieh!

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

---

Die aktuelle Methode zum Erzeugen einer Bemaßung lautet

Code:

---

retval = ModelDoc2.AddDimension2 ( x, y, z )

---

diese hat als Rückgabewert ein SldWorks.DisplayDimension Objekt.
mit

Code:

---

DisplayDimension.GetDimension ( )

---

bekommst du dann das SldWorks.Dimension Objekt.

------------------
Mfg Daniel

Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. Bertolt Brecht
------------------
SolidWorks | API | Makro | Schulung | Freeware | Schuler Design Automation GmbH

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

---

Mann bist du schnell...!!!
"...diese hat als Rückgabewert ein SldWorks.DisplayDimension Objekt. ..."
Das war die mir fehlende Information! Ist das Erfahrung, oder steht das irgendwo in der Hilfe?

------------------
Rettet das Orthogravieh!

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

---

Hallo Nicola,

habe gerade etwas Luft auf der Arbeit und bin froh wenn ich meine Zeit sinnvoll nutzen kann um jemanden zu helfen, warte nämlich verzeifelt auf Daten :-).

Das ganze steht auch in der SolidWorks API Hilfe. Suche dort einfach mal nach AddDimension2 und schon führt ein Seite zur nächsten.
Etwas Erfahrung mit der Hilfe und allgemein der SolidWorks Objekt Strukur ist natürlich sehr hilfreich, aber nicht zwingend notwendig.

------------------
Mfg Daniel

Wer A sagt, der muss nicht B sagen. Er kann auch erkennen, dass A falsch war. Bertolt Brecht
------------------
SolidWorks | API | Makro | Schulung | Freeware | Schuler Design Automation GmbH

[Diese Nachricht wurde von tbd am 26. Jul. 2007 editiert.]

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

---

Juhu, der Punkt ist voll definiert, dann können nach dem Mittag fleißig Punkte in Abhängigkeit von der Anlagenbreite vergeben werden, die dann per skizzengesteuertem Muster verschiedenste Anzahlen von gleichen Komponenten bewirken. Leider kann ein lineares Muster nicht mit der Anzahl eins um, das aber auch zurecht...! Vielen Dank nochmal!

------------------
Rettet das Orthogravieh!

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

---

Hallo,

das ganze funktioniert ja sehr gut solange ich ein Makro direkt in SWX schreibe. Nun ist mein Makro allerdings als VBA Makro in Excel drin, da es mehr mit Excel als mit SWX zu tun hat. Bislang störte das auch nicht, doch jetzt kommt bei der Zeile:

Code:

---

tes = swApp.SetUserPreferenceToggle(swconst.swUserPreferenceToggle_e.swInputDimValOnCreate, True)

---

die Meldung "Objekt erforderlich". Das Gleiche Makro in den VBA Editor von SWX kopiert funktioniert ausgezeichnet.
Kann mir da jemand helfen?

Malte

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

---

Hallo Malte,

wie ist dein SolidWorks Applications Objekt swApp deklariert und wie wird es initialisiert?
Normal so:

Code:

---

dim swApp as sldworks.sldworks
swapp = getobject(,"SldWorks.Application")

---

------------------
Mfg Daniel

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

---

Hallo,

so sieht das "ganze" Makro aus:

Code:

---

Sub test2()

Dim swApp As Object
Dim Part As Object
Dim longstatus As Long
Dim longwarnings As Long
Dim boolstatus As Boolean
Dim Annotation As Object
Dim x, y, r As Double
Dim tes As Boolean

    x = 0
    y = 1
    r = 0.3
   
    tes = True
   
    Set swApp = CreateObject("sldworks.application")
   
    Set Part = swApp.ActivateDoc2("Behälter" + Format(Worksheets("I-O").ik_anzahl / 2 + 1) + ".SLDASM", False, longstatus)
   
    tes = swApp.SetUserPreferenceToggle(swconst.swUserPreferenceToggle_e.swInputDimValOnCreate, True)
   
    boolstatus = Part.Extension.SelectByID2("Ebene oben", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    Part.SketchManager.InsertSketch True
    Part.CreateCircle x, y, 0, r, y, 0
    Part.ClearSelection2 True
    boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", r, y, 0, False, 0, Nothing, 0)
    Set Annotation = Part.AddDimension2(x + r + 0.5, y, 0)
    Part.ClearSelection2 True
    boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", x + r, y, 0, False, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
    Set Annotation = Part.AddDimension2(x + r + 0.5, y / 2, 0)
    Part.ClearSelection2 True
    Part.SetPickMode
    Part.ClearSelection2 True
    boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", x, y, 0, False, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("Point1@Ursprung", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
    Part.SketchAddConstraints "sgVERTICALPOINTS2D"
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True

    tes = swApp.SetUserPreferenceToggle(swconst.swUserPreferenceToggle_e.swInputDimValOnCreate, True)
 
End Sub

---

Bis auf die besagte Zeile läuft es sowohl aus dem SWX VBA Editor und dem Excel VBA Editor.

MFG

Malte

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

---

Hast du in Excel einen Verweis auf die swconst Type Library?
Diesen musst du in hinzufügen, da er in der SolidWorks VBA automatisch gesetzt wird.

------------------
Mfg Daniel

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

---

Hallo Daniel,

das scheint es zu sein, denn soetwas habe ich nicht. Wie mache ich das?

MFG

Malte

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

---

Hallo Daniel,

hab mich mit der Hilfe auch so herausgefunden, danke für Deine Mühe. jetzt funktioniert es.

MFG

Malte

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

---

Freut mich wenn ich helfen konnte!
Ja so eine Hilfe ist schon eine recht praktische Sache :-)

------------------
Mfg Daniel

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