Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
(vl-load-com)
(defun c:KGa (/ cmd0 dimz0 seleccion
opcionesmenu contador contador3 volumen1
volumen2 decimales volumen3 volumen
nombreent objetovla tkilogramos3 factor
factor2 cant conversion tkilogramos
kilogramos kilogramos3 escala puntodeturno1
puntodeturno datosaexcel areaenm2 areaenm21
areaopeso
) (SETQ areaopeso (GETint "que quierescalcular? (1=peso/2=area/otro=ambos<ambos>):" ) )(IF (and (/= areaopeso 1) (/= areaopeso 2))
(SETQ areaopeso 3)
)(SETQ decimales 2)
(setq kilogramos3 0.00)
(setq kilogramos 0.00)
(setq contador2 1)
(SETQ factor2 1)
(SETQ factor 7850)
(IF (/= areaopeso 2)
(SETQ factor2 (GETint "espesor en mm:"))
)(IF (= factor2 nil)
(SETQ factor2 1)
)(IF (/= areaopeso 2)
(SETQ factor (GETint "densidad (actual 7850 Kg/m3): "))
)(setq datosaexcel 0)
(IF (= factor nil)
(SETQ factor 7850)
)(setq finalizar 1)
(if (= contador2 nil)
(setq contador2 1)
)(setq contador3 contador2)
(SETQ contador2(GETINT (strcat "\nIndica numeración <numeración actual:"
(itoa contador2)
">:" ) ) )(if (= contador2 nil)
(setq contador2 contador3)
)(setq escala 1000000000.00)
(SETQ datosaexcel(GETINT (strcat "\n¿exportar a excel?(1=si/0=no,<"
(itoa datosaexcel)
">:" ) ) )(if (= datosaexcel nil)
(setq datosaexcel 0)
)(if (and (/= datosaexcel 1) (/= datosaexcel 0))
(setq datosaexcel 0)
)(if (= datosaexcel 1)
(setq archivo (getfiled "Selecciona archivo de destino" "" "xls" 1))
)(if (= datosaexcel 1)
(setq arch (open archivo "w"))
)(setq contador 0)
(setq seleccion nil)
(if (= (setq cmd0 (getvar "cmdecho")) 1)
(setvar "cmdecho" 0)
)(setq dimz0 (getvar "dimzin"))
(setvar "dimzin" 0)
;-----------
(defun _centroid (space objs / reg cen)
(setq reg (car (vlax-invoke space 'addregion objs))
cen (vlax-get reg 'centroid)
)(vla-delete reg)
(trans cen 1 0)
);----------------------------------------------------------------
(setq opcionesmenu "")
(while opcionesmenu(initget "Espesor Densidad Nºdecimales")
(setq textoopciones(strcat "\nEspesor<"
(itoa factor2)
"> / Densidad<"(itoa factor)
"> / Nºdecimales<"(itoa decimales)
"> / [select objet]:" ) )(setq puntodeturno (getpoint textoopciones))
;----------------------------------------------------------------
(setq opcionesmenu (cond ( ;si el usuario pulsa E(eq puntodeturno "Espesor")
(setq espesorprevio factor2)
(setqfactor2 (getint (strcat "\nEspesor en mm<" factor2 ">:"))
)(if (= factor2 nil)
(setq factor2 espesorprevio)
)(princ "\nEspesor: ")
(princ factor2)
(setq opcionesmenu "")
) ( ;si el usuario pulsa D(eq puntodeturno "Densidad")
(setq Densidadprevia factor)
(setq factor (getint (strcat "\nEspesor en mm<" factor ">:")))
(if (= factor nil)
(setq factor2 Densidadprevia)
)(princ "\nDensidad: ")
(princ factor)
(setq opcionesmenu "")
) ( ;si el usuario pulsa N(eq puntodeturno "Nºdecimales")
(setq Decimalesprevio decimales)
(setq decimales(getint (strcat "\nEspesor en mm<" decimales ">:")
) )(if (= decimales nil)
(setq decimales Decimalesprevio)
)(princ "\nNº de decimales: ")
(princ decimales)
(setq opcionesmenu "")
)( ;si la respuesta del usuario es seleccionar objetos...
(eq (type puntodeturno) 'LIST)
;----------------------------------------------------------------
(while (not seleccion)
(setq seleccion
(ssget
'((0
. "ARC,CIRCLE,ELLIPSE,HATCH,*POLYLINE,REGION,SPLINE" ) ) )contador 0
) )(setq volumen1 0.00)
(setq volumen 0.00)
(setq areaenm21 0)
(setq acdoc (vla-get-activedocument (vlax-get-acad-object))
acspc (vlax-get-property
acdoc
(if (= 1 (getvar 'CVPORT))
'Paperspace 'Modelspace )
)
)
;;;Repeat - gerardogqa
(repeat (sslength seleccion)
(setq
nombreent (ssname seleccion contador)
contador2 (1+ contador2)
contador (1+ contador)
objetovla (vlax-ename->vla-object nombreent)
pt0 (_centroid acspc (list objetovla))
)
(setq volumen1 (vla-get-area objetovla))
(setq volumen3 (/ volumen1 escala))
(setq areaenm2 (* volumen3 1000))
(setq volumen3 (* volumen3 factor2))
(setq kilogramos3 (* volumen3 factor))
(IF (= areaopeso 1)
(setq tkilogramos3
(strcat (itoa contador2)
"- \t"
(rtos kilogramos3 2 decimales)
" Kg"
)
)
(IF (= areaopeso 2)
(setq tkilogramos3
(strcat (itoa contador2)
"- \t"
(rtos areaenm2 2 decimales)
" m²"
)
)
(setq tkilogramos3
(strcat (itoa contador2)
"- \t"
(rtos kilogramos3 2 decimales)
" Kg \t"
(rtos areaenm2 2 decimales)
" m²"
)
)
)
)
; (if (null alturatexto)
(setq alturatexto
20)
;(getvar "TEXTSIZE"))
;)
(if (= datosaexcel 1)
(write-line tkilogramos3 arch)
)
(command "_text" "_mc" pt0 alturatexto "" tkilogramos3)
(setq areaenm21 (+ areaenm21 areaenm2))
(setq kilogramos (+ kilogramos3 kilogramos))
)
; (setq volumen (/ volumen escala))
; (setq volumen2 (* volumen factor2))
; (setq kilogramos (* volumen2 factor))
(IF (= areaopeso 1)
(setq tkilogramos
(strcat (rtos kilogramos 2 decimales) " Kg")
)
(IF (= areaopeso 2)
(setq tkilogramos
(strcat (rtos areaenm21 2 decimales) " m²")
)
(setq tkilogramos
(strcat (rtos kilogramos 2 decimales)
" Kg \t"
(rtos areaenm21 2 decimales)
" m²"
)
)
)
)
(princ "\n Unidades: milimetros")
(princ "\nkilogramos total de componentes: ")
(princ tkilogramos)
(setq alturatexto (getvar "TEXTSIZE"))
(setq puntodeturno (getpoint "\ndar punto para texto"))
(command "_text" "_mc" puntodeturno
alturatexto "" tkilogramos
)
(if (= datosaexcel 1)
(write-line (strcat "Total:" "\t" tkilogramos) arch)
)
(if (= 0
(GETINT (strcat "\nterminar archivo?(1=no, 0=si)"
(itoa finalizar)
":"
)
)
)
(setq finalizar 0)
)
; (setvar "dimzin" dimz0)
; (if (= cmd0 1)
; (setvar "cmdecho" 1) )
)
(if
(= datosaexcel 1)
;(close arch)
)
)
)
)
;)
;(close arch)
(princ)
)(setq pt0 (_centroid acspc (list objetovla))