---

Hallo,

ich bin ein Lisp-Neuling und gerade dabei, ein Programm zu schreiben das verschiedene Bemaßungsstile nutzt. Nach längerem suchen und probieren hab ich dann auch die nötigen Befehle gefunden um einen Bem.Stil nach meinen Ansprüchen anzulegen.
Das Problem ist, dass die Eigenschaften des erstellten Bem.Stils nach einem Wechsel zu einem anderen Bem.Stil gelöscht sind.
Da mehrere meiner Programme diesen Bem.Stil nutzen sollen, war meine Idee eigentlich, dass der Bem.Stil in einem Programm erstellt wird auf das sich dann die einzelnen anderen Programme beziehen können.
Zur Veranschaulichung die Befehle wie sie z.Z. sind:
;
; Zum speichern im Anfangsprogramm:
(DEFUN Bemaßungsstil-Tür ()
    (IF (NOT Bemaßungsstil-Tür)
      (COMMAND "BEMSTIL" "SI" "Bemaßungen" "DIMSCALE" "8" "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN"  )
      (PRINC)
      )
  (PRINC)
  )
;
(DEFUN STB ()
  (COMMAND "BEMSTIL" "H" "Bemaßungen")
  (PRINC)
  )
; und zum aufrufen in einem anderen Programm:
(STB)
;
Wie gesagt, bei einem Wechsel zu einem anderen Bem.Stil werden die Einstellungen meines Bem.Stils verworfen. Auf die Idee anstatt dem "SI" gleich ein "H" einzufügen und dies dann aufzurufen bin ich schon gekommen. Allerdings sind die Eigenschaften dann nach Beendigung des kompletten Lisp-Programms nicht verfügbar. Das wäre aber unbedingt notwendig um evtl. nachträglich noch mit diesem Bem.Stil Änderungen einzuzeichnen.
Es müsste also noch ein Befehl eingetragen werden um ihn "Als aktuell speichern" zu können, wie es im Bemaßungs-Manager durch Rechtsklick auf <Stilüberschreibungen> möglich ist.
Ich vermute mal, dass an der Stelle an der ich den Smily eingezeichnet habe ein Befehl fehlt. Nur wie heißt er?!?
Ich wäre wirklich sehr dankbar wenn mir jemand helfen könnte.

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

---

einen Bemaßungsstil aktuell setzen kanst du mit (setvar "DIMSTYLE" DIMSTYLENAME) ..

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

und vielen Dank für die schnelle Antwort.
Ich hab heute versucht deinen Ratschlag zu befolgen, aber ich hab es einfach nicht hinbekommen. Ich habe verschiedene Methoden ausprobiert, aber gespeichert wurde der geänderte Bemaßungsstil nie.
So sah das bei mir aus als ich aufgegeben habe:

(DEFUN Bemaßungsstil-Tür ()
  (COMMAND "BEMSTIL" "SI" "Bemaßung" "DIMSCALE" "8"
  "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN")
  (SETVAR "BEMSTIL" "Bemaßung")
  (PRINC)
  )

Und die folge davon sieht so aus:

; Fehler: Einstellung für AutoCAD-Variable zurückgewiesen: "BEMSTIL" "Bemaßung"

Bitte erkläre es mir nochmal genauer. Das muss doch irgendwie hinzukriegen sein.

Grüße Michael

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

---

na dann:
(command "-dimstyle" "_restore" "bemaßung")

------------------
  - 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 ist leider auch noch nicht so ganz das wahre.
Ist deine Antwort eine Übersetzung meines anfänglichen Fehlversuchs in englisch?

(COMMAND "BEMSTIL" "SI" "Bemaßungen"

Auf jeden Fall funktioniert es leider immer noch nicht.

------------------
bleib' tapfer!

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

---

Aus der Hilfe:

 

Zitat:

---

DIMSTYLE System Variable

(Read-only)
Type: String
Saved in: Drawing

DIMSTYLE is both a command and a system variable. The DIMSTYLE system variable shows the current dimension style. To display the DIMSTYLE system variable, use the SETVAR command. The DIMSTYLE system variable is read-only; you cannot change its value on the command line. To change the current dimension style, use the DIMSTYLE command.

---

Die kannst du nicht mit

Code:

---

(SETVAR "DIMSTYLE" "Bemaßung")

---

oder aber auch

Code:

---

(SETVAR "BEMSTIL" "Bemaßung")

---

aktuell setzen....

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 16. Jan. 2007 editiert.]

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

---

also (command "-dimstyle" "_restore" "bemaßung") klappt bei mir .. und das sind die internationalen Befehle

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

---

Ola CADmium,

hab's grad nochmals ausprobiert. Wieso geht das bei dir und bei mir nicht. Bitte schreib mir etwas ausführlicher wie du es geschafft hast den geänderten Bemaßungsstil als aktuell zu speichern.

(command "-dimstyle" "_restore" "bemaßung" "DIMSCALE" "8" "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN")

So, jedenfalls nicht.

------------------
bleib' tapfer!

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

---

was packst du aber auch alles in eine Zeile ... das kann ja nicht funktionieren..proggen ist ein bißchen mehr als nur zusammenkopieren .. (obwohl ich jetzt auch nix anderes gemacht hab)   

(DEFUN Bemaßungsstil-Tür ()
  (COMMAND "BEMSTIL" "SI" "Bemaßung" "DIMSCALE" "8"
  "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN")
  (command "-dimstyle" "_restore" "bemaßung")
  (PRINC)
)

und wie schon öfter gesagt .. als Einsteiger sollte man mal einen Blick in  Mapcars Tutorial werfen, oder besser noch komplett lesen..
------------------
          - 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

---

WAHNSINN,
es funktioniert!!!! Allerdings nicht mit deinen Zeilen, CADmium. Die erzeugten bei mir zwar einen neuen Bem.Stil "bemaßung", allerdings waren die Änderungen nicht gespeichert.
Ich habe dann ein paar andere Möglichkeiten ausprobiert.
So z.B. das "SI" durch ein "H" ersetzt:

(DEFUN Bemaßungsstil-Tür ()
  (COMMAND "BEMSTIL" "H" "Bemaßung" "DIMSCALE" "8"
  "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN")
  (command "-dimstyle" "_restore" "bemaßung")
  (PRINC)
)

Dies erzeugte eine <Stilüberschreibung> für den Bem.Stil ISO-25, die man allerdings auch erst wieder "Als aktuell speichern" musste.
Und jetzt kommts:
Danach hab ich deine englische Zeile übersetzt und eingegeben (mit "H" statt "SI"):

(DEFUN Bemaßungsstil-Tür ()
  (COMMAND "BEMSTIL" "H" "Bemaßung" "DIMSCALE" "8"
  "DIMEXE" "0" "DIMTOH" "EIN" "DIMTIH" "EIN")
  ; erstellt <Stilüberschriebung> für ISO-25
  (COMMAND "BEMSTIL" "SI" "bemaßung")
  (PRINC)
)

Und siehe da; Es funktioniert!!!!!

Zitat:
das kann ja nicht funktionieren..proggen ist ein bißchen mehr als nur zusammenkopieren ..

-Stimmt, normalerweise hast du vollkommen recht. Hirn ist auf jeden Fall gefragt beim programmieren.
Aber du musst doch zugeben, dass es bei den funktionierenden Zeilen doch sehr an Logik fehlt.
Den Link zu Mapcars Tutorial hab ich vor einigen Wochen bereits gefunden und mir das Ganze zu Gemüte geführt.

Tausend Dank für deine Mühen. Ich kann mir zwar absolut nicht erklären warum bei mir nicht funktioniert was bei dir einwandfrei läuft, aber ich bin froh, dass es letztendlich doch noch gefunzt hat.

Grüße,
Michael

------------------
bleib' tapfer!

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