---

hi
vb proggn kann ich eigentlich, aber:
ich bekomms einfach nicht hin, das ich den Blattmaßstab und das gewicht auslese.
das makro wil ich in einer zeichnung starten, damit ich das schriftfeld ausfüllen kann (grundlage dazu ist das makro aus der MArkomenia) ich habe einige sachen ergänzt und für mich angepasst, aber die beiden sachen wollen nicht! Werkstoff auslesen des teils möchte iich auch
hab probiert und probiert, aber nix geholfen

alles daten sollen von dem teil gelesen werden, das ich in der zeichung darstelle.

danke für eure hilfe

mfg
Kriechi

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

---

Beim "Umweg" über die Dateieigenschaften solltest du den Maßstab mit $PRP:"SW-Blattmaßstab(Sheet Scale)" erreichen.

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

Besucht mich doch einmal ... oder ... auch zweimal ...
-----------------------------------------------------------------
Brot kann schimmeln ... und was kannst Du?

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

---

Hallo Kriechi,

Hab da mal kurz was von einem Makro von uns zusammenkopiert. Dieses Makro überträgt
Eigenschaften vom in der Zeichnung dargestellten Teil/Baugruppe auf die Eingenschaften
in der Zeichnung.

Da mehrere verschiedene Teile/Baugruppen auf einer Zeichnung dargestellt werden können,
muss bei diesem Makro zuerst eine Ansicht selektiert werden, damit für SWX eindeutig
ist, welches Teil/Baugruppe gemeint ist.

Zitat:

---

Dim swApp As Object
Sub main()

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

      Set SelMgr = Part.SelectionManager()
      Part.SelectByID "", "DRAWINGVIEW", 0, 0, 0
      Set SelObj = SelMgr.GetSelectedObject3(1)
      SelObjType = SelMgr.GetSelectedObjectType2(1)
      Message = "Zuerst eine Zeichnungsansicht wählen" & vbCrLf & _
                "und dann Befehl starten."
      '
      If SelObjType = 12 Then
        ModelName = SelObj.GetReferencedModelName
        Set Part = swApp.ActivateDoc(ModelName)
        PartTitle2 = Part.GetTitle
        a = Part.GetCustomInfoValue("", "Gewicht")
    Else
      MsgBox ("Bitte eine Ansicht selektieren")
      End
      End If

    Set Part = Nothing
    Set Part = swApp.ActivateDoc(PartTitle)

MsgBox (a)

End Sub

---

Das Makro kann ev. noch optimiert werden.

Die Zeile "a = Part.GetCustomInfoValue("", "MATERIAL")" liest die Dateieigenschaft
MATERIAL aus, welche im Teil/Baugruppe definiert sein muss, was schon mal zu einem
Probem führen wird, wenn es eine Baugruppe ist, denn Baugruppen beinhalten kein Material 

Das mit dem Masstab verstehe ich aber nicht. Dieser kann man doch direkt ausfüllen lassen

$PRP:"SW-Blattmaßstab"

BTW: Du kannst auch direkt die Eingenschaften von dargestellen Teil/Baugruppe in der
Zeichnung darstellen lassen.

z.B. $PRPSHEET:"Gewicht" (Man unterscheide zwischen $PRP und $PRPSHEET

Wenn du in einer Zeichnung die Eigenschaften vom Blatt abfragst, ist unten links die
Auswahl "Verwende benutzerdefinierte Eigenschaftswerte vom Model in:
Auf Standard bedeutet, die Erste gesetzte Ansicht wird verwendet, ist diese gelöscht, wird
die zweite gesetzte Ansicht verwendet etc.

Da dies nicht eindeutig ist, und ein User dieses Feld nicht zuverlässig richtig füllt,
finde ich die Idee mit dem selektiren einer Ansicht von unserem Reseller ganz gut.

Gruss
Mike

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

The Power Of Dreams Schreib mal wieder

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

---

ok danke werd das mal testen

mir gehts darum, das ich diese eigenschaften (material,gewicht...) eventuell mit meinen makro in ein textfeld einlese und der benutzer wenn er will was anderes reinschreiben kann, falls es nicht passt. deswegen habe ich eine dateieigenschaft "Gewicht" und "Werkstoff" die standartmäßig mit den richtigen werten von SW gefüllt werden, aber denoch der benutzer was ganz anders eintragen kann.

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

---

Hi Leute,

mit so einem ähnlichen Problem hab ich/wir auch zu kämpfen.
Mein Problem: das Gewicht das SWX über Masse bei uns einträgt, ist mir "zu genau".
Ich benötige ein Gewicht mit dem Faktor 1,2 multipliziert, der mir die ganzen Schrauben, Schweißnähte usw. einfach dazuzählt.
Habs schon probiert in der 2D-Ableitung über Eigenschaften einfach *1,2 dazuzuschreiben, aber das hat nicht geklappt.

Gibt es da noch einen anderen Weg, oder ist der einzige das oberhalb erklärte Makro?

lg florian

------------------
Es funktioniert alles so lange, bis es nicht mehr funktioniert.

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

---

ok, hab mich jetzt mal intensiver damit befasst...
einen bezugshinweis mit dem als text:
$PRP:"SW-Blattmaßstab(Sheet Scale)"

ok liefert das ergebnis
aber wie lese ich das mit nem makro aus?
CustomInfo(....
oder ähnliches?

genauso das gewicht:
"SW-Mass" liefert mir ja das gewicht

ic weiß das ich nicht berücksichtigt habe, dass evtl. mehere teile in dieser ziechung siond und so sachen...

mfg

EDIT:
es handelt sich um eine zeichung, kein teil!

[Diese Nachricht wurde von Kriechi am 17. Jul. 2007 editiert.]

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