---

Hallo!!
Gibt es in SWX 2004 eine Möglichkeit, in einer Isoansicht eine 3D-Skizze mit xyz-Koordinaten zu bemassen oder in eine Tabelle auszugeben?? Ähnlich so wie in einer Bohrungstabelle.
Gruss Ricarda

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

---

Hallo Ricarda,

willkommen im Forum 

Zum bemassen erst eine Standardebene anklicken, dann den Punkt.
Tabelle weiß ich nicht.

Beste Grüße & bis demnäx
Ralf

------------------
  KLAMM? Was ist KLAMM?

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

---

Hallo Ralf,
vielen Dank, aber einzelne Maße werden zu unübersichtlich.
Ich habe mich mit bemaßen nicht so richtig ausgedrückt. Ich brauche etwas, wo ich direkt mit einem Maß oder Klick alle 3 Koordinaten sehen kann.

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

---

Hallo Ricarda,

wie wärs mit einem Macro?  

Code:

---

Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set sketch = Part.GetActiveSketch2
    If (sketch Is Nothing) Then
        MsgBox ("Please open the sketch")
        End
    End If
    points = sketch.GetSketchPoints
    Open "out.sldcrv" For Output As 1
    s = 1 ' to export as meters, otherwise set your scale factor here
    For Each p In points
        Print #1, s * p.x, s * p.y, s * p.z
    Next p
    Close 1
End Sub

---

Ist leider nicht von mir   - war glaub' ich in der google-newsgroup, als ich noch nicht mitaufgezeichnet habe wo ich die Daten herhole   . Funktioniert aber  
In der Datei 'out.sldcrv' (eine Textdatei) sind dann die Punktdaten enthalten.

HTH,
Ralf

------------------
   KLAMM? Was ist KLAMM?

[Diese Nachricht wurde von Ralf Tide am 11. Dez. 2003 editiert.]

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

---

Hallo Ralf,
das Makro hat mir schon mal ein wenig weiter geholfen, nur leider kann man die Koordinaten, die von dem Makro erzeugt wurden, nicht den Skizzenpunkten zuordnen.
Gruss Ricarda

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

---

Zitat:

---

Original erstellt von Ricarda:
...nur leider kann man die Koordinaten...nicht den Skizzenpunkten zuordnen...

---

Hallo Ricarda,

doch, geht 

Code:

---

Dim Anz As Integer
Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set sketch = Part.GetActiveSketch2
    If (sketch Is Nothing) Then
        MsgBox ("Please open the sketch")
        End
    End If
    Anz = 1
    points = sketch.GetSketchPoints
    Open "out.sldcrv" For Output As 1
    s = 1 ' to export as meters, otherwise set your scale factor here
    For Each p In points
        Print #1, Anz, s * p.x, s * p.y, s * p.z
        Dim Note As Object
        Dim Annotation As Object
        Dim TextFormat As Object
        Set Note = Part.InsertNote("Punkt" & Anz)
        If Not Note Is Nothing Then
          Note.angle = 0
          boolstatus = Note.SetBalloon(0, 0)
          Set Annotation = Note.GetAnnotation()
          If Not Annotation Is Nothing Then
            longstatus = Annotation.SetLeader2(False, 0, True, False, False, False)
            boolstatus = Annotation.SetPosition(p.x, p.y, p.z)
            boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
          End If
        End If
        Part.ClearSelection2 True
        Part.WindowRedraw
        Anz = Anz + 1
    Next p
    Close 1
End Sub

---

Ich geb zu ist nicht die eleganteste Methode  , funkioniert und geht recht einfach. Ich hab' dazu den MacroRecorder benutzt. Eine Beschriftung gesetzt. Dann das Ganze in die Schleife kopiert. Anz hinzugefügt und die 'Beschriftung' an die entsprechenden Punkte gesetzt (SetPosition(p.x, p.y, p.z)).

Noch Fragen? 

Beste Grüße & bis demnäx
Ralf

------------------
  KLAMM? Was ist KLAMM?

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

---

Hallo Ralf,
klappt gut! Vielen Dank.
Gruss Ricarda

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

---

hallo!

das macro hat allerdings einen kleinen nachteil:

sobald ein punkt der 3d-skizze verknüpft ist (z.b. mit dem endpunkt einer bauteilkante), erscheint der punkt doppelt in der liste bzw. die beschreibung ist 2x zu sehen.

sonst ist es ein nettes macro...   

bis dahin...

stahly

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

---

Zitat:

---

das macro hat allerdings einen kleinen nachteil:
sobald ein punkt der 3d-skizze verknüpft ist (z.b. mit dem endpunkt einer bauteilkante), erscheint der punkt doppelt in der liste bzw. die beschreibung ist 2x zu sehen.

---

Genau! und das ist mir vollkommen Schnuppe, denn das kleine Makro ist schon mehr als ich verlangt hätte!
(P.S.: Das mit dem "Schnuppe" bitte nicht in den falschen Hals bekommen ;-) denn so wie's sich's anhört ist's nicht gemeint)

------------------
Gruß, der Teddibaer

---------
Es gibt Tage an denen verliert man, und es gibt Tage, an denen kann man nicht gewinnen ... Das Leben ist eben kein Schlotzer.

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

---

Kurze Frage hierzu,

bei mir funktioniert nur die Punkte-Numerierung.
Wie bekomme ich denn die Koordinaten?
Und wo geht denn diese Datei out.sldcrv hin ?

Bin jetzt kein Macro-Profi, aber bis jetzt haben alle funktioniert,
die ich hier abgekupfert habe, nur das hier komischerweise nicht.
Ich mach garantiert irgendwas ganz simples falsch,
nur was ?

------------------
Jedes Ding ist Gift und kein Ding ist Gift.
Allein die Dosis macht, daß ein Ding kein Gift ist. (Paracelsus 1493 - 1541)

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

---

Ok, hab den Fehler gefunden.
Wenn ich in meinem System irgendwo eine Datei out.txt erzeuge,
und diesen Pfad im Macro eingebe,
dann funzts prächtig.
Jetzt hab ich das Makro auch verstanden.

:-D

------------------
Jedes Ding ist Gift und kein Ding ist Gift.
Allein die Dosis macht, daß ein Ding kein Gift ist. (Paracelsus 1493 - 1541)

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

---

hallo zusammen,

ich versetehe die zuordnung der koordinaten nicht ganz. Auf welchen ursprung gehen die? ist bei mir ganz kohmisch alles nur sehr kleine werte obwohl die recht weit entfernt sind? In welcher einheit sind die und welcher reihenfolgen also xyz?

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

---

Zitat:

---

Original erstellt von Plumps2ooo:
hallo zusammen,

ich versetehe die zuordnung der koordinaten nicht ganz. Auf welchen ursprung gehen die? ist bei mir ganz kohmisch alles nur sehr kleine werte obwohl die recht weit entfernt sind? In welcher einheit sind die und welcher reihenfolgen also xyz?

---

Die Koordinaten sind in Meter! Wenn Du mm haben möchtest, musst Du alle Werte noch x1000 rechnen 

------------------

http://www.worldcommunitygrid.org

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

---

Hey, danke für die Andwort,

Wie andere schon bemerken gibt es einen kleinen Bug. Ich habe in meine 3D - Skizze Punkte die als mittelpunke von endsprechenden linien definiert sind. jetzt nimmt er die anfangs und endpunkte der linien mit! UNd das in unvorhersebarer Reihenfolge! Kann das jemand änder?

--> ich kann das nähmlich nicht, hab von Makros nicht wirklich viel Ahnung!

Wenn mir da jemand weite helfen könnte! Ich brauch zu den Punkten, die bei mir bohrungsmittelpunkte sind noch die Ausrichtung der bohrung im Raum!

Danke schon mal!

[Diese Nachricht wurde von Plumps2ooo am 21. Jul. 2008 editiert.]

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

---

Kann mir hier keiner Helfen?    

[Diese Nachricht wurde von Plumps2ooo am 22. Jul. 2008 editiert.]

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

---

Hallo,

hast Du schon mal versucht, die Mittellinien auszublenden und dann das Macro laufen zu lassen? (Auswahlfilter Mittellinien benutzen)

Gruß HaPe

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

---

Morgen!

ne ne,

Die Mittellienien sind überhaupt nicht in der Skizze, die Punkte haben einfach eine Beziehung zur Skizze der Bohrungen!

Danke für die fixe Andwort, bin echt am verzweifeln. Mir fehlt für die Makros selbst zu viel Hintergrund!

[Diese Nachricht wurde von Plumps2ooo am 22. Jul. 2008 editiert.]

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

---

man, jetzt benennte er mir punkte sogar schon doppelt.

Hab die Punkte jetzt als Muster erzeugt, ging auch erst aber jetzt benennt er mir ein paar Punkte doppelt!

Kann mir Bitte jemand sagen warum?
Danke

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

---

schade  

[Diese Nachricht wurde von Plumps2ooo am 25. Jul. 2008 editiert.]

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

---

Hallo,
ich hole diesen älteren Beitrag wieder nach oben, da ich jetzt schon länger nach sowas ähnlichem gesucht habe.

Das 2. Makro von Ralf Tide kommt dem ziemlich nahe.
Dieses Makro ist für mich auf jedenfall brauchbar, allerdings wird es bei vielen, nebeneinander liegenden Punkten schnell unübersichtlich.

Toll wäre es, wenn man in der Zeichnung direkt die Koordinaten als Bezugshinweis mit einem Pfeil plazieren könnte.
Oder als Alternative nur die Nummerierung, aber mit Pfeil auf den Koordinatenpunkt.

Ich habe das heute versucht, bin aber in Sachen Makro ein blutiger Anfänger.

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