tema Re: CONSULTA DE NOVATO VISUAL LISP en AutoCAD - Todos los productos - Foro en Español

Duda rutina LISP para AutoCAD

danielmartinez011197 — Mon, 30 May 2022 11:18:38 GMT

Hola soy nuevo estudiando visual lisp, tengo una duda. tengo la función:

(defun cmd-ttr (pt1 pt2 radio /)

(setvar "cmdecho" 0)

(vl-cmdf "._circle" "_ttr" pt1 pt2 radio)

(setvar "cmdecho" 1))

que se que dibuja un circulo a partir de dos tangentes y un radio. mi duda es, como puedo probar que funciona desde la consola o como puedo probar la función en la ventana gráfica. si alguien pudiera ayudarme le agradecería mucho

@danielmartinez011197 para una mayor claridad @joaquim.moral ha editado el título original: CONSULTA DE NOVATO VISUAL LISP
Recuerda consultar cómo escoger el mejor título para tu post. ¡Gracias por participar!

Re: Duda rutina LISP para AutoCAD

Anonymous — Mon, 27 Jun 2022 09:30:03 GMT

Para usar uma função você precisa passar o primeiro ponto (pt1), segundo ponto(pt2) e raio (r) para o comando.

assim:

(cmd-ttr '(0,635077 0,300775 0,0) '(1,73834 1,60832 0,0) 2)

tente com essa função.

(defun cmd-ttr (rádio pt1 pt2 /) (setvar "cmdecho" 0) (comando "._circle" "_Ttr" pt1 pt2 rádio) (setvar "cmdecho" 1) )

Na função que você anexou você estava usando o vl-cmdf para chamar o comando e ele precisa do vl-load-com.

Para usar una función, debe pasar el primer punto (pt1), el segundo punto (pt2) y el radio (r) al comando.

así:

(cmd-ttr '(0.635077 0.300775 0.0) '(1.73834 1.60832 0.0) 2)
prueba con esta funcion.

(defun cmd-ttr (radio pt1 pt2/)
(setvar "cmdecho" 0)
(comando "._circle" "_Ttr" radio pt1 pt2)
(setvar "cmdecho" 1)
)
En la función que adjuntó, estaba usando vl-cmdf para llamar al comando y necesita vl-load-com.

Traducido con Google Translate

Re: CONSULTA DE NOVATO VISUAL LISP

danielmartinez011197 — Fri, 27 May 2022 03:13:25 GMT

Hola gracias por responder yo estoy estudiando con un libro de autor llamado Reinando N. Togores. Y el así plantea la función como (vl-cmdf "circle" "ttr" pt1 pt2 radio). Sin embargo mi duda radica en cómo suministros los argumentos a la función al momento de llamarla desde un programa. Disculpa si es mucha molestia pero realmente estoy luchando con esto. Saludos

Re: CONSULTA DE NOVATO VISUAL LISP

calderg1000 — Mon, 30 May 2022 14:20:22 GMT

Saludos @danielmartinez011197

Muy buena elección, estudiar el libro de maestro @reinaldo_togores. Segruro le scaars buen probecho.

En cuanto a tu consulta, debo decirte que la forma de ingresar los argumentos para este caso puede ser de varias formas y aquí te doy algunos ejemplos.

1. Funcion principal: (vl-cmdf "._circle" "ttr" pt1 pt2 radio) 2. Variables por definir: pt1, pt2 y radio 3. Forma de definir las variables: (setq pt1 (getpoint "\nIngrese Pto. 1:")) (setq pt2 (getpoint "\nIngrese Pto. 2:")) (setq pt3 (getreal "\nIngrese Valor del Radio:")) 4. Rutina Final: (vl-load-com) (defun cmd-ttr (pt1 pt2 radio /) (setq pt1 (getpoint "\nIngrese Pto. 1:") pt2 (getpoint "\nIngrese Pto. 2:") pt3 (getreal "\nIngrese Valor del Radio:")) (setvar "cmdecho" 0) (vl-cmdf "._circle" "_ttr" pt1 pt2 radio) (setvar "cmdecho" 1)) 4.Forma de llamar a la nueva función (Rutina): (cmd-ttr pt1 pt2 radio) ***Otras formas de codificar con la funcion comando (Vl-cmdf): (vl-cmdf "._circle" pause pause pause) (vl-cmdf "._circle" (getpoint) (getpoint) pause) (vl-cmdf "._circle" "none" (getpoint) "none" (getpoint) pause) (vl-cmdf "._circle" "none" (getpoint) "none" (getpoint) 10.5)

Espero que mis respuestas te puedan ayudar. Estamos aquí para cualquier consulta sobre el tema.