---

hallo zusammen,

bin auf der suche nach einem lisp file, dass es ermöglicht
- alle textstile mit txt.shx auf simplex.shx zu setzen
- und anschließend eine zeichnungsprüfung & zeichnungsbereinigung durchzuführen (dienstprogramme>prüfung; dienstprogramme>bereinigen...)

ist sowas in lisp-form überhaupt möglich (im speziellen die zeichnungsbereinigung)?
hab im forum in diese richtung nichts gefunden, daher mein post.

hoffe ihr könnt mir weiterhelfen, bin was lisp angeht nicht so versiert.

danke, beste grüße hias

------------------
M.Fink

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

---

Willkommen als Aktivposter auf Cad.de.

Zu deiner Frage : So was ist mit Lisp relativ einfach möglich.
Für das Bereinigen und Prüfen reichen schon 2 commandaufrufe :
(command "_audit" "_y")
und
(command "_-purge" "_all" "*" "_n")

Als Lispeinstieg empfehle ich das "Kochbuch Autolisp" und die Tutorials von Mapcar

Fürs Suchen empfehle ich das 

Zu deiner Anfrage betreffs Programm zum Textstiltausch möchte abschließend ich auf den Beitrag von Tom hinweisen.

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

---

herzlichen dank für deine hilfe. es freut mich das man hier so offen aufgenommen wird.

zum thread: jetzt hab ich nur  noch ein problem: ich bräuchte diese drei sachen in einem lisp verpakt, habe aber überhaupt keine ahnung wie sowas im geringsten aussieht.
wie gesagt, bin ein lisp-neuling.

könnte sich wer erbarmen und mir vieleicht diesbezüglich so ein lisp zusammenstellen?

nochmals danke für die mithilfe.

------------------
M.Fink

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

---

Xrein.lsp.txt

@M.Fink
"könnte sich wer erbarmen..." -> gerne
->Lisp im Anhang (.txt entfernen, mit appload laden, mit Xrein starten)

Gruß Claudio

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

---

hallo claudio,

herzlichen dank für deine bemühungen, genau sowas wollte ich haben!!!

einfach super. nochmals vielen dank.

beste grüße

------------------
M.Fink

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

---

Gradiente.dwg.txt

hallo zusammen,

habe das lisp von claudio getestet, funktioniert bei sehr gut. bei einigen dwg files funktioniert das wechseln der txt auf simlex nicht. im anhang eine beispieldatei. bitte um hilfe

------------------
M.Fink

[Diese Nachricht wurde von Knif.m am 25. Jul. 2008 editiert.]

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

---

probier damit und versuch es zu verstehen :

(defun c:Xrein (/ TX_ST) (vl-load-com)
  (setq TX_ST (vla-get-Textstyles
(vla-get-ActiveDocument (vlax-get-acad-object))
              )
  )
  (vlax-for i TX_ST (if (or(=(strcase(vla-get-fontFile i)) "TXT.SHX")
                          (=(strcase(vla-get-fontFile i)) "TXT")
                        )
      (vla-put-fontFile i "simplex.shx")
                    )
  )
  (command "_audit" "_y")
  (command "_purge" "a" "*" "n") (princ "...ausgeführt!")(princ)
)
(princ "Programm geladen -> mit XREIN starten")

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

---

danke CADmium, jetzt funktioniert's zu 100%.

grüße

------------------
M.Fink

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