---

Hallo zusammen,

kennt jemand einen Weg mittels Lisp die Symbol-Standards einer Zeichnunge zuzuweisen?
Ich meine damit die Einstellung in den Optionen/AM:Normen/Norm.
Hier kann man ISO, DIN, ANSI usw. auswählen.
Das Ganze geht auch mit dem Befehl Amsymstd

Allerdings reagiert er bei mir auf diesen Befehl nicht mehr, sobald ich cmddia auf 0 geschaltet habe.

Vorab vielen Dank
Ralph

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

---

also bei mir gehts mit CMDIA auf 0 und dann

Befehl: CMDDIA
Neuen Wert für CMDDIA eingeben <1>: 0
Befehl: AMSYMSTD
Aktuellen Symbolstandard einstellen <KE-TKA>:
Aktueller Standard erfolgreich eingestellt.
.....

Via Lisp hilft das vielleicht begrenzt weiter :

(vl-load-com)
(if(and(not(vl-catch-all-error-p
             (setq SYMMGR(vl-catch-all-apply
                          'vla-getInterfaceObject
                          (list (vlax-get-acad-object)"SymBBAuto.McadSymbolBBMgr")
                         )
             )
           )
       )
       (=(type SYMMGR)'VLA-OBJECT)
       (not(vl-catch-all-error-p
             (setq STMGR(vl-catch-all-apply
                          'vlax-get-property
                          (list SYMMGR "StandardMgr")
                        )
             )
           )
       )   
   )                       
  (vlax-dump-object  STMGR 'T)
)

allerdings ist defaultstandard readonly ....

einen anderen Weg hatte ich mal hier beschrieben

------------------
       - 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 CADmium,

das Problem ist meines Erachtens, dass bei den Problemzeichnungen in Wirklichkeit gar kein Standard eingestellt ist.
Ich kann die Zeichnungen nur begrenzt bearbeiten.
Wenn cih z.B. ein Maß setzten will, kommt eine Fenster "Kein Standard in aktueller Zeichnung. Fortfahren nicht möglich."
Wenn ich bei den Zeichnungen dann händisch in den Optionen die Norm von "angeblich" DIN auf ISO und dann wieder zurück auf DIN stelle, passt alles.

Wenn ich amsymstd eingebe, erscheint das normale Fenster und es ist kein Standard definiert.
Schalte ich cmddia auf 0, reagiert er gar nicht, außer ich habe vorher manuell einen Standard definiert.

Dein Lisp-Programm bringt 2 Zeilen die bestätigen dass da was faul ist:
;  CurrentStandard = Ausnahmefehler aufgetreten
;  CurrentStandardName = Ausnahmefehler aufgetreten

Irgendeine Idee?

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

---

amsetupdwg ausführen ?

------------------
  - 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

---

Das funktioniert anscheinend, lässt sich aber nicht automatisieren, oder?
Da kommt doch immer diese Meldung dass das nicht rückgängig gemacht werden kann.

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

---

der Befehl läßt sich auch automatisieren .. hatte ich auch mal ne Tool für  jemanden geproggt ... Verzeichnis wählen und alle Dateien in dem Verzeichnis werden auf die zu wählende Vorlage getrimmt..
Durch den Befehl amsetupdwg werden Dictionaries ..u.a. für die Standards angelegt ... so dass das dann eine Mechanical Zeichnung ist ( Acad pur stört sich aber nicht an den zusätzen ) , deshalb der Hinweis nach dem nicht mehr Rückgängig machen ...

------------------
  - 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

---

Vielen Dank mal.
Ich hab jetzt per VBA das amsetupdwg bei 100 Zeichnungen durchgeführt.
Musste zwar bei jeder Zeichnung "j" drücken, ist aber besser als jede Zeichnung komplett händisch zu verarzten.

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