62 lines
2.4 KiB
Common Lisp
62 lines
2.4 KiB
Common Lisp
; --------------------------------------------------------------
|
|
; Positionsnummerzeichnen AW 1.5.93
|
|
; --------------------------------------------------------------
|
|
|
|
(defun c:pos_zei ()
|
|
(command "_layer" "_m" "L-7" "_c" "7" "" "")
|
|
(Setvar "Cmdecho" 0)
|
|
(If (= EFNAM nil) (Setq EFNAM ""))
|
|
(Setq X (Getstring (Strcat "\nName der ASCII-Datei: <"
|
|
EFNAM ">: ")))
|
|
(If (/= X "") (Setq EFNAM X))
|
|
(Setq EFPNT (Open EFNAM "r"))
|
|
(If
|
|
(= EFPNT nil)
|
|
(Princ (Strcat "\n"(Chr 34) EFNAM (Chr 34)
|
|
": Datei kann nicht ge”ffnet werden!"))
|
|
(Progn
|
|
(Setq CRNTL (Read-line EFPNT))
|
|
(Setq CRNTL (Read-line EFPNT)) ;damit wird die 1.Zeile �bersprungen!
|
|
(if CRNTL
|
|
(princ (strcat CRNTL "\n"))
|
|
)
|
|
(While CRNTL
|
|
(setq POSNR (atof (substr CRNTL 2 5 )))
|
|
(setq POS-X (atof (substr CRNTL 39 11)))
|
|
(setq POS-Y (atof (substr CRNTL 51 11)))
|
|
(setq POS-Z (atof (substr CRNTL 63 11)))
|
|
(setq PT0 (list POS-X POS-Y POS-Z))
|
|
(setq PT1 (list (+ POS-X 100) (+ POS-Y 200) POS-Z))
|
|
(setq PT2 (list (+ (car PT1) 250) (cadr PT1) (caddr PT1)))
|
|
(setq PT3 (list (car PT2) (+ (cadr PT2) 175) (caddr PT1)))
|
|
(setq PT4 (list (car PT1) (cadr PT3) (caddr PT1)))
|
|
(setq PT5 (list (+ POS-X 125) (+ POS-Y 225) POS-Z))
|
|
(command "_line" PT0 PT1 PT2 PT3 PT4 PT1 "")
|
|
(command "_text" PT5 "100" "0" (rtos POSNR))
|
|
(Setq CRNTL (Read-line EFPNT))
|
|
(if CRNTL
|
|
(princ (strcat CRNTL "\n"))
|
|
)
|
|
)
|
|
(Close EFPNT)
|
|
)
|
|
)
|
|
(Princ)
|
|
)
|
|
|
|
; (while (not (equal (cdr (assoc 0 (entget objekt))) "SEQEND"))
|
|
; (setq typ (cdr (assoc 0 (entget objekt))))
|
|
; (if
|
|
; (equal typ "ATTRIB")
|
|
; (progn
|
|
; (setq ATTRIBUT-BEZEICHNUNG (cdr (assoc 2 (entget objekt))))
|
|
; (setq ATTRIBUT-WERT (cdr (assoc 1 (entget objekt))))
|
|
; (if (equal ATTRIBUT-BEZEICHNUNG "POSITION")
|
|
; (progn
|
|
; (entmod (subst (cons 1 POSITI) (assoc 1 (entget objekt))
|
|
; (entget objekt)))
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|
|
; ) |