---

Guten Morgen,

da wir des Öfteren Probleme haben dass unsere Multilinien kaputt sind habe ich mir überlegt eine kurze Lisp zu schreiben die diese Linien wieder repariert.

Mein Ansatz:

-Standard als Standard Multilinienstil setzen
-alle Multilinien markieren
-alle Multilinien löschen
-Multilinienstile neu laden
-Gelöschten Linien wieder zurück holen

(command "cmlstyle" "standard")
(setq ss (ssget "_X" '((0 . "MLINE"))))
(command "_erase" ss "")
(command "-bereinig" "m" "*" "n")
(command "loadmlstyles" "mlstyles.mln")
(command "hoppla")

Mein Problem liegt beim mlstil laden. Komischerweise funktioniert dieser Befehlt nur in der Kommandozeile und nicht in einer Lisp.

In der CUI würde der Befehl auch funktionieren allerdings habe ich keine Ahnung wie ich dort alle Multilinien lösche.

Bitte bitte helft mir

LG Richard

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

---

"Mein Problem liegt beim mlstil laden. Komischerweise funktioniert dieser Befehlt nur in der Kommandozeile und nicht in einer Lisp".

Das liegt dann wohl in der Tatsache das es keinen konventionellen Befehl "loadmlstyles" in AutoCAD gibt,
dies ist ebenfalls der Grund warum dir hier ggf. niemand helfen kann - "Unser AutoCAD" kann das noch nicht mal in der Befehlszeile 

Glaskugel1:
Man kann Lispdefinierte AutoCAD-Befehle über Lisp starten, aber keine weiteren Eingaben übergeben.
Sollte sich hinter dem magischen Befehlsaufruf eine Lispfunktion verstecken, so wäre der Fall damit geklärt.

Glaskugel2:
Versuche es mal so:
anstatt (command "loadmlstyles" "mlstyles.mln")
einfach (LoadMln "D:\\MeinPfad\\MeinMLstil.mln")

"In der CUI würde der Befehl auch funktionieren"
IN DER CUI bedeutet nicht gleich OHNE Lisp, du kannst in dein Menümakro auch Lisp-Anweisungen schreiben,
das Makro macht nichts weiter wie diese in die Befehlszeile zu sehen (und dort ist Lisp ja zulässig).
Also meintest du damit "als Makro ohne Lisp geht es" JA

"allerdings habe ich keine Ahnung wie ich dort alle Multilinien lösche."
Das könntest du dort auch schon wie zuvor machen, denn Lisp ist in dem Menümakro ebenso erlaubt..

Ungetestet, aber so ähnlich wird es wohl funktionieren. Korrekturen kannst du ja von Grund auf selbst in der Befehlszeile erarbeiten.
^C^C(if (setq ss (ssget "_X" '((0 . "MLINE"))))(command "_.CMLSTYLE" "Standard" "_.ERASE" ss "" "_.-PURGE" "_m" "*" "_n" "(LoadMln \"mlstyles.mln\")" "_.OOPS"))

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

MLStyleLoadFunc.zip

anbei mal eine vlx, die eine (dialoglose) Laderoutine ( und mehr ) für Multilinienstile bereitstellt ....

(MLSTYLESFILELIST "Dateiname")  listet alle in der Datei gefundenen Stile auf
(MLSTYLESDOCLIST)              listet alle in der DWG gefundenen Stile auf
(MLSTYLESLOAD    "Dateiname")  läd alle Stile aus der Datei
(MLSTYLELOAD      "Dateiname" "Stilname") lädt den einzelnen Stil aus der Datei
(MLSTYLERELOAD    "Dateiname" "Stilname") lädt den einzelnen Stil aus der Datei neu

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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