---

Gibt es eine Möglichkeit die Rohdichte von Volumenkörper fetszulegen, um eine korrekte Massenermittlung zu bekommen??

gruß Hausbock

Die vorherige Suche im Forum hat mich nicht weitergebracht

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hausbock,

schau mal dort http://ww3.cad.de/foren/ubb/Forum52/HTML/000271.shtml
und wenn ich das richtig zitiere, dann ist das nicht möglich.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hausbock ist aber auch ein schöner Nickname...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

MASS.lsp.txt

...und wenn ich richtig gesucht habe dann gehts doch.

Die Liste mit den vorgegebenen Materialien kannst du dir auch erweitern.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe mal aus Neugier die "mass.lsp" unter Acad 2k2 und 2k4 getestet, (command _massprop, angepasst. Leider kommt egal was fuer Material und Geometre immer Masse 0 obwohl AutoCads Internes "_massprop" bei Volumen den richtigen Wert anzeigt. Das Tool zeigt wie gesagt immer 0    Hab von "verrückten" Profilen bis runter auf ein 100 x 100 Würfel getestet, nix ging.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habs mir jetzt auch noch mal angesehen, ich glaube es kommt deshalb immer null raus weil es von mm ausgeht und in g/mm3 rechnet und somit ist die Masse eines Würfels von 10x10x10m (Volumen: 1.000m³) aufeinmal nurmehr 0.008kg, was ja nicht unbedingt der Realität entspricht. Ich glaube man tut gut daran, die Werte auf to/m3 umzuschreiben um realistische Wert zu erhalten. Schau mal ob auch bei dir das der Fall ist und dies eventuell Abhilfe schafft.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

MASS.lsp.txt

Tool umgeschrieben, übersetzt und um "Hartholz" und "Weichholz" erweitert.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab da ein paar Anpassungen bzw. Korrenturen eingebaut.
Ich gehe davon aus: Zeichnungseinheit in der Datei = mm
Ausgabe/Eingabe für Volumen in m³, Masse in kg und Dichte in kg/dm³

Code:

---

;;; MASS.lsp bzw MASSE.LSP (DE)
;;;---------------------------------------------------------------------
;;; Author: Dipl.eng. GYARMATHY ATTILA
;;; E-mail: gyattila@rdslink.ro  gyattila@hotmail.com
;;; About:  Calculate mass of AutoCAD 3D solids.
;;;        Working good with AutoCAD14 - 2000.
;;;---------------------------------------------------------------------
;;; Version 1.02 Original von Dipl.eng. GYARMATHY ATTILA
;;; Anpassungen Version 1.02
;;; Getestet mit AutoCAD 200X (DE) von Proxy & Tunnelbauer
;;; *g* Support bei CAD.DE *g*
;;;---------------------------------------------------------------------

(textscr)
(prompt
  "\n
        \n MASSE.LSP erfogreich geladen.
        \n Für die Berechnug von 3D-Solids:
        \n - Befehl MASSE eingeben, Material und Objekte auswählen.
        \n"
)
(defun *error* (msg)
  (princ msg)
  (setvar "dimzin" $dim)
  (setvar "CMDECHO" cmd)
  (princ)
)
(defun c:mass (/ versio versval  $dim   cmd     densitate
      mat ro ss1   l   j     solnum
      flist ename fisier   i   citire  lungsir
      verificare volum   masa   masser  volser
      roser
      )
  (setq version (getvar "ACADVER"))
  (setq versval (atof version))
  (setq $dim (getvar "dimzin"))
  (setvar "dimzin" 8)
  (setq cmd (getvar "CMDECHO"))
  (setq oldluprec (getvar "luprec"))
  (setvar "CMDECHO" 0)
  (setvar "luprec" 3)
;;;3
  (initget "H W S A C B Z I L N")
  (initget
    "Hartholz Weichholz Stahl Aluminium Kupfer Messing Zink Zinn Blei Nickel"
  )
  (setq densitate
(getkword
  "\nMaterialwahl: <H>artholz/<W>eichholz/<A>luminium/<K>upfer/<M>essing/<Z>ink/Z<i>nn/<B>lei/<N>ickel/<Stahl>:"
)
  )
;;; Alle Werte = kg/dm³
  (cond
    ((or (= densitate "Hartholz") (= densitate "H"))
    (setq ro 8.00)
    (setq mat "Hartholz")
    )
    ((or (= densitate "Weichholz") (= densitate "W"))
    (setq ro 6.00)
    (setq mat "Weichholz")
    )
    ((or (= densitate "Aluminium") (= densitate "A"))
    (setq ro 2.70)
    (setq mat "Aluminium")
    )
    ((or (= densitate "Kupfer") (= densitate "K"))
    (setq ro 8.93)
    (setq mat "Kupfer")
    )
    ((or (= densitate "Messing") (= densitate "M"))
    (setq ro 8.80)
    (setq mat "Messing")
    )
    ((or (= densitate "Zink") (= densitate "Z"))
    (setq ro 7.14)
    (setq mat "ZinK")
    )
    ((or (= densitate "Zinn") (= densitate "I"))
    (setq ro 7.29)
    (setq mat "Zinn")
    )
    ((or (= densitate "Blei") (= densitate "B"))
    (setq ro 11.34)
    (setq mat "Blei")
    )
    ((or (= densitate "Nickel") (= densitate "N"))
    (setq ro 8.86)
    (setq mat "Nickel")
    )
    (T
    (setq ro 7.85)
    (setq mat "Stahl")
    )
  )
  (setq ss1 (ssget))
  (if (= ss1 nil)
    (exit)
  )
  (setq l (sslength ss1))
  (setq j 0)
  (setq solnum 0)
  (while (/= j l)
    (setq flist (entget (ssname ss1 j)))
    (setq ename (cdr (assoc 0 flist)))
    (if (= ename "3DSOLID")
      (setq solnum (+ solnum 1))
    )
    (setq j (1+ j))
  )
  (if (= solnum 0)
    (progn
      (alert "\nKeine gültigen Solids ausgewählt !")
      (exit)
    )
  )
  (command "_massprop" ss1 "" "_y" "C:/temp/MASSE.MPR")
  (setq fisier (open "C:/TEMP/MASSE.MPR" "r"))
  (setq i 1)
  (while (not (equal i 5))
    (setq citire (read-line fisier))
    (setq i (1+ i))
  )
  (setq lungsir (strlen citire))
  (setq verificare (substr citire 24 (- lungsir 24)))
  (close fisier)
;;;Einfacher gehts bestimmt
  (setq volum (* (atof verificare) 0.000000001))
;;; Umrechnungsfaktor für ZE/RE
  (setq masa (* (* volum ro) 1))
  (setq masser (rtos masa 2 6))
  (setq volser (rtos volum 2 6))
  (setq roser (rtos ro 2 6))
  (alert
    (strcat
      "\tK o n k l u s i o n"     "\n"
      "\nVolumen:\t\t"     volser
      "  m³"     "\nMasse:\t\t"
      masser     "  kg"
      "\n\nMaterial:\t\t"     mat
      "\nDichte:\t\t"     roser
      " kg/dm³"
      "\n_________________________________"
      "\n"
      "\n© 2002 Gyarmathy Attila. All right reserved."
      "\n"
      "\nAnpassung(en) von: Proxy & Tunnelbauer (CAD.DE)"
    )
  )
  (if (>= versval 15.0)
    (progn
      (vl-file-delete "C:/MASS.mpr")
    )
    (progn
      (command "shell" (strcat "del \\MASS" ".mpr"))
    )
  )
  (setvar "LUPREC" oldluprec)
  (setvar "CMDECHO" cmd)
  (setvar "dimzin" $dim)
  (princ)
)

---

Versions-Nr. 1.02 da vom Tunnelbauer 1.01 im Vorpost.

Dank an Tunnelbauer für die Zusammenarbeit 

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Opps, eine kleine Änderung: setq masa (* (* volum ro) 1000))

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oops, erst ist Blei geschwommen, und jetzt geht sogar Weichholz unter?
OK, es gibt einige Hartholzarten, die schwerer als Wasser sind, aber bei
dem Holz dürfte sich sogar der Hausbock die Zähne ausbeißen 
Hey Hausbock, lebst Du noch?

ver 1.02b:

Code:

---

((or (= densitate "Hartholz") (= densitate "H"))
    (setq ro 0.80)
    (setq mat "Hartholz")
    )
    ((or (= densitate "Weichholz") (= densitate "W"))
    (setq ro 0.60)
    (setq mat "Weichholz")
    )

---

@tunnelbauer und proxy:
Nichts für ungut: Euer Tool ist nach über dreieinhalb Jahren immer noch jung, frisch und knackig.
Warum hab' ich nicht früher danach gesucht? Klasse und vielen Dank für dieses Nikolausgeschenk!

Grüße Anselm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Prisoner:

Was willst du uns mit deiner Korrektur sagen?
(deine Werte sind to/m³ - wir haben aber beim Tool in kg/dm³ gerechnet...)

Oder hab ich was übersehen?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Holz mit 6 to/m³ wiegt doch genau so viel, wie Holz mit 6 kg/dm³ und
ist somit etwa 2,5 mal schwerer als Beton...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

3D_Mass.lsp.txt

Hi,
Da war doch auch mal dieses oder ist das nicht gemeint? Allerdings, Holz muesste man dazu setzen.
Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Prisoner:

Hmm - kennst du nicht das extra schwere Holz? 

Wusste ich doch, dass ich was übersehen habe...
(Muss aber Proxy oder ein Mod ändern...)

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

3D_Mass.lsp.txt 3D_Mass.dcl.txt

Hi,
Sorry, hatte die *.dcl vergessen, darum habe ich Holz dazu gesetzt und die *.dcl mit angehaengt.
Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abbruch-mass.lisp.JPG

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hi Kollegen -
der Hausmeister hat mich auf die alte Spur geschickt - bekomme jedoch bei mass.lsp folgende Fehlermeldung in der Befehlszeile ( siehe jpg. ) was läuft da falsch?

Hab natürlich auch 3d mass.lsp ausprobiert - da kommt dann wieder die Fehlermeldung :
----------------------------
Befehl: 3dmass
Beenden/Verlassen abbrechen; Fehler: Es ist ein Fehler innerhalb der *error*-Funktion aufgetreten. Einstellung für AutoCAD-Variable zurückgewiesen:
"dimzin" nil
----------------------------------
Bitte um Hilfestellung ! Komm nicht weiter

------------------
Gruß  GIG  

Wer gar nicht kommt .... braucht auch nicht gehen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP