|
AutoLisp : Umrechnung m2 auf Hektar
Hoppenstedt am 19.02.2004 um 09:18 Uhr (0)
Hallo liebe Lispler Kann mir jemand helfen? Ich habe sehr viele Flächen, die in Quadratmeter angeschrieben sind z.B. 1281.82 m2 (zwischen der Zahl und m2 ist 1 Leerschlag, die 2 nach dem m ist nicht hochgestellt). Jetzt bräuchte ich ein Lisp, welches mir die Fläche in ha umrechnet z.B. auf 0.1282 ha, je nachdem auf- oder abrundet und auf einen eigenen Layer legt z.B. Sa_Flaeche_ha. Die ursprünglichen Quadratmeter sollen erhalten bleiben. Ideal wäre es noch, wenn mann mehrere Texte gleichzeitig auswählen kö ...
| | In das Form AutoLisp wechseln |
|
Lisp : text übertragen auf Multiführungstext
Hoppenstedt am 26.05.2008 um 13:56 Uhr (0)
Hallo liebes ForumBin leider absoluter Lisp-Nichtskönner.Darf ich euch daher mal wieder um Hilfe bitten? Habe hier ein super Lisp (txtcopy) in Verwendung, mit welchem man Textwerte von einem TEXTObjekt zu einem oder mehreren anderen übertragen kann.Dazu meine Frage / Bitte: Geht das auch, um Text auf den Text von Multiführungslinien zu übertragen und wenn ja, könnte mir das jemand zusammen stricken, wenn es nicht zu viel Aufwand macht?Schon mal Danke im voraus.Michael
| | In das Form Lisp wechseln |
|
Lisp : text übertragen auf Multiführungstext
Hoppenstedt am 27.05.2008 um 08:09 Uhr (0)
halloHier ist das Lisp:;;;FehlerSUB (defun myerr (s) (setq *error* alterr alterr nil) (princ (strcat "
TXTCOPY abgebrochen! - " s )));defun;;;Hauptroutine (defun c:TXTCOPY2 ( / aw targetli fromtxt) (command "_.undo" "_G") ;(while (= fromtext nil) (setq fromtxt (entget(car(nentsel)))) (setq fromtxt (assoc 1 fromtxt)) (setq aw (car(nentsel))) (while (/= aw nil) (redraw aw 3) (setq targetli (append (list aw) targetli)) (setq aw (car(nentsel))) );while (mapcar (lambda (X) ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
