|
Lisp : Text aendern
giovanni64 am 23.08.2011 um 08:13 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo giovanni64Ich verweise mal auf diese Seite http://www.cadtutor.net/forum/showthread.php?61827-Text-hight-only -change&s=c217176a7a33b85cd6e53d5715e5ed75 Und verwende das Lisp von Lee das funktioniert.Hallo Heinz,vielen Dank und das ist gut gemeint und ich weiss davon. Dennoch moechte ich anmerken, dass ich nun immer noch nicht weiss,wo mein Fehler in meinem Programm liegt, denn dadurch kann ich auch hinzu lernen.Also bitte nichts fuer ungut!Gruss,Giovanni
| | In das Form Lisp wechseln |
|
Lisp : Text aendern
giovanni64 am 27.08.2011 um 15:29 Uhr (0)
Hi CADmium,ein grosses Dankeschoen fuer die nette Unterstuetzung und fuer das Programm, was ich auch ausprobiert habe und funktioniert ausgezeichnet.Zwischenzeitlich habe ich mich nochmals eingehend mit meinem Programmcode befasst und habe dann, die von Dir verwendete Funktion wie folgtabgewandelt und hat auch funktoniert:Alt: ;(if (/= clr "")(ers 62 clr cla)) Neu: (if ( clr 0)(ers 62 clr cla))Ich muss hinzufuegen, dass ich schon lange nichts mehr mit LISP gemacht habe und somit wieder vieles vergessen hab ...
| | In das Form Lisp wechseln |
|
Lisp : Text aendern
giovanni64 am 27.08.2011 um 15:41 Uhr (0)
Hi Joern,vielen Dank fuer Deine grosszuegige Hilfe und die Kurzanleitung. Auch Dein Programm laeuft hervorragend.Mit Deiner und all den andern ihrer Hilfe ist es mir gelungen, mein Programm wie folgt zum Laufen zu bringen,sonst haette ich es nicht so schnell geschafft:Alt: ;(if (/= clr "")(ers 62 clr cla)) Neu: (if ( clr 0)(ers 62 clr cla))Es ist eben schon viel zu lange her, dass ich mich mit Lisp befasst habe und zum Zeitpunkt meines Problems hatte ich noch andere Sachen fertig zu stellen. Nun habe ich e ...
| | In das Form Lisp wechseln |
|
Lisp : Text aendern
giovanni64 am 23.08.2011 um 10:15 Uhr (0)
Zitat:Original erstellt von CADchup:Hi,der Fehler liegt im Vergleich von NIL mit nix. [i](setq clr (getint "
New Color, Return if no change: "))ergibt NIL, wenn du mit Return drüber gehst, weil ja nur die Texthöhe ersetzt werden soll.Später überprüfst du die Variable clr aber mit:(if (/= clr "")was T ergibt, denn NIL ist keine leere Zeichenfolge, woraufhin die Funktion (ers) 62 mit nil const.Daraus ergibt sich nun ein Farb-Gruppencode (62) und den mag Acad gar nicht....(8 . "404_TX_Lageplan_500_NE") (62 ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
