MIGUEL5
Usuario Regular
Ago 20, 2024, 1:48 PM
Visitas: 825
|
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
|