AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD > Aluminyum profil agirlik hesabi
16.06.2019 16:55    
senem34
Merhaba arkadaslar
Autocad de uniform bir profilin (aluminyum) agirligini nasil hesaplayabilirim? Mesela bu uniform nesnenin birim kutle alanindan giderek bir agirlik hesabi yapilabilir mi?
Tesekkur ederim

16.06.2019 21:04    
alumina
Alıntı
senem34 :

Cizim birimi mm ve nesne region olmak uzere, secilen profil kesitinin birim agirligini hesaplar.
(2.71 gr/cm³ aluminyumun yogunluk degeridir)
Kod:

(defun c:pr (/) (vl-load-com)
  (if (ssget ":S" '((0 . "region")))
    (alert (strcat "Per unit weight: "
      (rtos (/ (* (vla-get-Area
        (vlax-ename->vla-object
          (ssname (ssget "_P") 0)))
            2.71) 1000) 2 3) " Kg/Mt"))
  ) (princ)
)
> 1 <
Copyright © 2004-2022 SQL: 0.99 saniye - Sorgu: 46 - Ortalama: 0.02153 saniye