32:52 Con respecto a los paréntesis, pues yo introduciría desde el inicio los dos para que nunca se me olvide ni tener tantos líos. Me hubiera gustado más videos sobre esto, porque deseo hacer una tabla de derrotero personalizado de un polígono cerrado... pero bueno, ya tengo lo básico y me tocaría buscar más tutoriales.
Me gustan mucho sus clases. Poco a poco las estoy revisando para aprender este maravilloso arte de la Programación en VisualLISP. Por favor no deje de subir contenido.😄👍
Hola Javi, te felicito por tu canal , haces una explicacion concisa y amena, siempre me gustó la programacion y el dibujo, así que que mejor que Lisp, jejeje. Veo que no has hecho mas capítulos de este curso desde el año pasado, que ha pasado?? , bueno espero que te animes ha seguir con ellos, al menos algunos te lo agradeceremos. Te doy mi Like , un saludo.
Buenos dias profesor, es un curso muy interesante y usted tiene un buen metodo didactico para enseñarlo estare atento a mas videos sobre este curso Muchas gracias !!
Porqué dejaste de hacer estos videos amigo, justo encontré estos 2 tutoriales y me fueron de mucha ayuda, voy cursando mi carrera de Ingeniería de Sistemas y me están enseñando a programar en AutoCAD, pero mi profesor no lo explica bien, tus videos me son de mucha ayuda, continua con esta serie por favor. aún no sé como darle un ángulo de rotación a una línea, ojalá leas mi comentario y sigas con esta serie, gracias amigo. Un saludo desde Perú.
Gracias Por la segunda parte, ojalá en los siguientes puedas explicar solo mencionando más variables de AutoCAD que más se utilizan en lisp y para que se utilizan saludos
Voy en el. Segundo video y esta excelente muy bien explicado espero pongas mas videos y algo que me lleve a identificar el rumbo ne se so no de un poligono
Muy útiles tus videos, hasta ahora encuentro tu canal, pero compartes cosas extremadamente útiles. Seas estudiante o profesional siempre quieres acelerar tu proceso de trabajo y con estas herramientas tu flujo de trabajo es mejor :) Excelente Por cierto, podrías hacer un tutorial del Lisp de Cotas de nivel, es que deseo hacer el mío personalizado con otras variaciones. Y por ultimo estos lisp se pueden programar para que por defecto se abran en AutoCAD? o siempre hay que cargarlos a cada dibujo.
@@javiLapina Lo que busco es generar un txt con conecciones de polilineas entre bloques que contienen atributos y que lo genere automáticamente linea por linea. Mi correo es jmcazon@hotmail.com.ar tienes muy buenos tutoriales :)
Buenazos tus videos, gracias por compartirlos!!! Me podrías dar una idea de cómo hacer más rápido mi rutina (de importar tablas de excel, donde una columna es de números con 5 colores según sus valores, los convierto en texto para moverlos en un mapa, algo dinámico jeje, lo hago uno por uno, lo que me demanda mucho tiempo), tendrías una idea de cómo hacerlo más rápido. Es mi rutina de todos los días jeje, te lo agradeceria mucho:'). saludos :).
Hola estimado amigo Javi un gran aporte y muy agradecido por compartir conocimiento, me gustaría saber cómo acotar los lados del muro.gracias de antemano
muy bien explicado pero una pregunta si fuera del pto 8 al pto 6 y del pto 3 al pto 5 como un grafico piramidal como seria el codigo no se si podrias ayudarme en eso y si fuera 2 graficos con cordenadas
Muchas gracias por compartir sus conocimiento, son excelente videos. Tengo una consulta, estoy intentando extraer la longitud de una polilinea de muchos vértices y plantarla en un texto, sin embargo, los 2 métodos que he utilizado no me han funcionado: Método 1- trate de ingresar a la base de datos geométrica de la polilinea pero no encontré el código de la longitud Método 2- invoque el comando lengthen para seleccionar la polilinea y me arroja el resultado en pantalla pero no me lo pega en el texto. Quiero pedirle el favor, me indique como puedo obtener la longitud de esta polilinea
Buenos aportes me ha servido demasiado vi tu video y la rutina para exportar coordenadas es genial podrías ayudarme como se exporta datos a un archivo de texto.... Y algo extra se puede extraer propiedades de un bloque desde una rutina? espero puedas ayudarme Saludos
Es un poco complicado.... de explicar hay mucho código de por medio.....pero ya hay rutinas lisp que hacen todo lo que me esta pidiendo, echa un ojo a esta pagina que tiene muchas aplicaciones lisp seguro que esta lo que necesitas. www.lee-mac.com/programs.html
Hola javi: estoy siguendo con mucho interes este curso que has sacado. Yo soy inexperto pero le estoy poniendo interes. Trabajo con Autocad 2022. Es posible que lo que estas explicando no funcione con esta versión? No tengo forma que se reduzcan los decimales, se alinee el texto etc... Gracias
Hola Javi te felicito por ese trabajo de los vídeos que son de mucha ayuda, quería solicitar un favor tengo un lisp que me genera unas memorias pero necesito exportar a Word pero.nO he podido encontrar inf tu tiene un ejemplo sencillo que esporte un texto a Word
gracias por el tutorial. Una consulta cuando colocamos comandos como saber el orden de los datos que necesita, estoy comenzando y tengo la duda del comando layer por ejemplo.
Javi excelente video, algún lips que podría calcular la intersección de una línea o polilinea en 3d con xyz con una línea que la atraviesa pero que esta en 2d con xy y cota 0. Saludos gracias
Hola Javi, gracias por tus aportaciones, una pregunta, como podria realizarce un programa que de la inercia, etc de una polilineaÇ? un saludo y gracias
Muchas gracias, nunca he tenido que hacerlo, un lisp para el cálculo de inercia... Pero me imagino que con las formulas adecuadas se podría programar, pero como ya te digo nunca programe sobre este tema.. saludos
Saludos, sobre la primera rutina lisp. ¿Cómo se podría hacer para poner debajo de la línea y por supuesto debajo del texto de distancia, el rumbo que posee dicha línea?, ej: N-39°25'0.25"-E. Gracias de antemano por la respuesta. excelente vídeo, como siempre.
Así en plan rápido puedes agrega esta linea al final del código (command "_text" "_tc" "_m2p" pto1 pto2 alt-text (grados rg) (angtos rg 4 7)) la función "angtos" convierte el tipo de ángulo, siempre el angulo original en radianes , el "4" es para la conversión a geodésicos y el "7" son el numero de decimales espero que te funcione saludos
Saludos Javi, me sirvió la linea de código expuesta, el problema es que, en vez de salir los grados con el símbolo "°", sale con una "d", como podría cambiar eso?, gracias por la ayuda y en espera de más videos.
Gracias por tus vídeos son excelentes, tengo una pregunta existe alguna forma de poner esos datos en un excel y que los lea autolisp y y como sería se haría para manejar una lista muy larga
Javi, por favor, puedes orientarme para convertir un lisp que hice en versión 10 de AutoCAD y en inglés, para pasarlo a una versión actual?. Gracias adelantas y felicitaciones por tu labor.
Gracias... Si claro tienes que poner todas los comandos con guión bajo. Me explico donde haya un: command "line" debes de poner command "_line" El guion bajo es la clave
Hola Javi encontre una pagina un gran tutorial para usar el autocad, pero no se si podrias crear un tutorial de como dibujar unas escaleras que se enumeren solas por favor o explicar como se podria crear algo como eso y gracias por tu respuesta
Hola Javi, una consulta me intereza el lisp para crear linea, como le haria para que en la parte superior de la linea siempre me muestre el texto "Cable Internet" y que en la parte de abajo de la linea me indique la longitud al centro con un subfijo m (de metros) te lo voy a agradecer hechame una mano hay.
lo puedes hacer desde el editor vlisp, en la pestaña archivo, crear aplicación y hay en asistente para nueva aplicación.... y luego seguir las indicaciones
Te puedo consultar lo siguiente? Cómo puedo poner textos combinados con variables? Es que necesito que al dar el comando text ponga la fuente romans con una altura de 0.15 y escriba el contenido de 2 variables seguidas junto con el texto “L=” y el contenido de otra variable mas, algo así me imaginaba, pero no me funciona: (command “text” “s” “” “romans” “” pto 0.15 “” (strcat (itoa cb) (itoa nb) “L=” (itoa long)) “”””) pto es un punto de inserción que ha dado el usuario y cb y nb son datos extraidos de una caja (dcl) y long una longitud calculada
mira a ver si así te funciona: (command "_text" "_s" "romans" pto 0.15 "" (strcat (itoa cb) (itoa nb) "L=" (itoa long))) Pero hay varias cosas que debes tener en cuenta, si las variables llevan decimales... que el estilo romans este creado... etc si no te funciona dime el error que se produce.... un saludo
@@javiLapina Ya lo solucione, muchas gracias, comparto el código para los que les interese, (defun c:tb () (setq vnb (getint " INGRESE EL DIAMETRO DE LAS BARRAS EN 1/8s:")) (terpri) (setq vcb (getint " INGRESE LA CANTIDAD DE BARRAS:")) (terpri) (while (setq entsele (entsel " SELECCIONE LA BARRA:")) (terpri) (setq ent (car entsele)) (command "_area" "o" ent) (setq per (getvar "perimeter")) (setq long (rtos per 2 2)) (setq pto (getpoint " SELECCIONE EL PUNTO DE INSERCION:")) (terpri) (setq NU "#") (setq L " L=") (setq res (strcat (rtos vcb 2 0) NU (rtos vnb 2 0) L long)) (command "layer" "s" "02-OPEN" "") (command "_text" "_s" "romans" pto 0.15 "" res "" "") (princ) ) )
Javi una consulta yo he estado construyendo una rutina para conteo de datos y que sean insertados en un cuadro pero al momento de insertarlos en algunos archivos me funciona en otros no , me podrias ayudar?
Amigo buen video pero tengo un problema, a la hora de ejecutar el comando "Text" AutoCAD no me pide la altura del texto solo el ángulo , que podría estar sucediendo? porque lo probe en otro ordenador y a la hora de ejecutar el comando "Text" si me pide la altura del texto, no se si se deba a alguna variable, si me pudieras ayudar te lo agradecería mucho gracias
Hola, tiene toda la pinta que el estilo de texto que estás utilizando, ya tiene una altura predefinida, cambia el estilo de texto o cambia el valor de la altura del texto dentro de las propiedades del estilo de texto. Un saludo
32:52 Con respecto a los paréntesis, pues yo introduciría desde el inicio los dos para que nunca se me olvide ni tener tantos líos. Me hubiera gustado más videos sobre esto, porque deseo hacer una tabla de derrotero personalizado de un polígono cerrado... pero bueno, ya tengo lo básico y me tocaría buscar más tutoriales.
Gracias....
Me gustan mucho sus clases. Poco a poco las estoy revisando para aprender este maravilloso arte de la Programación en VisualLISP. Por favor no deje de subir contenido.😄👍
Muchas gracias
Muchas gracias por los videos, siempre he querido aprender autolisp, excelente esfuerzo y se aprecia.
Gracias a ti
GRACIAS POR EL CAPITULO 2, ESPERANDO EL CAPITULO 3............
Si... Cierto tengo que seguir con el curso, en cuanto libere un poco de tiempo continuo con el 👌
Hola Javi, te felicito por tu canal , haces una explicacion concisa y amena, siempre me gustó la programacion y el dibujo, así que que mejor que Lisp, jejeje. Veo que no has hecho mas capítulos de este curso desde el año pasado, que ha pasado?? , bueno espero que te animes ha seguir con ellos, al menos algunos te lo agradeceremos. Te doy mi Like , un saludo.
Hola...perdón no vi el comentario, si tienes razón, tengo otros proyectos abiertos y cuando los vaya cerrando continuaré con este
Gracias 👍
Muchas gracias Javier, conocimiento absorbido. Sigue así. Un saludo desde Alemania
Muchas gracias.... 😜
Muchas gracias , como siempre impresionante lo que enseñar gracias totales.
No hay de que amigo 😜
Buenos dias profesor, es un curso muy interesante y usted tiene un buen metodo didactico para enseñarlo
estare atento a mas videos sobre este curso
Muchas gracias !!
Muchas gracias
Otra vez viendo este excelente tutorial, como siempre felicitaciones, lo estaba esperando, saludos.
Gracias... 👍
Muchas gracias fantástico curso y espero que tenga muchos capítulos, saludos desde Argentina
Muchas gracias
un buen tutorial gracias yo que estoy comenzando recién en autolisp me sirve de mucho espero sigas con mas territoriales de programación en autolisp
Muchas gracias ...si seguiré haciendo más tutoriales sobre Lisp
Porqué dejaste de hacer estos videos amigo, justo encontré estos 2 tutoriales y me fueron de mucha ayuda, voy cursando mi carrera de Ingeniería de Sistemas y me están enseñando a programar en AutoCAD, pero mi profesor no lo explica bien, tus videos me son de mucha ayuda, continua con esta serie por favor. aún no sé como darle un ángulo de rotación a una línea, ojalá leas mi comentario y sigas con esta serie, gracias amigo.
Un saludo desde Perú.
Gracias, leo todos los comentarios.. y los contesto.
En cuanto termine un curso que estoy grabando de civil 3d, continuaré con el de lisp 👍
Felicidadaes y gracias por este tutorial, saludos y bendiciones desde México
Gracias 👍
excelente tutorial del curso de visual lisp y esperando los demás cursos
Muchas gracias
Javi saludos desde Colombia y gracias x tan buenas clases.
No hay de que 👍
Gracias Por la segunda parte, ojalá en los siguientes puedas explicar solo mencionando más variables de AutoCAD que más se utilizan en lisp y para que se utilizan saludos
Muchas gracias..... Si claro habrá que ir viendo de todo un poco...
impresionante, ahora a practicar mucho. muchas gracias
Muchas gracias
Excelente muchísimas gracias, saludos desde veracruz, mexico
No hay de que 😜 un saludo
amigo muy bueno tus cursos de autolisp, por favor sigue subiendo mas que esta super saludos desde Peru :)
Gracias... si, a ver si cierro otros que tengo abierto y continuo con el de lisp
@@javiLapina Por favor eres el único en TH-cam que enseña de esto y además lo haces sencillo de aprender.
Voy en el. Segundo video y esta excelente muy bien explicado espero pongas mas videos y algo que me lleve a identificar el rumbo ne se so no de un poligono
Muchas gracias 👍
Excelente Javi, estaré atento a la continuación de estos videos de programación
Gracias 👍
Espero pronto mas capítulos, muchas gracias por su trabajo!
A ti por comentar 👍
Muchas gracias mañana por la mañana lo veo
Oki 😜
CAP 3 Y 4
POR FAVOR QUIERO APRENDER AQUI EN ESTE CANAL ES MUY BUENO
Muchas gracias... En cuanto saque tiempo los grabó 👌
Saludos! muy bien explicado, esperando más videos
Muchas gracias
Muy útiles tus videos, hasta ahora encuentro tu canal, pero compartes cosas extremadamente útiles.
Seas estudiante o profesional siempre quieres acelerar tu proceso de trabajo y con estas herramientas tu flujo de trabajo es mejor :) Excelente
Por cierto, podrías hacer un tutorial del Lisp de Cotas de nivel, es que deseo hacer el mío personalizado con otras variaciones. Y por ultimo estos lisp se pueden programar para que por defecto se abran en AutoCAD? o siempre hay que cargarlos a cada dibujo.
muchas gracias
Muy buenos tus aportes Javi...Gracias!
Muchas gracias
Amigo Eres un crack !!! muy buen aporte :)
Muchas gracias
@@javiLapina de donde se pueden ver mas tutoriales estoy buscando algo muy específico sobre extraccion de polilineas y bloques usando Lisp
La verdad que en español hay muy poca cosa
Si quieres te puedo pasar algún manual de Lisp... dame un correo
@@javiLapina Lo que busco es generar un txt con conecciones de polilineas entre bloques que contienen atributos y que lo genere automáticamente linea por linea. Mi correo es jmcazon@hotmail.com.ar tienes muy buenos tutoriales :)
Ser entiende muy bien! Muchas gracias!!!
No hay de que 👍
Buenazos tus videos, gracias por compartirlos!!!
Me podrías dar una idea de cómo hacer más rápido mi rutina (de importar tablas de excel, donde una columna es de números con 5 colores según sus valores, los convierto en texto para moverlos en un mapa, algo dinámico jeje, lo hago uno por uno, lo que me demanda mucho tiempo), tendrías una idea de cómo hacerlo más rápido. Es mi rutina de todos los días jeje, te lo agradeceria mucho:').
saludos :).
Me puedes enviar un ejemplo en DWG para verlo mejor.....gracias
@@javiLapina tendrás un correo para enviártelo? Jeje
Hay lo tienes javilapina@gmail.com
@@javiLapina ya se lo envié. gracias.
GRACIAS, el capitulo 3 ese muro colocarlo acotado, fierros y estribos. bendiciones
Jajajaja todo se andará
Me gusta mucho el curso, para cuando la siguiente parte? Saludos desde Ecuador
Muchas gracias, a ver si saco un poco de tiempo, pero pronto. 😜
Hola estimado amigo Javi un gran aporte y muy agradecido por compartir conocimiento, me gustaría saber cómo acotar los lados del muro.gracias de antemano
Gracias, como ya tenemos los pto, tienes que hacer como harías en autocad, pero con command "_dimlinear"
lo mejor y esta en español
Muchas gracias
excelente video y cuando la 3 clase
muy pronto, gracias
muy bien explicado pero una pregunta si fuera del pto 8 al pto 6 y del pto 3 al pto 5 como un grafico piramidal como seria el codigo no se si podrias ayudarme en eso y si fuera 2 graficos con cordenadas
Muchas gracias por compartir sus conocimiento, son excelente videos.
Tengo una consulta, estoy intentando extraer la longitud de una polilinea de muchos vértices y plantarla en un texto, sin embargo, los 2 métodos que he utilizado no me han funcionado:
Método 1- trate de ingresar a la base de datos geométrica de la polilinea pero no encontré el código de la longitud
Método 2- invoque el comando lengthen para seleccionar la polilinea y me arroja el resultado en pantalla pero no me lo pega en el texto.
Quiero pedirle el favor, me indique como puedo obtener la longitud de esta polilinea
Buenos aportes me ha servido demasiado vi tu video y la rutina para exportar coordenadas es genial podrías ayudarme como se exporta datos a un archivo de texto....
Y algo extra se puede extraer propiedades de un bloque desde una rutina? espero puedas ayudarme Saludos
Es un poco complicado.... de explicar hay mucho código de por medio.....pero ya hay rutinas lisp que hacen todo lo que me esta pidiendo, echa un ojo a esta pagina que tiene muchas aplicaciones lisp seguro que esta lo que necesitas. www.lee-mac.com/programs.html
@@javiLapina gracias x el tiempo que sigas subiendo más videos geniales saludos
Hola javi: estoy siguendo con mucho interes este curso que has sacado. Yo soy inexperto pero le estoy poniendo interes. Trabajo con Autocad 2022. Es posible que lo que estas explicando no funcione con esta versión? No tengo forma que se reduzcan los decimales, se alinee el texto etc... Gracias
muy buen aporte una consulta se podria programar este mismo muro en 3d utilizando el estrude
Si claro
idolo crack, mas curso de stos
Si ..si, es por falta de tiempo
@@javiLapina tu solo encárgate de grabar que yo te edito el vídeo y todo lo pesado referente a eso, pero es q estoy es demasiado brutal !. Contactame
Hola Javi te felicito por ese trabajo de los vídeos que son de mucha ayuda, quería solicitar un favor tengo un lisp que me genera unas memorias pero necesito exportar a Word pero.nO he podido encontrar inf tu tiene un ejemplo sencillo que esporte un texto a Word
Gracias, algo tengo de exportación a un fichero .TXT
gracias por el tutorial. Una consulta cuando colocamos comandos como saber el orden de los datos que necesita, estoy comenzando y tengo la duda del comando layer por ejemplo.
Hola, los datos van en el mismo orden que los pide como cuando utilizas el comando directamente en AutoCAD
buena explicacion y cuando en cap 3 y 4
Gracias... Tienes razón en cuanto saque tiempo me pongo con ellos
Javi excelente video, algún lips que podría calcular la intersección de una línea o polilinea en 3d con xyz con una línea que la atraviesa pero que esta en 2d con xy y cota 0. Saludos gracias
si, si se puede pero las intersecciones con poly-3d son mas complejas y llevan bastante mas trabajo
@@javiLapina me gustaría saber si existe un lisp ya creado
Hola Javi, gracias por tus aportaciones, una pregunta, como podria realizarce un programa que de la inercia, etc de una polilineaÇ? un saludo y gracias
Muchas gracias, nunca he tenido que hacerlo, un lisp para el cálculo de inercia... Pero me imagino que con las formulas adecuadas se podría programar, pero como ya te digo nunca programe sobre este tema.. saludos
Saludos, sobre la primera rutina lisp. ¿Cómo se podría hacer para poner debajo de la línea y por supuesto debajo del texto de distancia, el rumbo que posee dicha línea?, ej: N-39°25'0.25"-E.
Gracias de antemano por la respuesta. excelente vídeo, como siempre.
Así en plan rápido puedes agrega esta linea al final del código
(command "_text" "_tc" "_m2p" pto1 pto2 alt-text (grados rg) (angtos rg 4 7))
la función "angtos" convierte el tipo de ángulo, siempre el angulo original en radianes , el "4" es para la conversión a geodésicos y el "7" son el numero de decimales
espero que te funcione
saludos
Saludos Javi, me sirvió la linea de código expuesta, el problema es que, en vez de salir los grados con el símbolo "°", sale con una "d", como podría cambiar eso?, gracias por la ayuda y en espera de más videos.
Gracias por tus vídeos son excelentes, tengo una pregunta existe alguna forma de poner esos datos en un excel y que los lea autolisp y y como sería se haría para manejar una lista muy larga
Hola, te voy a dejar un link de nuestro compañero Lee Mac que tiene un montón de ejemplos que seguro te van a servir.
www.lee-mac.com/programs.html
Javi, por favor, puedes orientarme para convertir un lisp que hice en versión 10 de AutoCAD y en inglés, para pasarlo a una versión actual?. Gracias adelantas y felicitaciones por tu labor.
Gracias... Si claro tienes que poner todas los comandos con guión bajo.
Me explico donde haya un:
command "line" debes de poner
command "_line"
El guion bajo es la clave
Hola Javi encontre una pagina un gran tutorial para usar el autocad, pero no se si podrias crear un tutorial de como dibujar unas escaleras que se enumeren solas por favor o explicar como se podria crear algo como eso y gracias por tu respuesta
Envíame más información al respecto, y vemos que se puede hacer
que paso con el capitulo 3 javier eres un genio
Muchas gracias, tengo muchos frentes abiertos y poco tiempo jejjejeje
Cuando los demás cursos de visual lisp
Tengo que sacar tiempo.... Además llevo un par de semanas con una afonia que no puedo casi ni hablar...
Pero seguiré con ellos
Hola muchisimas gracias por tu aporte, muy clara y amena. Tendras un correo electronico para contactarte?
Muchas gracias, si claro javilapina@gmail.com
Hola buen video, podrias programar un lisp para extraer coordenadas de varias polilineas y guardarlas en excel?
Mira si este lisp te vale
th-cam.com/video/-EEt-ou3eac/w-d-xo.html
@@javiLapina Muchas gracias, si me fue de gran ayuda. Revise varios de tus videos y son muy buenos.
@@oswaldocconassandoval4452 muchas gracias 👍
Hola Javi, una consulta me intereza el lisp para crear linea, como le haria para que en la parte superior de la linea siempre me muestre el texto "Cable Internet" y que en la parte de abajo de la linea me indique la longitud al centro con un subfijo m (de metros) te lo voy a agradecer hechame una mano hay.
En cuanto saque un hueco lo miro 👌
Excelente video. Cómo hago para guardar un lisp en *fas para que no sea modificable el código?.
lo puedes hacer desde el editor vlisp, en la pestaña archivo, crear aplicación y hay en asistente para nueva aplicación.... y luego seguir las indicaciones
Te puedo consultar lo siguiente? Cómo puedo poner textos combinados con variables? Es que necesito que al dar el comando text ponga la fuente romans con una altura de 0.15 y escriba el contenido de 2 variables seguidas junto con el texto “L=” y el contenido de otra variable mas, algo así me imaginaba, pero no me funciona:
(command “text” “s” “” “romans” “” pto 0.15 “” (strcat (itoa cb) (itoa nb) “L=” (itoa long)) “”””)
pto es un punto de inserción que ha dado el usuario y cb y nb son datos extraidos de una caja (dcl) y long una longitud calculada
mira a ver si así te funciona: (command "_text" "_s" "romans" pto 0.15 "" (strcat (itoa cb) (itoa nb) "L=" (itoa long)))
Pero hay varias cosas que debes tener en cuenta, si las variables llevan decimales... que el estilo romans este creado... etc
si no te funciona dime el error que se produce.... un saludo
@@javiLapina Ya lo solucione, muchas gracias, comparto el código para los que les interese,
(defun c:tb ()
(setq vnb (getint "
INGRESE EL DIAMETRO DE LAS BARRAS EN 1/8s:")) (terpri)
(setq vcb (getint "
INGRESE LA CANTIDAD DE BARRAS:")) (terpri)
(while
(setq entsele (entsel "
SELECCIONE LA BARRA:")) (terpri)
(setq ent (car entsele))
(command "_area" "o" ent)
(setq per (getvar "perimeter"))
(setq long (rtos per 2 2))
(setq pto (getpoint "
SELECCIONE EL PUNTO DE INSERCION:")) (terpri)
(setq NU "#")
(setq L " L=")
(setq res (strcat (rtos vcb 2 0) NU (rtos vnb 2 0) L long))
(command "layer" "s" "02-OPEN" "")
(command "_text" "_s" "romans" pto 0.15 "" res "" "")
(princ)
)
)
Perfecto 👌
PARA TRABAJAR CON COORDENADAS NO ORTOGONALES
Javi una consulta yo he estado construyendo una rutina para conteo de datos y que sean insertados en un cuadro pero al momento de insertarlos en algunos archivos me funciona en otros no , me podrias ayudar?
Hola... Envíame si quieres a javilapina@gmail.com y cuando disponga de un hueco le echo un vistazo
cuando saldran los proximos capitulos? :(
Hola, tengo otros proyectos abiertos, cuando los vaya cerrando seguiré con este
Un saludo
QUIERO SABER COMO ALA HORA DE PEDIR LOS DATOS SALGA UNA CAJA DE MENSAJE
Y AHI INGRESAR LOS DATOS
Eso se hace con un cuadro de diálogo, te dejo un web con información.
www.afralisp.net/dialog-control-language/
No se me dibuja completo el lisp y ya he revisado y no hay problema en el código, alguna ayuda ?
aquí dejo mi códgio por si acaso
(princ "
Ejecuta la aplicacion ci el comando MURO")
(defun c:muro()
(setvar "cmdecho" 0)
(setq pie (getreal "
Longitud del pie: "))
(setq pantalla (getreal "
Espesor de la pantalla: "))
(setq talon (getreal "
Longitud del talon: "))
(setq espesor (getreal "
Espesor de la zapata: "))
(setq altura (getreal "
Altura Pantalla: "))
(setq pt1 (getpoint "
Punto inferior izquierdo de la zapata: "))
(setq pt2 (list (+ (car pt1) pie pantalla talon ) (cadr pt1)))
(setq pt3 (list (car pt2) (+ (cadr pt2) espesor)))
(setq pt4 (list (- (car pt3) talon) (cadr pt3)))
(setq pt5 (list (car pt4) (+ (cadr pt4) altura) ))
(setq pt6 (list (- (car pt5) pantalla) (cadr pt5)))
(setq pt7 (list (car pt6) (cadr pt4)))
(setq pt8 (list (car pt1) (cadr pt7)))
(command "_line" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 "_c")
)
Buenas noches, das curso particular de Visual Lisp?
No... Lo siento, no me dedico a la docencia
Javi...tendrían que quita el F1 y ponerte un acceso directo a tu bandeja de mensajería....para cuando el siguiente capítulo🧐???
Jajajajajajaja que grande, tienes toda la razón, dentro de poco
Amigo buen video pero tengo un problema, a la hora de ejecutar el comando "Text" AutoCAD no me pide la altura del texto solo el ángulo , que podría estar sucediendo? porque lo probe en otro ordenador y a la hora de ejecutar el comando "Text" si me pide la altura del texto, no se si se deba a alguna variable, si me pudieras ayudar te lo agradecería mucho gracias
Hola, tiene toda la pinta que el estilo de texto que estás utilizando, ya tiene una altura predefinida, cambia el estilo de texto o cambia el valor de la altura del texto dentro de las propiedades del estilo de texto. Un saludo
@@javiLapina Muchas gracias
capitulo 3 4 5..............?
Tienes razón.... Me falta tiempo 🙏
CAR PT1 SALE EL PRIMER VALOR
CADR PT1 SALE 2DO VALOR
PERO SI TENGO UNA LISTA Y MAS VALORES 3, 4, 5,..
COMO LOS SACO
Se puede hacer un bucle, para procesar la cantidad de datos que deseemos
Usa la función NTH.
Ejemplo: (nth (list (a b c d)) 1)
devuelve b
con el valor cero devuelve el primer valor de la lista
Y TAL VEZ PUEDE HACER UN PROGRAMA PARA QUE CALCULE EL AREA DANDO UN CLICK DENTRO DE UNA AREA
Con lisp se podría hacer pero creo que sería un poco complejo, con Dynamo desde Civil 3D sería muchísimo más sencillo
El cad2023 lo tiene con el comando MEA y Q
Perfecto entonces
Y cuando autolisp??
Visual lisp...es lo mismo que autolisp
Hola alguien tiene los pasos para hacer un lisp para sacar pesos de un sólido ? Me lo pueden compartir
Yo no tengo...pero intentaré buscar uno y te comento...
(defun c:peso ()
(command "_UNDO" "_BE")
(setq un (getvar "INSUNITS"))
(setq factor 1)
(if (= un 1) (setq factor (* 7.85 (expt 0.254 3))));pulgadas
(if (= un 2) (setq factor (* 7850.0 (expt 0.3048 3))));pies
(if (= un 4) (setq factor (/ 7850.0 (expt 1000 3))));milímetros
(if (= un 5) (setq factor (/ 7850.0 (expt 100 3))));centímetros
(if (= un 6) (setq factor 7850.0));metros
(setq vt 0 cont 0)
(WHILE
(setq objeto (entsel)); era ssget
(command "_COPY" objeto "" "" "")
(setq pieza (entlast))
(vl-load-com)
(setq solido (vlax-ename->vla-object pieza))
(setq vol (vla-get-volume solido))
(setq vt (+ vt vol) cont (+ cont 1))
(command "_ERASE" pieza "")
)
(setq peso (* vt factor))
(princ (strcat (rtos peso 2 3) " kilos en " (rtos cont 2 2) " objetos"))
(terpri)
(command "_UNDO" "_END")
)
Perdi meu tempo, mudei para dislike. Não é visual lisp, vc só usou o editor.
i'm sorry