---

Hallo Zusammen,

ich verwende in Mechanical verschiedene Symbolstandards für
Führungen und Positionsnummern. Mit einem Makro wechsle ich den
Standard und erzeuge meine Positionsnummer und stelle den Standard zurück, das funktioniert einwandfrei.
Wie schaffe ich es die Symbolstandards in z.B. fremde Zeichnungen die
diese nicht enthalten automatisch zu importieren.
Ich hatte da an einen Eintrag in der acaddoc.lsp gedacht der dafür sorgt daß aus einer Definierten Datei alle oder wenn möglich nur bestimmte Symbolstandards importiert.
P.S.
Mech-Befehl zum bearbeiten der Symbolstandards: amsymstd

Danke und Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

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

---

Hallo Wolfgang,

Zitat:

---

Original erstellt von Wolli:
..Mit einem Makro wechsle ich den
Standard und ..und stelle den Standard zurück, das funktioniert einwandfrei.

---

Dein Beitrag ist schon etwas her, mich würde interessieren wie das wechseln per Makro (VBA?) funktioniert, kannst Du Das nochmal aus der Kiste kramen und hier beschreiben? Das Importieren gienge z.B. mit _insert.

Gruß Peter

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

---

mit dem Mechanicalbefehl : amsymstd (Siehe Oben) ..
die in der DWG vorhandenen Standards kannst du aus dem ACMSTDDictionary extrahieren.

@Wolli.. Export/Import durch vla-copy-objects auf das entsprechende Dictionaryobject. Evtl. reicht aber ein amsetupdwg in der Kommandozeile
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

Danke für die Antwort.
amsymstd bringt je nach Version / SP verschiedenes Verhalten. Ich bekomme den Dialog weder mit expert 5 noch mit (gensvc) weg. Deshalb dachte ich an VBA McadStandardMgr / McadStandard. Da hat sich mir leiser noch nicht erschlossen wie der Standard gesetzt werden kann, löchen, umbenennen, abfragen, kopieren... geht mit VBA.
Geht das setzen mit LISP ohne Dialog?

Gruß
Peter

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

---

Pos..jpg

Hallo Peter,

das Makro ist kein VBA sondern nur folgender Code hinter der Schaltfläche:

^C^Ccmddia;1;-layer;se;am_0;;cmddia;0;amsymstd;shs_tb2_position;cmddia;1;amnote;\\;cmddia;0;amsymstd;shs_tb2;cmddia;1;

So kann ich normale Führungen verwenden (Schweißzeichen, Form-Lage..., mit Pfeil und Text gelb in 3,5mm) und mit Klick auf die Positionsschaltfäche (Positionsnummer mit Bommel, weiß und 5mm höhe)

Die Symbolstandards müssen aber im Dokument vorhanden sein darum meine Frage nach dem automatischen importieren.
In neuen Zeichnungen sind meine Standards immer vohanden da sie in der Vorlagedatei .dwt angelegt sind.

Das Makro macht folgendes:
1. Layer AM_0 aktuell
2. Dialog ausschalten
3. Symbolstandard für Positionsnummern aktuell
4. Führung für Positionsnummer aufrufen
5. Dialog einschalten
6. Symbolstandard wieder zurückstellen.

@Cadmium mit amsetupdwg komme ich weiter,
mit vla-copy-objects  komme ich nicht zurecht.

Gruß Wolfgang

------------------
"Früher war die Zukunft besser"
-Karl Valentin-

[Diese Nachricht wurde von Wolli am 18. Sep. 2006 editiert.]

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

---

Hallo Wolfgang,

Super, danke das ist noch besser als erhofft.
Ich benutze das um verschiedene Stücklisten einzufügen, geht mit deiner Vorlage jetzt auf Knopfdruck.

Gruß Peter

[Diese Nachricht wurde von Peter am 20. Sep. 2006 editiert.]

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