Como cargar una funcion autolisp dentro de otra?
Publicado por Alain Oanes (5 intervenciones) el 10/07/2017 17:32:12
Me explico, tengo una funcion definida como:
Y tengo otra que trabaja en otro archivo y requerie llamar a la anterior para trabajar ok
1
2
3
4
5
6
7
8
(defun c:acotado (/ pt1 pt2)
(setq pt1 ("Primer Punto:")
pt2 ("Segundo Punto:")
pt3 (polar pt1 (* pi 0.50) 0.50)
)
(command "_dimlinear" pt1 pt2 pt3 "")
(princ "")
)
Y tengo otra que trabaja en otro archivo y requerie llamar a la anterior para trabajar ok
1
2
3
4
5
6
7
8
9
10
11
12
(defun c:prueba (/ p1 p2)
(setq p1 (getpoint "Inicio de la linea:")
p2 (getpoint "Fin de la Linea")
)
(command "_linea" p1 p2 "")
;;**********AQUI DEBE LLAMAR A LA FUNCION c:acotado y acotar la linea creada***************
;;**********definiendo como los puntos de acotacion el inicio y fin de la linea ***********
(setq pt1 p1
pt2 p2
);;*****aqui coloco como variables pt1 el punto p1 de la linea pero como abrir y cargar el archivo con la funcion c:acotado?
Valora esta pregunta


0