42 lines
842 B
Common Lisp
42 lines
842 B
Common Lisp
;-----------------------------
|
|
; Text exportieren 30.6.91 AW
|
|
; eingabaut in e3f8
|
|
;------------------------------
|
|
(Defun C:Export ()
|
|
(Setvar "Cmdecho" 0)
|
|
(Setq A (Getstring "\nDateiname: "))
|
|
(Setq B (Open A "r"))
|
|
(If
|
|
B
|
|
(Progn
|
|
(Princ "\nDatei existiert bereits.")
|
|
(Close B)
|
|
(Initget "J N")
|
|
(Setq X (Getkword "\nSoll sie �berschrieben werden? <N> "))
|
|
(If
|
|
(= X "J")
|
|
(Write-it)
|
|
)
|
|
)
|
|
(Write-it)
|
|
)
|
|
(Princ)
|
|
)
|
|
|
|
(Defun Write-it ()
|
|
(Setq C (Open A "w"))
|
|
(Prompt "\nDatei ge”ffnet.")
|
|
(Prompt "\nTexteintr„ge der Reihe nach w„hlen: ")
|
|
(Setq D 0)
|
|
(Setq E (Ssget))
|
|
(Setq F (Sslength E))
|
|
(Repeat F
|
|
(Setq G (Ssname E D))
|
|
(Setq H (Entget G))
|
|
(Setq I (Cdr (Assoc 1 H)))
|
|
(Write-line I C)
|
|
(Setq D (+ 1 D))
|
|
)
|
|
(Close C)
|
|
)
|
|
|