acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Sumar Areas con Sombreados

2 participantes

Ir abajo

Sumar Areas con Sombreados Empty Sumar Areas con Sombreados

Mensaje por Luis Alberto Benitez Mar Nov 02, 2021 4:48 pm

Buenos días colegas de Foro de acad.
Estoy armando un lisp con el comando ^C^CAREA A O
para sumar Areas de sombreados y lo quiero completar
con un texto la sumatoria de las Areas.
Desde ya gracias por los aportes al Foro.
Saludos Luis de Ctes Arg.

Luis Alberto Benitez

Mensajes : 112
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por jademar Mar Nov 02, 2021 6:12 pm

Hola a tod@s
Fijate si te sirve.
Código:
;; From https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/hatch-area-lisp/m-p/9743620#M404482
(vl-load-com)
(defun C:HA () (hatcharea))
(defun hatcharea ( / ss area i eo pt)
(setq
ss (ssget '((0 . "hatch")))
area 0
i 0
)
(cond
((and(and ss) (> (sslength ss) 0))
(repeat (sslength ss)
(setq eo (vlax-ename->vla-object (ssname ss i)))
(setq area (+ area (vlax-get eo 'Area)))
(setq i (+ i 1))
)
(while (not pt)(setq pt (getpoint "\nSeleccione punto para insertar texto >")))
(command "text" pt "" "" (strcat "Area = " (rtos area 2 2) " m2") "")
)
)
(princ)
)

Editado para agregar el (vl-load-com) y acomodar el código.


Última edición por jademar el Jue Dic 16, 2021 5:00 pm, editado 1 vez

jademar

Mensajes : 27
Fecha de inscripción : 03/04/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por Luis Alberto Benitez Mar Nov 02, 2021 10:05 pm

Gracias jademar por la pronta respuesta a la requisitoria.
Me sale un error : error: no function definition: VLAX-ENAME->VLA-OBJECT.
Pero lo que quiero es usar con el comando Area ya que se nota mejor el area que va sombreando cuando se seleccionan los sombreados seguiremos intentando el mismo.
Gracias por los Aportes al Tema.

Luis Alberto Benitez

Mensajes : 112
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por Luis Alberto Benitez Mar Nov 02, 2021 10:52 pm

Falto agregar: (vl-load-com);AutoCAD agrega al codigo

Luis Alberto Benitez

Mensajes : 112
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por Luis Alberto Benitez Miér Nov 03, 2021 10:54 pm

Siguiendo el tema realice lo siguiente:
Código:
(defun c:zz ()
(vl-load-com)
(command "osmode""0")
(setvar "cmdecho" 0);Controla si AutoCAD muestra solicitudes y entrada
(command "_.area" "_a" "_a" "_o" (ssget "_W"))
          
      (PRINC "\nIndicar Punto de Inserción del Texto:")
      (setq get (getpoint "\nIndicar Punto de Inserción del Texto:"))
      (vl-cmdf "_.TEXT" (list (+ (car get) 0.0) (cadr get)) "2" "0" (rtos (getvar "area") 2 2));Se Puede Modificar Altura del Texto(2.0)Rotación(0)Decimales(2)
      
(PRINC)
)

(prompt "\n*** nuevo comando zz definido ***")
(prin1)
Pero no realiza la parte de colocar el texto
Desde ya Gracias

Luis Alberto Benitez

Mensajes : 112
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por Luis Alberto Benitez Jue Nov 04, 2021 11:01 pm

Otra Opción con Dos Comandos:
1º) ^C^CArea A O Pause
2º) ^C^C(setq get (getpoint ))(vl-cmdf "_.TEXT" "_J" "C" (list (+ (car get) 0) (cadr get)) "0.8" "0" (rtos (getvar "area") 2 4))(setvar "cmdecho" 0)

Luis Alberto Benitez

Mensajes : 112
Fecha de inscripción : 29/03/2016

Volver arriba Ir abajo

Sumar Areas con Sombreados Empty Re: Sumar Areas con Sombreados

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.