Curso programación Visual Lisp para AutoCad capitulo 1

[@bryanantezana5555]

Al fin un video que me enseña sobre los lips y su funcionamiento , muchas gracias

[@horaciofernandez6861]

Excelenta Javi, estos videos son oro puro!!

[@javiLapina]

Gracias

[@alfredorodriguez9843]

He utilizado AutoCad desde 1989 y nunca encontré una forma de aprender AutoLisp hasta ahora contigo

[@javiLapina]

Muchas gracias, tengo que sacar tiempo y continuar con el curso

[@damiancelotlancelot3261]

MUCHAS GRACIAS ESTA EXCELENTE LA EXPLICACION..ME HA SERVIDO BASTANTE

[@javiLapina]

Me alegro 👌

[@escalonaescobar]

EXCELENTE MAGNIFICO FANTASTICO

[@javiLapina]

Gracias

[@alexisnixx8574]

Excelente clase amigo. Muchas gracias por compartir los conocimientos.

[@javiLapina]

No hay de que

[@joevargas6413]

GRACIAS POR COMPARTIR TUS CONONCIMIENTOS, UN EXCELENTE APORTE. NAMASTE

[@javiLapina]

Muchas gracias 👍

[@vicent8501]

Un video muy pedagógico.

[@javiLapina]

Gracias

[@pablodiscacciatti1419]

Volviendo a empezar con el visual Lisp. Un pendiente

[@javiLapina]

Ánimo con ello

[@robertjota]

excelente desde hace un tiempo he querido aprender lisp y me ha gustado mucho como explicas, gracias por compartir tus conocimientos

[@javiLapina]

Muchas gracias 👍

[@robertocarlosramirez1948]

Muy interesante el capítulo 1, aprovecho en solicitar si tuviera un Lisp para borrar objetos fuera del contorno de una polilinea, saludos desde Bolivia

[@javiLapina]

Muchas gracias, creo que sí dime un correo y te lo envío 👍

[@esauestudios3742]

Gracias javi excelente vídeo, por favor sigue con mas vídeos gracias.

[@javiLapina]

Muchas gracias.... Si seguiré haciendo más 😜

[@mtzsalgado]

Excelente inicio de tutorial, muchas gracias por compartir conocimiento. Saludos desde cuernavaca Morelos, México

[@javiLapina]

no hay de que

[@sasuffi]

Muchas gracias, muy clara tu explicación.

[@javiLapina]

Muchas gracias 👍

[@margaritomartinezmichael263]

Le dí su merecido like y me suscribí, gracias!!! Me ayudó en mi tarea jsjs

[@javiLapina]

me alegro que te sirva de ayuda

[@marck39932]

Gracias , buen curso.

[@javiLapina]

A ti por comentar 👍

[@juanperez-tt1xs]

muy claro muchas gracias por su tiempo y esfuerzo lo seguire saludos

[@javiLapina]

Muchas gracias

[@washingtoneduardoruizzumar3624]

Buenos días, muchas gracias por los vídeos.

[@javiLapina]

No hay de que 😜

[@SolenSolSon]

Excelente trabajo, Espero que me sirva para diseño estructural y dibujos rutinarios. Seguiré con atención lo que tengas y complementaré como pueda lo que necesite.

[@javiLapina]

Cuando me liberé de tiempo.... Seguiré con el curso

[@SolenSolSon]

​@@javiLapina Genial. Hoy estuve todo el día, Logré el primer paso de lo que quería. Con una linea dibujar un cuadro que represente una trabe, la mide, pero quiero que la nombre Tn y la siguiente que nombre, que sea Tn+1. Y aprovechar esos datos para sacar algunos esquemas rapidamente. Me dedico al diseño Estructural.

[@javiLapina]

Para ir sumado a una variable la expresión es asi (setq nombre_variable (+ nombre_varkiable 1))

[@Vadari_Ingenieros]

Mil gracias y muchos éxitos siempre

[@javiLapina]

Muchísimas gracias amigo

[@jorgecacho8879]

Gracias, siguiendo y a la espera de tu excelente material!!!

[@javiLapina]

Gracias 👌

[@arquitecturayurbanismo99]

Bien!, Buena clase!

[@javiLapina]

Gracias

[@huancasirpanancyrosmery8094]

❤ justo lo que buscaba 🎉🎉❤

[@javiLapina]

gracias

[@josemiguelsolorzanocolonia562]

EXCELENTE APORTE SE LE AGRADECE MUCHISIMO

[@javiLapina]

Muchas gracias

[@enriquebasanezfernandez728]

Muchas gracias por las herramientas Javi!!! Muy utiles todas

[@javiLapina]

Gracias a ti!!

[@onix252]

Gracias ya quedó, muchas gracias.

[@javiLapina]

Oki... Perfecto

[@cesarherrera9404]

Gracias Javi por la aclaración

[@javiLapina]

No hay problema amigo 😜

[@eduardomunoz2764]

Excelente explicación, saludos y gracias.

[@javiLapina]

Gracias a ti

[@richardzurita5971]

Como siempre un excelente vídeo y muy bien explicado. Muchas gracias.

[@javiLapina]

Muchas gracias

[@AlexL-qn6jb]

@@javiLapina hol haces programación? Para crear autolisp?

[@javiLapina]

Si, autolisp es un lenguaje de programación para AutoCAD

[@longbowmankhan1833]

Excelente video

[@javiLapina]

Gracias

[@alberthmezareyes7202]

esta muy interesante el vídeo y por favor puede seguir con los siguientes capítulos de programación

[@javiLapina]

Muchas gracias.... Si no te preocupes este próximo fin de semana tendrás otro 😜

[@junasiul]

Javi... enorme...muchas gracias

[@javiLapina]

muchas gracias

[@miguelangelpascualsanchez7892]

Visto!!, muy bien explicado, muchas gracias.

[@javiLapina]

Muchas gracias

[@eduardomurillo821]

Muy útil gracias Javi

[@javiLapina]

Gracias a ti!

[@josuecardonaperez2871]

Gracias...Muy interesante...Conoces el editor texto Notepad++?..nada que ver con bloc de notas, lo recomiendo.

[@javiLapina]

No lo conozco...le echaré un ojo muchas gracias

[@DJMARCOAV1]

Gracias por compartir

[@javiLapina]

No hay de que 👍

[@javiersolis405]

Gracias Javi, por fin lo acabe de ver. Saludos

[@javiLapina]

No hay de que....amigo

[@robertocarloscruzorozco6051]

Buen vídeo ... Saludos desde México

[@javiLapina]

gracias

[@eugeniotobar8329]

un abrazo querido Javi he aprendido mucho con tus tutoReales estoy muy agradecido Soy Geomensor... ¿ No habra alguna forma de asimilar el Lisp de autaCAD con el antiguo, bien ponderado, y querido BASIC....???? sin saber nada de programacion yo aprendi en una noche.....me basto con aprender el listado de comandos y yap...un abrazo desde Chile....!!!!

[@javiLapina]

Muchas gracias, lo siento mucho pero basic y lisp no son compatibles, pero si puedes "compatibilizar" y lo pongo entre comillado, con visual basic para autocad, te dejo un link para que le eches un ojo. knowledge.autodesk.com/es/support/autocad/downloads/caas/downloads/downloads/ESP/content/download-the-microsoft-visual-basic-for-applications-module-vba.html

[@aleymu]

Muy interesante!! Gracias Javi!!👍 Saludos desde Almería

[@javiLapina]

Muchas gracias 😜👍

[@profiriodavidavilaaltamira3454]

Buenas noches disculpa donde puede conseguir el curso completo?

[@cristianmanuelsanchezordin4605]

Buen video mes gustaría aprender a programar en Visual Lisp

[@tirol0c0]

Tienes algo de macros para autocad? Viendo tu video me pareció una macro como de Excel pero veo que autocad también tiene macros, si tienes algo sería bueno verlo Gracias y saludos

[@lorenzopololecca2700]

Hola! Realizas autolisps a medida? Requiero algunas para automatizar unos trabajos repetitivos. Saludos

[@javiLapina]

No, lo siento no me dedico a ello

[@TheAxeljones2012]

congratulations!!

[@javiLapina]

Gracias

[@celestinoapaza5228]

Buenas son muy buenas sus tutoriales consulta como bajar los de coordenadas para que reconozca

[@javiLapina]

En la descripción de los vídeos hay un link para descargar los lisp

[@arturosepulvedallano8878]

Hola buen video, he tratado de hacer este ejemplo pero no me resulta, al parecer en mi CAD no me reconoce la función m2p. Cómo debo hacerlo para activarla??, gracias.

[@javiLapina]

Que versión de AutoCAD tienes..??

[@jcmndz7533]

excelente, muchas gracias

[@javiLapina]

Muchas gracias

[@benjaminhinojo9998]

Muy bueno!! Saludos desde alicante

[@javiLapina]

Muchas gracias...👍

[@ergandaqui2537]

buenos dias se podría crear una aplicación cad para hacer distribuciones de vivienda automáticamente de acuerdo a las dimensiones del terreno?

[@javiLapina]

Hola, con tiempo todo es posible, pero veo demasiados condicionantes a la hora de hacer una distribución

[@antonioraya112]

buenas noches Javi, me encanta tu canal. Porfavor llevo tieno intentando programar un lisp para un bloque de un circulo autonumerado y que del circulo salga una linea o lecha hasta indicar la posicion del elemento en el plano.SERIA POSIBLE INDICARME COMO LO PUEDO HACER . te estaria super agradecio pues para mi es vital en este momento. gracias

[@javiLapina]

Hola... Que necesitas exactamente..?? Me puedes enviar un correo si quieres, con un ejemplo y vemos que se puede hacer. [e-mail]

[@Oswaldoroa]

Hola Profesor! Muchas gracias por este tutorial. He improvisado algunas líneas para separar el texto de la lineal, pero por alguna razón a veces funciona y a veces no. Podría echarle un ojo. (defun c:linea_ap () (defun grados (rg) (* (/ rg pi) 180.0) ) (setq pto1 (getpoint " Primer Punto")) (setq pto2 (getpoint " Segundo Punto")) (setq dista (distance pto1 pto2)) (setq dista (rtos dista 2 2)) (setq diam (getreal " Diametro del Tubo")) (setq ced (if (> diam 1) "26" "17")) (setq diam (rtos diam 4)) (setq dista (strcat "Ø" diam" PVC SDR-"ced", L="dista"m")) (setq rg (angle pto1 pto2)) (setq pto3 (list (/ (+ (car pto1) (car pto2))2) (/ (+ (cadr pto1) (cadr pto2))2))) (setq rgt (+ rg (* 0.5 pi))) (setq sepa (list (+ (car pto3) (* (cos rgt) 0.1)) (+ (cadr pto3) (* (sin rgt) 0.1)))) (command "_text" "_C" sepa "" (grados rg) dista) )

[@javiLapina]

Lo miro en cuanto tengo un hueco 👍

[@Oswaldoroa]

@@javiLapina muchas gracias estimado!

[@elpatoredfield]

Gracias por compartir con nosotros Javier. Quería hacerte una consulta. En vez de que la linea quede entre los 2 puntos que defino, como puedo hacer que quede a una distancia desde de esos 2 puntos? Ejemplo, hago el primer punto pero la linea debe estar 10 unidades mas abajo de donde marque y a 20 unidades mas arriba de donde marco el segundo punto? No soy programador pero descubrí esto del auto lisp y busco dibujar armaduras de hormigón armado mas automático. Conocerás tutoriales por el estilo?

[@javiLapina]

Hola... Para poner el inicio de la línea en otro sitio del marcado, debes de sumar la distancia que necesites a la coordenada X e Y... Te paso una página con documentación... Un saludo www.afralisp.net/autolisp/tutorials/the-basics-part-1.php

[@omarlaime9375]

buen video si tuvieras mas tutoriales, podrias sugerirme libros

[@javiLapina]

Gracias, tengo un grupo de Telegram donde subimos lísp y manuales @autocad_tutoriales_lisp

[@josedominguez.23d52]

Buenas, ¿Cómo puedo hacer un comando en el que haga una línea que pinche el primer punto y me pregunte por el ángulo no por la distancia? quiero decir que en vez de darle al tabulador para cambiar de orden que lo haga por defecto. ^C^C_line (primer punto y tabulador)

[@DioGeneZ99]

Buenas Profesor!! si deseo crear un plano desde una determinada zona, por donde comienzo? Saludos

[@javiLapina]

Hola, que es lo que necesitas hacer, un poco más en concreto...??

[@cesarherrera9404]

Excelente vídeo, muchas gracias, solo una pregunta, ¿que paso con el angulo?, no aparece en en la línea.

[@javiLapina]

Muchas gracias, El ángulo no lo pongo solo el texto con la longitud, el ángulo es para girar el texto con el mismo ángulo que tiene la linea

[@IvanOrdonezGeotechnical]

​@@javiLapina Hola Javi, muchas gracias, excelente video. Saludos. Gracias

[@javiLapina]

@@IvanOrdonezGeotechnical gracias, un saludo

[@iraimaz2352]

hola Javi, tengo dos problemas errores rarisimos en autocad 2018 y aunque puedo reinstalar me come la curiosidad y cabezoneria de lo que pueda haber pasado, podrias ayudarme?

[@javiLapina]

Hola, ya he visto tu correo... Te contesto 👍

[@AMMEDRIVEROSYUPANQUI]

Buenas tardes. Donde puedo llevar un curso básico de formación certificada en AUTOLISP

[@javiLapina]

Sinceramente no lo sé.... Y menos que sea certificada

[@jhonalexarcondozuta17]

Más de programación

[@javiLapina]

Si..si, en cuanto libere tiempo seguiré con el curso

[@TheAngel95002]

SALUDOS, NECESITO EMIGRAR UNA RUTINA QUE FUE CREADA PARA FUNCIONAR EN AUTOCAD 2011 Y NECESITO EMIGRARLA A AUTOCAD 2018

[@javiLapina]

Hola... Es editable ..?? Me refiero a la extensión que tiene la rutina..??? Si es .lsp se podría revisar.... ya que no es una rutina compilada, si por el contrario es .vlx o .fas no se puede hacer al ser la rutina compilada

[@WYROYALTY]

javi hola, soy nuevo en esto me gustaría ver si me puedes asesorar como crear un lisp para arear secciones topograficas en autocad.

[@javiLapina]

Si estás empezando... Te sugiero metas más pequeñas. Si quieres hacer perfiles lo más fácil y rápido es usar civil 3d en vez de programar en lisp

[@johsepprincipe7482]

hola Javi ,, como puedo hacer para que aparesca esa barra de los lips como a tu lo tienes configurado en tu autocad,,, GRACIAS

[@javiLapina]

Mira este vídeo para ver cómo se puede configurar una paleta de herramientas, que es lo que tengo yo. kzbin.info/www/bejne/qGO2dIqtrJmpjsk

[@johsepprincipe7482]

@@javiLapina gracias amigo.. Bendiciones

[@jobemanuelmalleaescobar1950]

Buenas gracias por su aporte javi lapina tengo una duda en autocad 2021 ya hay que instalar el visual code para que corra visualisp pero al momento en que corro el programa que hiciste no pasa al autocad ¿como puedo solucionar el problema? gracias de antemano por la respuesta

[@javiLapina]

Puedes utilizar el tradicional, pero te lo miro

[@juangalarza6404]

EXCELENTE JAVI , ME GUSTARIA HACER UN LISP DE CUADRO DE COORDENADAS UTM Y GEOGRAFICAS - ES PARA TOPOGRAFIA

[@javiLapina]

Echa un ojo a este vídeo kzbin.info/www/bejne/Y3aopWClqpiYl8U

[@eduardocapacete3252]

Javi tengo una gran duda existencial...se puede hacer insertar un texto utilizando un getpoint + una distancia??

[@javiLapina]

Si, si se puede, lo que tienes que hacer de las coordenadas del getpoint es sacar otras coordenadas sumando la distancia que necesites, puedes sumar a las coordenadas X,Y o mediante un ángulo

[@jaimeferra7480]

hola javi me gustaria saber como darle yo el angulo de entrada como grado minutos y segundo ejem. 10d30'15" de antemano gracias

[@javiLapina]

pero en el lisp o en pantalla en autocad....????

[@javiLapina]

Puedes sacar el angulo de la linea que haces y luego sumar 90 o 100 grados para hacer perpendicular al eje que has echo, pero ojo con los angulos que en lisp los da en radianes...

[@jaimeferra7480]

@@javiLapina si efectivamente lo estoy trabajando en radianes con polar lo resolvi sacando el ang12 y sacando el ang23 (setq ang12 (angle pt1 pt2)) (setq ang2s (+ ang12(/ pi 2)));;al angulo de la linea del pt1 y el pt2 que (setq ang2i (- ang12(/ pi 2)));;es ang12 se le suma 90 ya que un angulo de ;;90 en radianes es (/ pi 2) esta fue la manera que encontre claro estoy trabajando en encontrar coordenadas y me gustaria que me apoyaras en como llamar un archivo de puntos penzd

[@jaimeferra7480]

y gracias un saludos desde chiapas,mexico

[@jorantonyhaaa5461]

Saludos, ¡Que bestia!; justo lo que estaba esperando. Muchas gracias por este apreciado proyecto de clases virtuales de Autolisp, y digo clases en plural porque, ¿creo que va a seguir con esta ruta?; gracias de antemano por su gentileza, abrazos.

[@javiLapina]

Muchas gracias.... Si seguiré con el curso de Visual Lisp

[@joseluiszanabria5816]

Estimado buenas tardes como puedo obtener sus clases, de lprograma autolist

[@javiLapina]

Lo siento solo subí 2 episodios

[@esthepnyok]

buenos dias profesor necesitaba ayuda para un programa como podria contactarme con usted

[@javiLapina]

Hola, este es mi correo [e-mail]

[@ismaelchoque2298]

Excelente video amigo podrias compartir textos, no puedo ingresar al grupo de Telegram gracias por todo

[@javiLapina]

Hola, el link de la rutina está en la descripción del vídeo...

[@DiraTk]

Excelente video! Me gustaría consultarte cómo puedo hacer que AutoCAD recuerde el último valor numérico insertado en la línea de comandos al usar GETREAL en visual Lisp. Por ejemplo, cuando insertamos la distancia en el comando Offset, para la siguiente ejecución del mismo comando, este recuerda el último valor por defecto, y solo basta con darle enter. Me sería de mucha ayuda Javi, de antemano muchas gracias!!

[@javiLapina]

Gracias, tienes que rescatar el valor de la variable de getreal, si vas utilizar esa variable más veces no la pongas en el defun de inicio.

[@DiraTk]

@@javiLapina Gracias por tu respuesta Javi, iba a que si existía alguna manera de lograr que en la barra de ingreso de comandos de AutoCAD se muestre, POR DEFECTO, al ejecutar el defun, el último valor insertado en una ejecución anterior del mismo defun. La idea es que en caso quiera insertar nuevamente un mismo dato de entrada del defun, solo pique enter, algo parecido al comando Offset (paralelo) del AutoCad. Vale mencionar que el valor ingresado es una variable, si fuera constante no la colocaría como valor de ingreso con el getreal. Espero puedas ayudarme Javi. Estaré atento a tu respuesta

[@javiLapina]

No te entendí bien la primera vez..... mira este código a ver si te sirve (prompt " PON AQUI EL TEXTO QUE QUIEREAS ") (setq variable_2 (getstring)) El valor de la variable_1 saldrá entre < > luego mira la variable_2 si tiene algún valor, si no tiene valor sigues con la variable_1, y si tiene valor sigues con variable_2 ya me comentas si te funciona

[@DiraTk]

Muchas gracias Javi, eres una crack!!!

[@javiLapina]

Muchas gracias

[@ramonmartinez1371]

Buenas profesor, excelente video, tengo una consulta. Al trazar la linea si se hace de derecha (pto1) a izquierda (pto2) el texto sale rotado, podría por favor ayudarme a ponerlo sin en esta rotación sin importar si comienzo de derecha a izquiera o de arriba para abajo. Si no es mucha molestia: Como hago para que la linea tenga un texto arriba y uno abajo. Y para que estos textos tengan un espacio de separación de la linea. Agradecería enormemente su ayuda! Saludos, Agradecería enormemente su ayuda!

[@crb2126]

Saludos estimado Ramón, referente al texto rotado cuando se traza de diferente forma del punto 1 al punto 2, yo resolví este problema planteando condicionales que comparen el ángulo formado entre el punto 1 y el punto 2 con la función angle posterior se debe convertir en grados

[@crb2126]

intenta con este codigo, yo lo desarrolle (defun c:rottext () (while (setq p1 (getpoint " Presiona el primer punto: ")) (setq p2 (getpoint " Presiona el segundo punto: ")) (setq ang (angle p1 p2)) (setq ang (/ (* ang 180) pi)) (cond ((and (>= ang 0) (< ang 90));1er cond (command "_text" "J" "mc" "m2p" p1 p2 1 ang "prueba") );fin 1er cond ((and (>= ang 90) ( ang 270) (< ang 360));3er cond (command "_text" "J" "mc" "m2p" p1 p2 1 ang "prueba") );fin 3er cond ) );fin whlie )

[@javiLapina]

Genial

[@crb2126]

@@javiLapina gracias maestro solo un poco de lo que nos enseña

[@crb2126]

@@javiLapina aprovechando que tengo su atención en nombre de varios le hacemos una petición de algún espacio para interactuar con usted cómo patreon

[@juliocesarhancco1623]

Una consulta porque no me aparece la linea guía para dibujar el segundo punto. solo aparece la guía cuando introduzco el siguiente punto

[@javiLapina]

tienes que poner el primer punto en el getpoint

[@maximilianomoreno5055]

Gracias Javi! Sos un groso. Existen libros acerca de Visual Lisp?

[@javiLapina]

Si, en el canal de telgram tengo algunos compartidos t.me/autocad_tut

[@alfmamanich9013]

hola buen curso cuando el 2 capitulo

[@javiLapina]

Este fin de semana subo nuevo video

[@netogomez7883]

Muy bueno graciast

[@javiLapina]

No hay de que

[@onix252]

En lo particular utilizando el Visual Estudio Code me da un error, como lo tengo que escribir?

[@javiLapina]

Es raro... Lo tienes enlazado AutoCAD.... Si no puedes utiliza un editor de texto el Vlisp de AutoCAD Con la variable lispsys indicas que programa quieres abrir el Vlisp o VSCode

[@enki1878]

Hola y si quiero hacer una doble linea separadas entre si a .10cm o .15 cm entonces repito el primer comando carrito dos veces?

[@javiLapina]

Hay varias formas de poder hacerlo, pero para el que está empezando es mejor en vez de la orden _line puedes utilizar el comamdo linea multiple

[@ronelgantu7002]

HOLA JAVI COMO PUEDO CARGAR LIPS AL TOOL PALETTES DE AUTOCAD

[@javiLapina]

En este vídeo te lo explico kzbin.info/www/bejne/qGO2dIqtrJmpjsk

[@Vicron09]

puedes modificar un lisp para que funcione en la versión español e ingles

[@javiLapina]

Si...si se puede hacer, si está en abierto

[@Vicron09]

@@javiLapina me lo puedes modificar te lo mando

[@javiLapina]

Si...claro cuando tenga un hueco le echo un ojo.... [e-mail]

[@ronald-nl2pm]

Intento crear la linea pero me pide los dos puntos y no genera la linea solo dice nil y nada mas pero las cordenadas de los puntos si las guarda

[@javiLapina]

Copia y pega el código en un comentario y vemos a ver qué le pasa...

[@rigobertosandoval8154]

Como hago que la altura sea 1 siempre y el texto de siempre 20.0 por ejemplo

[@javiLapina]

Hola, esto es lo que debes poner para que cumpla lo que me indicas: (command "_text" "_m2p" pto1 pto2 1.0 (grados rg) "20.0") 1.0 seria altura de texto "20.0" seria el texto a rotular

[@rigobertosandoval8154]

@@javiLapina hola muchas gracias

[@rogerea337]

Alguno me puede ayudar, necesito cambiar la información del cajetin de varios archivos. Saben como hacerlo automatizado?

[@javiLapina]

Hola, si el plano tiene varias presentación y los datos son bloques con atributos puedes utilizar los comandos del las express tools: attout y attin

[@manuelfernandoespinosacast7717]

Excelente video, apenas estoy aprendiendo autolisp y este video me a servido mucho para introducirme de a poco en el tema. Profesor, quisiera que por favor me oriente sobre como puedo solucionar mi problema y es que estoy realizando una rutina que cree vértices de un polígono con solo 2 puntos, ya he logrado que cree lo principal lo cual es una linea un circulo y un texto por vértice, sin embargo, no quiero que todas estas entidades queden sueltas en mi dibujo, entonces decidí agrupar cada linea, circulo y texto perteneciente a un vértice con el comando _GROUP, pero no lo he podido conseguir, pido porfavor me oriente sobre como puedo llegar al resultado, adjunto código lisp: (DEFUN C:VRTC () (SETQ P1 (GETPOINT "\Punto uno:")) (SETQ P2 (GETPOINT "\Punto dos:")) (SETQ H 1.8) (SETQ M 12) (SETQ MILINEA (COMMAND "_line" p1 p2 "")) (SETQ CIRCULO1 (COMMAND "_circle" p2 H)) (COMMAND "_TRIM" (SSGET "_L") "" P2 "") (SETQ MITEXTO (COMMAND "_TEXT" "J" "M" P2 H 0 M "")) (COMMAND "_GROUP" (SSGET MILINEA CIRCULO1 MITEXTO "")) ) MUCHAS GRACIAS POR LA ATENCION PRESTADA !!!!

[@javiLapina]

Hola, amigo. Te dejo el lisp con algunos cambios rapidos. Lo primero no puedes poner un SETQ con con la acción de COMMAND Lo que hecho en su lugar es crear un grupo o conjunto de entidades "conjunto_seleccion" y voy añadiendo en "conjunto_seleccion" las que se van creando con el comando "ssadd" y por ultimo el comando group cambia un poco de como lo tenias...... Espero te sirva de ayuda (DEFUN C:VRTC () (SETQ P1 (GETPOINT " Punto uno:")) (SETQ P2 (GETPOINT " Punto dos:")) (SETQ H 1.8) (SETQ M 12) (COMMAND "_line" p1 p2 "") (setq conjunto_seleccion (ssget "_L")) (COMMAND "_circle" p2 H) (ssadd (ssname (ssget "_L") 0) conjunto_seleccion) (COMMAND "_TRIM" "_L" "" P2 "") (COMMAND "_TEXT" "_J" "_M" P2 H 0 M) (ssadd (ssname (ssget "_L") 0) conjunto_seleccion) (COMMAND "_-GROUP" "_C" "*" "" conjunto_seleccion "") )

[@manuelfernandoespinosacast7717]

@@javiLapinaHola instructor, muchas gracias, es exactamente lo que buscaba, con esta gran ayuda me abre las puertas a otras rutinas lisp que tengo en mente. Agradezco la atención prestada !!!!.

[@javiLapina]

@@manuelfernandoespinosacast7717 no hay de que 👍

[@richardzurita5971]

Hola Javi, cómo estás, por favor me puedes ayudar con un lisp para realizar una línea y un offset a 10cm a cada lado de la misma, es para hacerme un lisp para dibujar paredes, la línea central es para definir el eje de la pared y las que están a cada lado es para dibujar la pared propiamente dicha. yo he avanzado hasta aqui: (DEFUN C:PAREDES () (SETQ PUNTO1 (GETPOINT " INICIO DEL EJE DE LA PARED:")) (SETQ PUNTO2 (GETPOINT " FIN DEL EJE DE LA PARED:")) (command "_line" PUNTO1 PUNTO2 "") (command "_offset" ) ) Luego del comando offset no se como realizar para que automáticamente dibuje ambas líneas de la pared. Muchas gracias por tu colaboración, saludos desde Ecuador.

[@jomarduhe]

Autocad tiene un comando para dibujar lineas con sus paralelas. El comando es MLINE (multi linea) y puedes configurar cuantas paralelas y a que distancia se desea. Usa el comando MLSTYLE para configurar las paralela, incluso puedes indicar que tipo de linea va en cada paralela, color, escala, etc. Tambien puedes editar las multilineas con el comando MLEDIT.

[@daniyyelseismic-structures5896]

Hola Javi, perdona me gustaría comentarte algo, he encontrado en internet un código que hecho por LEE-MAC, y esta bastante interesante porque encuentra el momento de inercia de una sección cualquiera sea su forma. Me gustaría saber si tu me pudieras ayudar en modificar un poco las líneas del código, porque lo que me gustaría que haga el código es que inserte como texto en la pantalla de dibujo de AutoCAD este dato que arroja (El cual es el momento de inercia de una sección), me podrías ayudar por favor? el código es este: (defun c:mprop ( / *error* cmd m o s ) (defun *error* ( msg ) (if cmd (setvar 'CMDECHO cmd)) (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")) (princ (strcat " Error: " msg))) (princ)) (setq cmd (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (if (setq s (ssget "_+.:E:S" '((0 . "REGION,3DSOLID")))) (progn (setq o (vlax-ename->vla-object (ssname s 0))) (command "_.ucs" "_origin" (vlax-get o 'centroid)) (setq m (vlax-get o 'momentofinertia)) (command "_.ucs" "_p") (print (mapcar '(lambda ( x ) (/ x 1)) m)))) (setvar 'CMDECHO cmd) (princ) ) (vl-load-com) (princ) muchas gracias de antemano, un saludo,

[@javiLapina]

Si, claro. En cuanto tenga un hueco le echo un ojo

[@daniyyelseismic-structures5896]

@@javiLapina gracias de antemano!

[@javiLapina]

Buenas te paso el lisp modificado, espero que te sirva lo hice en plan rapido. (defun c:mprop ( / error cmd m o s ) (defun error ( msg ) (if cmd (setvar 'CMDECHO cmd)) (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")) (princ (strcat " Error: " msg))) (princ)) (setq cmd (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (if (setq s (ssget "_+.:E:S" '((0 . "REGION,3DSOLID")))) (progn (setq o (vlax-ename->vla-object (ssname s 0))) (command "_.ucs" "_origin" (vlax-get o 'centroid)) (setq m (vlax-get o 'momentofinertia)) (command "_.ucs" "_p") (setq inercia (mapcar '(lambda ( x ) (/ x 1)) m)))) (setq pt0 (getpoint "\NPunto en pantalla para rotular texto : ")) (setq X (rtos (car inercia))) (setq Y (rtos (cadr inercia))) (command "_text" pt0 "" "" (strcat x "," y)) (princ inercia) (setvar 'CMDECHO cmd) (princ) ) (vl-load-com) (princ)

[@daniyyelseismic-structures5896]

@@javiLapina muchas gracias por tu gran ayuda amigo. Genial ha quedado perfecto! Un saludo y felices fiestas.

[@javiLapina]

No hay de que 👍 Feliz navidad y próspero año nuevo

[@JOHNSTIVEN]

Excelente video, podrías realizar tutoriales o videos de como realizar o crear nuestra propia panel y/o paleta para autocad :)

[@javiLapina]

Aquí tienes un vídeo donde indico como crear una paleta de herramientas kzbin.info/www/bejne/qGO2dIqtrJmpjsk

[@JOHNSTIVEN]

@@javiLapina disculpa la molestia solo que recién hoy vi tus videos tutoriales de autolisp y pensé que no tenias videos de esto y muchísimas gracias te pasaste crack :)

[@javiLapina]

No hay problema 👍

[@RALMAT1]

DISCULPE NO TENDRA UN CURSO DE PROGRAMACION EN C# Y ENLAZARLO CON AUTOCAD. PROGRAMACION ORIENTADA A OBJETOS

[@javiLapina]

No lo siento...

[@haffz4758]

como instalo el visual lip?

[@javiLapina]

Visual viene por defecto instalado en AutoCAD se utiliza el comando vlisp

[@michelsalas9045]

Esta bueno el curso, sin embargo recomendaría que mientras conversa no este apretando una serie de rutinas que no tienen que ver con el curso, es bastante molesto.

[@javiLapina]

Si..si para la próxima 👍

[@duetboiduetboi4834]

Please use the english autocad version. Thank you.

[@javiLapina]

no, but the lisp programs always put the commands in English with underscore so that they work in any language. Thank you

[@cortoplazominasantos9826]

Manuel por aqui, Excelente gracias, funcionaria en CAD 2019? saludos desde Chile

[@TheOskkk4]

Disculpa que te responda yo, pero si, te vale hasta para autocad 14 el que existia alla por el año 2000, o sea hace 20 años.

[@javiLapina]

No hay problema, para eso estamos en ayudarnos unos a otros 😜👍

[@quitaco]

A ver si esto se puede hacer en Visual Lisp Desde hace muchos años, tenemos creado un bloque con 2 atributos para poner en las habitaciones o estancias en un plano de distribución. El bloque lo hemos llamado, sin más, “habitación”. Como he dicho el bloque está formado por dos atributos uno encima del otro. El superior es el nombre de la estancia. Aquí sin problema. Este atributo se edita como cualquier otro, bien con las propiedades rápidas o con doble click entrando en el editor de atributos. El atributo inferior es el que usamos para la superficie útil y aquí es donde viene el problema que os planteo. Lo que hacemos es al clicar en la polilínea y cuando aparecen las propiedades rápidas del objeto, consultar el dato de la superficie y atención, A MANO , editar el segundo atributo del bloque recordando el dato de área. Esto está sujeto a fallos humanos de transcripción, a que se olvide o deje atrás alguno de los bloque sin editar (ya que se copian y se van editando uno a uno). La idea que planteo es crear una rutina LISP en Autocad para que edite el atributo de la superficie. Que inserte un campo, en este caso el área de la polilínea designada, (y ya para nota con el prefijo Su: y el sufijo m2 ) Sería algo así como: 1. Clicar en el bloque 2. Se abre la ventana de propiedades rápidas donde se pueden editar los atributos 3. Definir nombre de la estancia o habitación 4. Y al editar el atributo de la superficie diga algo así como designar polilínea. 5. Se inserte automáticamente el campo del área de la polilínea selecciona en el atributo. La gran ventaja es, que si cambia la polilínea, con un simple regen, se actualiza el dato de todas las superficies. Muchas gracias y espero haberme explicado

[@javiLapina]

Hola, estoy unos días de vacaciones, a la vuelta le echo un ojo, y vemos qué podemos hacer.

[@quitaco]

@@javiLapina Muchas gracias de verdad, sería la leche poderlo hacer

[@kordilheira]

Esse video é sobre autolisp tradicional e não visual lisp. De visual lisp vc só usou o editor do visual lisp

[@javiLapina]

i'm sorry

[@litoboy5]

Un vídeo sin video

[@javiLapina]

Le tienes que dar al Play..... 😬

[@Alex-ik6pu]

0 24:40

[@javiLapina]

??

[@Alex-ik6pu]

@@javiLapina si

[@javiLapina]

Vale

[@mariovillota1854]

Javier como siempre excelente video, yo encontré algo así por casualidad y es para el diseño de vías, kzbin.info/www/bejne/f2Wbc6eHbNVkjrM míralo si te queda un tiempo, y nos sacas de dudas si esto se puede hacer gracias.

[@javiLapina]

Gracias, echaré un ojo y te cometo 👍

[@Lazcanoserrano]

Amigo, no entiendo porque hablas y hablas y abres y abres ventanas mareando con el apuntador.

[@javiLapina]

Pues debes de ser de los pocos que no lo entienden un abrazo

[@LuchoAGMBOLIVIA]

La proxima no tomes tanto café

[@javiLapina]

Gracias jajjajajaj