Hola Fabiola,

El lenguaje de programación LISP no es excesivamente complejo y se puede aprender sin muchos problemas. Lo que te recomiendo es que busques algún curso on-line o presencial, ya que leerte un manual puede ser quizá algo demasiado "denso" para empezar...

De todas formas, te advierto de que se puede llegar a dominar bastante AutoCAD sin necesidad de saber programar en LISP. Excepto en contadas ocasiones, lo habitual es que programar una rutina LISP que te pueda suponer un cierto ahorro de tiempo de dibujo apenas te compense el tiempo dedicado a aprender LISP y a programar dicha rutina. Muchas veces es más rápido buscar en Internet alguna rutina ya programada por otro usuario, ya que esas rutinas se suelen compartir con otros foreros. Es habitual que, pidiéndolo con amabilidad y siendo agradecido posteriormente, el autor de la rutina no tenga mucho inconveniente en hacerte algún apaño para adptarla a una necesidad concreta tuya...

Este foro de AutoCAD de Emagister quizá se caracteriza por no recurrir apenas a esas rutinas o, por lo menos, en bastante menor medida que otros foros (por ejmplo, el de Hispacad).

Bueno, ya nos contarás cómo te va en el mundo del LISP... Un saludo

Curro

HOLA CURRO... QUE RAPIDEZ EN RESPONDER!.. MIL GRACIAS POR TU ATENCIÒN...
SEGUIRÈ TUS CONSEJOS.....................
DESDE CHILE, FABIOLA

Hola Fabiola,

No hay de qué. Espero que te vaya muy bien. Un saludo

Curro

Buenos dias expertos en los foros disculpen es que tengo un prblema basado en la programacion de lisp en cad la vdd es que no se como poder darle un ciclo determinado a una serie de cosas que quiero que me de este programa que les boy a mostrar lo que pasa es q el primer cilco me da un determinado numero de nodos y me pide unas potencias y hasta ahy esta pefecto el problema q en el siguiente ciclo necesito meter sierta base de datos para que al mismo tiempo que me esta pidiendo el ciclo en la posiscion determinada no se como aserrle para que me estraiga la informacion de esta base de datos condicionada en que pueden ayudarme? Necesito que me aga las operaciones de la disrancia con lo de las condicioness espero y me den un tip por favor..

Se que probablemente este mal en algo espero su respuesta........

(defun c:cfe (/ lista 1sumas)

(setq voltaje(getreal "indica el valor del voltaje de alimentacion volts: "))
(setq fp(getreal "inidica el valor del factor de potencia del sistemaf. P: "))
(setq nodos (getint "introduce la cantidad de nodos en el circuito "))

(setq nd (- nodos 1))
(setq n 0 1s nil)
(while (<= n nd)

(setq ta (getreal (strcat "dame la potencia en kw en el nodo " (itoa (setq n (1+ n))) ": ")))
(setq 1s (cons ta 1s))
(setq s (reverse 1s))

)


(setq lin (- nodos 1))
(setq l 0 2s nil)
(while (<= l lin)

(setq dis (getreal"dame la distancia que tiene la linea "))

(setq con (getstring (strcat "dame el calibre en la linea " (itoa (setq l (1+ l))) ": ")))

(cond
(= con "4awg")
(setq val 1. 747)
(setq a (* dis val)))


(= con "2awg")
(setq val 1. 100)
(setq a (* dis val)))

(= con "1/0awg")
(setq val 0. 691)
(setq a (* dis val)))

(= con "2/0awg")
(setq val 0. 548)
(setq a (* dis val)))

(= con "3/0awg")
(setq val 0. 435)
(setq a (* dis val)))


(= con "4/0awg")
(setq val 0. 345)
(setq a (* dis val)))


(= con "250kcm")
(setq val 0. 292)
(setq a (* dis val)))

(= con "300kcm")
(setq val 0. 244)
(setq a (* dis val)))


(= con "350kcm")
(setq val 0. 209)
(setq a (* dis val)))

(= con "400kcm")
(setq val 0. 183)
(setq a (* dis val)))

(= con "450kcm")
(setq val 0. 163)
(setq a (* dis val)))

(= con "500kcm")
(setq val 0. 147)
(setq a (* dis val)))


(= con "600kcm")
(setq val 0. 123)
(setq a (* dis val)))


(= con "700kcm")
(setq val 0. 106)
(setq a (* dis val)))


(= con "800kcm")
(setq val 0. 094)
(setq a (* dis val)))

(= con "900kcm")
(setq val 0. 084)
(setq a (* dis val)))

(= con "1000kcm")
(setq val 0. 076)
(setq a (* dis val))))

(setq 2s (cons con 2s))
(setq z (reverse 2s))
)

(setq pt (apply "+ s))
(princ "la potencia total del sistema es kw: ")
(princ pt)(terpri)

(princ z)
(princ)
)