(defun C:test10 (/) (setq clay (getvar "CLAYER")) (setq OSM (getvar "osmode")) (setq ASN (getvar "autosnap")) (setq TG (getvar "textsize")) (setq DEZ (getvar "luprec")) (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq (command "_UNDO" "_MARK") ;Marke für Zurück nach Abbruch setzen (setvar "OSMODE" 32) (setvar "autosnap" 39) (setq Mass 100) ; Fester Skalierfaktor (setq MASSNEU (* 2.5 MASS)) (command "textsize" MASSNEU) (Setq BA (Getint "\nBauabschnitt: ")) (Setq A (Getint "\nStart Radialachse (Zähler): ")) (Setq RA (Getint "\nStart Ringachse (konstant): ")) ; ==================================texthöhe (SETQ th (GETREAL "Texthöhe eingeben: ")) ; ==================================dateiname anlegen (setq listnam (getfiled "Punktliste anlegen" "Textfile" "txt" 1)) (if listnam (progn (While (setq pkt (getpoint "Punkt zeigen: ")) ; ==================================punktnummer (Setq F (Itoa A)) ;(setq XA "") (if (< A 10) (setq XA "0")) ;(setq XRA "") (if (< RA 10) (setq XRA "0")) (setq NR (strcat (itoa BA) " " (itoa A) " " (itoa RA))) ; ==================================punkt setzen (Command "_point" pkt) ; ==================================punkt beschriften (entmake (LIST '(0 . "TEXT") '(8 . "CT-Allianz-Modell00") (CONS 10 pkt) (CONS 40 th) (CONS 1 nr) ) ) (SETQ pkt (polar pkt (/ (* pi 3) 2) (* th 1.3))) (entmake (LIST '(0 . "TEXT") '(8 . "CT-Allianz-Modell01") (CONS 10 pkt) (CONS 40 th) (CONS 1 nr) (CONS 1 (rtos (car pkt))) ) ) (SETQ pkt (polar pkt (/ (* pi 3) 2) (* th 1.3))) (entmake (LIST '(0 . "TEXT") '(8 . "CT-Allianz-Modell02") (CONS 10 pkt) (CONS 40 th) (CONS 1 nr) (CONS 1 (rtos (cadr pkt))) ) ) (SETQ pkt (polar pkt (/ (* pi 3) 2) (* th 1.3))) (entmake (LIST '(0 . "TEXT") '(8 . "CT-Allianz-Modell03") (CONS 10 pkt) (CONS 40 th) (CONS 1 nr) (CONS 1 (rtos (caddr pkt))) ) ) ; ==================================punktwerte in datei (setq pktlst (strcat (itoa BA) " " XA (itoa A) " " XRA (itoa RA) " " (rtos (car pkt)) " " (rtos (cadr pkt)) " " (rtos (caddr pkt)) ) ;_ end of strcat ) ;_ end of setq (setq DAT_ID (open listnam "a")) (write-line pktlst DAT_ID) (close DAT_ID) ; ==================================lfd nr (Setq A (+ A 1)) ) ;_ end of While ) ;_ end of progn ) ;_ end of if (command "LAYER" "SE" clay "") (command "osmode" OSM) (command "autosnap" ASN) ) ;_ end of defun (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (close DAT_ID) (command) (command "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (princ) (command "LAYER" "SE" clay "") (command "osmode" OSM) (command "autosnap" ASN) ) ;_ end of defun ;|«Visual LISP© Format Options» (72 2 40 1 T "end of " 60 9 0 0 0 nil T nil T) ;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;