|
AutoLisp : Ersetzen über Lisp
mkl-cad am 18.06.2004 um 11:45 Uhr (0)
Hallo Pally Tom hat auf einen Beitrag hingewiesen der die Antwort liefert. hab hier noch mal das Programm reinkopiert. Damit s jeder findet. Habe ich ausprobiert. Funktioniert fabelhaft. Dankt Tom Berger. Tom Berger ;;; GSR.LSP / 12APR95 ;;; ;;; Copyright (C) 1995 by Thomas Berger ;;; ;;; FREEWARE: ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copie ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ersetzen über Lisp
mkl-cad am 18.06.2004 um 09:43 Uhr (0)
Hallo Pally Interessantes Thema. Eine Lösung könnte ich auch gut gebrauchen. Ich denke am besten währe nicht nur Text und Mtext sondern auch Blöcke. Genau so wie im Befehl _find. ------------------ Martin
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textstil ohne command erstellen/ändern
mkl-cad am 21.11.2005 um 13:59 Uhr (0)
Ist mal etwas gelöst taucht gleich das nchste Problem auf :-(Wenn ich nun die Zeichnungen voin arial.ttf nach arial.shx umgeändert habe gibt es Probleme mit und-color: #FFFF99'>Mtexten. Erstelle ich neue oder bearbeite bestehende, so steht dort der Schriftstil auf Proxy1:Arial. Die Text erscheinen dort als TXT Schrift und werden in Arial.shx auf dem Bildschirm ausgegeben. Gedruckt werden die überhaupt nicht. Stellt man die innerhalb des MTEXT Editors auf Arial.ttf werden die Sonderzeichen (Durchmesser) an den Zeilenanfang ges ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : bflösch mtext -> .mtext funzt nicht
mkl-cad am 16.09.2005 um 09:24 Uhr (0)
Hallomit (command "bflösch" "mtext") kann man den Befehl deaktiviern bzw. löschen. Um ihn dennoch mit Lisp oder mit ACAD zu benutzen setzt man in der Regel einen Punkt vor dem Befehl (command ".mtext"). Warum funzt das bei mtext nicht? gibt es da ne andere Möglichkeit? Wollte die Funktion hiermit ersetzen. (defun c:mtext ( / a) (setq a (getpoint "
Startpunkt: ")) (command ".MTEXT" a "B" "") (princ) )------------------ Martin Viele Grüße aus dem schönen Münsterland!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Textstil werden nicht angenommen
mkl-cad am 24.05.2006 um 07:43 Uhr (0)
Hallo Bauvermesser,wenn die Texthöhe des Textstils geändert wird ändern sich vorhandene Texte erst wenn diese erneut auf den Textstil gesetzt werden oder auf einen andern Textstil geändert werden.Beispiel. Habe Textstil T18 mit Höhe 1.8 und Textstil T70 mit Höhe 7Habe ich nun einen Text mit T18 geschrieben und ändere den auf Textstil T70 ändert sich auch die Texthöhe. Ändere ich nun den Textstil T70 auf Höhe 1 ändert sich nichts. Ändere ich den Text erneut auf T70 ändert sich auch die Texthöhe.War schon im ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
mkl-cad am 14.11.2005 um 09:59 Uhr (0)
Hallo,das habe ich mir fast gedacht. Dazu verwenden wir foldendes Lisp:(defun c:e-nummer ( / wert a r o o2 l aa) (setq wert 1 r -1 a (ssget "x" ((0 . "Insert") (2 . "E-nr")))) (if (= a nil)()(progn (repeat (sslength a) (setq r (+ r 1)) (setq o (ssname a r)) (setq o2 (atoi (cdr (assoc 1(entget(entnext o)))))) (if (= o2 nil)(setq o2 "0")()) (if (or ( o2 wert)(= o2 wert))(setq wert (+ 1 o2))()) ))) (setq aa (tblsearch "layer" "E-stromkreisnr-ne")) (if (= aa nil) (command "layer" "neu" "E-stromkreis ...
|
| In das Form AutoLisp wechseln |
