
Error desconocido (Ayuda)
Publicado por hernan (8 intervenciones) el 06/11/2016 18:21:03
Hola a todos, tengo un problema con un código que hice para autocad, me arroja un error y no se donde puede estar ese error. He probado por separado cada linea de código y esta bien. Ojala me puedan ayudar.
El código es el siguiente:
El código es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(defun c: crd()
(initget 7)
(setq ht (getint "Ingrese altura de texto: "))
(setq puntos (ssget (list (cons 0 "POINT")))) ; Selecciona solo Puntos
(setq cant (sslength puntos)); Cantidad de puntos seleccionados
(setq i 0)
(repeat cant
(setq altura (nth 3 (assoc 10(entget (ssname puntos i))))) ; Altura de cada punto
(setq texto (rtos altura 2 2))
(setq cord (cdr (assoc 10(entget (ssname puntos i))))) ; Coordenadas de cada punto
(entmake (list
(cons 0 "TEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 10 cord)
(cons 1 texto)
(cons 40 ht)
))
(setq i (+ i 1))
)
)
- prog2.rar(397,0 B)
Valora esta pregunta


0