Página Principal: Búsqueda de Información: CAD y 3D:
RUTINAS LISP

arqrich Usuario Nuevo Jun 25, 2008, 2:23 PM Visitas: 10448 RUTINAS LISP SALUDOS AMIGOS QUISIERA SABER SI ALGUIEN TIENE POR AHI UNA RUTINA LISP QUE ME PERMITA CONSTRUIR UN CUADRO DE DATOS DE UN PERIMETRO. USO AUTOCAD 2008. Y SI TAMBIEN ALGUIEN TIENE OTRA RUTINA QUE ME ACOTE AUTOMATICAMENTE UNA SERIE DE DIGAMOS LOTES DE UNA TRAZA URBANA. GRACIAS

gilsoto13 Principiante Jun 26, 2008, 3:01 PM Visitas: 10388 Re: [arqrich] RUTINAS LISP hay muchas... haz una busqueda en google con --cuadro de construccion lisp-- y veras muchas paginas de foros.. , aki te subo uno, pero es mucho mejor el comando de cuadro de construccion del civilcad. (Este mensaje fué ediatado por ecynerev en Jun 26, 2008, 6:06 PM) Archivos adjuntos: civilcad.doc (23.5 KB)   cua.lsp (10.2 KB)

jumivija Usuario Nuevo Ago 28, 2020, 7:53 PM Visitas: 5868 Re: [gilsoto13] RUTINAS LISP Esta interesante, se agradece

MIGUEL5 Usuario Regular Ago 20, 2024, 1:48 PM Visitas: 591 Re: [arqrich] RUTINAS LISP   ¡Saludos! Para crear un cuadro de datos de un perímetro en AutoCAD 2008 utilizando una rutina LISP, y también para acotar automáticamente una serie de lotes en una traza urbana, aquí te dejo algunas ideas: Rutina LISP para un cuadro de datos de perímetro: A continuación, te comparto un ejemplo básico de cómo podría ser una rutina LISP que calcule y muestre un cuadro de datos con los segmentos de un perímetro: lisp Copiar código (defun C:PERIMETRO () (setq ent (entsel "Selecciona una polilínea cerrada: ")) (setq pl (car ent)) (setq num_seg (getvar "LWPOLYLINE")) (setq len 0) (setq seg 1) (while (<= seg num_seg) (setq len (+ len (vlax-curve-getDistAtParam pl seg))) (setq seg (1+ seg)) ) (princ (strcat "\nEl perímetro es: " (rtos len 2 2) " unidades.")) (princ) ) Esta rutina te permite seleccionar una polilínea cerrada y calcular su perímetro. El resultado se muestra en la línea de comandos de AutoCAD. Rutina LISP para acotar automáticamente lotes: Para acotar lotes en una traza urbana, necesitarás una rutina que identifique los lotes y luego coloque las cotas automáticamente. Aquí te dejo un esquema básico, aunque la implementación completa puede variar según tus necesidades específicas: lisp Copiar código (defun C:ACOTAR-LOTES () (setq obj (entsel "Selecciona los lotes para acotar: ")) (command "DIMLINEAR" "M" obj "") (princ) ) Este es solo un punto de partida, y podrías necesitar ajustes dependiendo del diseño de tus lotes y las cotas que necesites. Para ambos casos, te recomendaría buscar más rutinas LISP en foros o sitios web especializados, ya que muchas veces otros usuarios han compartido soluciones específicas que podrían ser exactamente lo que necesitas. ¡Espero que esto te sirva como punto de partida! Si necesitas más ayuda, no dudes en preguntar. ________________________________________________________ Soy maestro en el IPN | Trabajo en la industria de generacion electrica