---

Hi Kollegen,

hatte in ACAD 2007 das bekannte Masse.lsp in Verwendung.
nach dem Umstieg auf 2010 ( mit servicepac 1 + 2 ) funzt das Ding nicht mehr + bricht im Befehl ab.

Bekomme folgendes in die Befehlszeile geschrieben:

--------------------------------------------------------------
MASSE.LSP erfogreich geladen.

Für die Berechnug von 3D-Solids:

- Befehl MASSE eingeben, Material und Objekte auswählen.

Objekte wählen: Entgegengesetzte Ecke angeben: 1 gefunden

Objekte wählen:

-----------  FESTKÖRPER    -----------

Masse:                  3988325153.261
Volumen:                3988325153.261
Begrenzungsrahmen:    X: 13713.217  --  16674.251
                      Y: 0.000  --  500.000
                      Z: 71344.606  --  74038.479
Schwerpunkt:          X: 15193.734
                      Y: 250.000
                      Z: 72691.543
Trägheitsmomente:    X: 2.108E+19
                      Y: 2.200E+19
                      Z: 9.239E+17
Deviationsmomente:  XY: 1.515E+16
                    YZ: 7.248E+16
                    ZX: 4.405E+18
Trägheitsradien:      X: 72696.275
                      Y: 74271.430
                      Z: 15220.497
Hauptträgheitsmomente und X-Y-Z-Richtung um Schwerpunkt:
Drücken Sie die EINGABETASTE, um fortzufahren:
                      I: 2495013883579273 entlang [1.000 0.000 0.000]
                      J: 5325968081193728 entlang [0.000 1.000 0.000]
                      K: 2997134412330633 entlang [0.000 0.000 1.000]

"C:\MASSE.MPR":  Kann Datei nicht öffnen
; Fehler: Fehlerhafter Argumenttyp: FILE nil

----------------------------------------------------------------------

Wer kann mir da vielleicht helfen?
Oder gibt es da bereits schon bessere Alternativen, die auch in 2010 Funktionieren?

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

Hi,

versuch's in 2010 mal ohne das Lisp und mit dem Befehl "masseig".

------------------
Ciao,
Marc

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

---

Hallo GIG,
vielleicht hast Du keine Schreibrechte auf C:? Dann könntest Du in dem Lispprogram den Pfad entsprechend anpassen (ich kenne das Lisp nicht, aber die Fehlermeldung sieht danach aus).

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

@ Marc:
Das mit masseig wird schon funktionieren. Ich brauche aber nicht die Masse der Volumenkörper - sondern das Gewicht
masse.lsp kann ich mir die Materialien aussuchen ( Stahl - Holz -Aluetc.)
@ Henning
ist ein guter Tip - das mit den Schreibrechten - werd - ich mir mal ansehen
Hier der Auszug aus dem Lisp ,der auf C: verweist:
-------------
  (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)
)
---------------------

Der Code ist Hier zu finden.

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

Also poste doch mal den Code, den DU verwendest. Im Link gibt es kein C:\MASSE.MPR nur C:\TEMP\MASSE.MPR bzw. C:/MASS.mpr...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

@ Henning,

Nö Kollege - das ist genau der Code ,den ich verwende - schau mal zum Schluss des Codes - dort findest Du den Eintrag C:\MASSE.MPR

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

Nöööö Kollege, da finde ich nur "C:/MASS.mpr" und nicht "C:/MASSE.mpr"...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

@ Henning,

Sorry, hast natürlich recht - ich hab das E übersehen.
Fact ist aber, daß ich genau den in diesem thread verlinkten Code ( siehe oben ) verwende.

Da ich programmiertechnisch kompletter Laie bin;
Könntest Du mir erklären, was die .lsp Routine da auf C: rumfuhrwerkt / erstellt / wieder löscht.

Da wird doch im Laufe der Routine auf C eine Datei erstellt   (command "_massprop" ss1 "" "_y" "C:/MASSE.MPR")
  (setq fisier (open "C:/MASSE.MPR" "r")) , welche am Ende wieder gelöscht wird - wenn ich das richtig verstehe.
Allerdings fällt mir auf, daß da zum Schluss "C:/MASS.mpr" steht und nicht wie oben "C:/MASSE.MPR"

Weiter unten der von mir verwendete Code, der genauso auf ACAD 2007 ohne Probleme lief. - allerdings auf dem alten PC - siehe unten )

Es dürfte also wirklich,wie von Dir vermutet an den Schreibrechten auf C: liegen.

Im Zuge der Umstellung auf ACAD 2010 ( 64 bit ) wurden bei uns von der EDV Abteilung nämlich:

Die PCŽs erneuert ( WIN 7 )
Die Schreibrechte der verschiedenen Laufwerke neu vergeben.

Soll ich da mal versuchen im Code ( statt C) ein Laufwerk einzutragen,wo ich Schreibrechte habe?  - oder läuft das in die falsche Richtung?

;;; 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*
;;;---------------------------------------------------------------------

(defun c:mass(/ dcl_id )
(setq dcl_id (load_dialog "masse.dcl"))
(if (not (new_dialog "testdialog" dcl_id) ) (exit))

(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"
)
(setq densitate "S")
    (setq ro 7.85)
    (setq mat  "Stahl")
  (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

(action_tile "H" "(setq  densitate \"H\")")
(action_tile "S" "(setq  densitate \"S\")")
(action_tile "W" "(setq  densitate \"W\")")
(action_tile "K" "(setq  densitate \"K\")")
(action_tile "M" "(setq  densitate \"M\")")
(action_tile "Z" "(setq  densitate \"Z\")")
(action_tile "I" "(setq  densitate \"I\")")
(action_tile "B" "(setq  densitate \"B\")")
(action_tile "N" "(setq  densitate \"N\")")
(action_tile "A" "(setq  densitate \"A\")")
(action_tile "LW" "(setq densitate \"LW\")")
(action_tile "ST" "(setq densitate \"ST\")")
(action_tile "E" "(setq  densitate \"E\")")

(action_tile "accept" "(done_dialog)")
(action_tile "cancel" "(done_dialog) (exit)")

(start_dialog)
(unload_dialog dcl_id)
(princ)

;;; Alle Werte = kg/dm³
  (cond
    ((or (= densitate "Lightwood") (= densitate "LW"))
    (setq ro 0.33)
    (setq mat "Lightwood")
    )
    ((or (= densitate "Stoff") (= densitate "ST"))
    (setq ro 0.10)
    (setq mat "Stoff")
    )
    ((or (= densitate "Hartholz") (= densitate "H"))
    (setq ro 0.80)
    (setq mat "Hartholz")
    )
    ((or (= densitate "Weichholz") (= densitate "W"))
    (setq ro 0.55)
    (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")
    )
    ((or (= densitate "Dichte=1") (= densitate "E"))
    (setq ro 1)
    (setq mat "Dichte=1")
    )
    (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:/MASSE.MPR")
  (setq fisier (open "C:/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) 1000))
  (setq masser (rtos masa 2 6))
  (setq volser (rtos volum 2 6))
  (setq roser (rtos ro 2 6))

;;; Berechnung Traegheitsmoment
  (command "_massprop" ss1 "" "_y" "C:/MASSE.MPR")
  (setq fisier (open "C:/MASSE.MPR" "r"))
  (setq i 1)
  (while (not (equal i 13))
    (setq trae (read-line fisier))
    (setq i (1+ i))
  )
(setq lungsir (strlen trae))
  (setq trae1 (substr trae 25 (- lungsir 25)))
  (close fisier)
  (setq trae2 (* (atof trae1) 0.000000001))
;;; Umrechnungsfaktor für ZE/RE
  (setq tra (* (* trae2 ro) 1000))
  (setq tr (rtos tra 2 2))

  (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³"
      "\nMassenträgheitsmoment:\t"    tr
      "  kg mm²"
      "\nACHTUNG!! BKS mit X-Achse Schwerpunkt setzen !! \n"
      "\n_________________________________"
      "\n"
      "\n© 2002 Gyarmathy Attila. All right reserved."
      "\n"
      "\nAnpassung(en) von: Proxy & Tunnelbauer (CAD.DE)"
      "\nund:  -- Ralfi -- "
    )
  )
  (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)
)

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

Zitat:

---

Original erstellt von GIGIMAN:
Soll ich da mal versuchen im Code ( statt C) ein Laufwerk einzutragen,wo ich Schreibrechte habe?

---

Rischtisch!

------------------
Ciao,
Marc

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

---

Werds versuchen,sobald ich im Büro eingeritten bin + natürlich berichten.

Thanks erstmal

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

  

Zitat:

---

Original erstellt von GIGIMAN:
Könntest Du mir erklären, was die .lsp Routine da auf C: rumfuhrwerkt / erstellt / wieder löscht.

---

im Grunde schreibt die Routine die Ausgaben des Befehls "_MASSPROP" in eine Datei, liest das Ergebnis wieder aus und multipliziert es entsprechend der Faktoren für die unterschiedlichen Materialien. Zum Schluß sollte sie dann noch die geschriebenen Ausgabedatei löschen, tut sie aber nicht - wg. fehlerhaftem Dateiname am Ende.

Ich kann jetzt ohne die dcl nicht testen, aber im allgemeinen sollte man für temporäre Daten den Befehl (vl-filename-mktemp) verwenden, dann gibt's auf keinem System Probleme mit den Rechten:

Code:

---

(setq mass-prop-temp-file (vl-filename-mktemp))
(command "_massprop" ss1 "" "_y" mass-prop-temp-file)
(setq fisier (open mass-prop-temp-file "r"))

---

[EDIT]
und zum Schluß

Code:

---

(vl-file-delete mass-prop-temp-file)

---

[/EDIT]
Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

       http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 27. Jan. 2012 editiert.]

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

---

@ Henning,

Thanks für die Erläuterungen - macht Sinn - ich werds testen + feedbacken!

@ Marc
das mit der Pfadänderung hat schon mal geklappt! Thanks

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

@ Henning,

Habs probiert - aber leider nicht hingekriegt.
Liegt vermutlich daran daß ich noch die 6. Zeile von unten:

(command "shell" (strcat "del \\MASS" ".mpr"))

nicht richtig ersetzt habe. ( Was macht das Ding überhaupt ?)

Wie gesagt - lsp. schreiben ist nicht so mein Ding - bin vielmehr eifriger Anwender der nützlichen Helferleins. 

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

Zitat:

---

Original erstellt von GIGIMAN:
Was macht das Ding überhaupt ?

---

vor dem "Ding wird getestet, welche AutoCAD-Version Du hast, da der Befehl (vl-file-delete) erst in neuerern Versionen zur Verfügung steht. für ältere wird ein Dos-script erstellt und aufgerufen - brauchst Du eh nicht. Aber sei's drum, teste mal das: (ich kann's nicht, hab' ja die dcl nicht, habe aber gerade gesehen, dass _massprop eine Datei mit Endung mpr schreibt)

Code:

---

;;;---------------------------------------------------------------------
;;; 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*
;;;---------------------------------------------------------------------

(defun c:mass(/ dcl_id )
  (setq dcl_id (load_dialog "masse.dcl"))
  (if (not (new_dialog "testdialog" dcl_id) ) (exit))

  (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"
  )
  (setq densitate "S")
  (setq ro 7.85)
  (setq mat  "Stahl")
  (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

(action_tile "H" "(setq  densitate \"H\")")
(action_tile "S" "(setq  densitate \"S\")")
(action_tile "W" "(setq  densitate \"W\")")
(action_tile "K" "(setq  densitate \"K\")")
(action_tile "M" "(setq  densitate \"M\")")
(action_tile "Z" "(setq  densitate \"Z\")")
(action_tile "I" "(setq  densitate \"I\")")
(action_tile "B" "(setq  densitate \"B\")")
(action_tile "N" "(setq  densitate \"N\")")
(action_tile "A" "(setq  densitate \"A\")")
(action_tile "LW" "(setq densitate \"LW\")")
(action_tile "ST" "(setq densitate \"ST\")")
(action_tile "E" "(setq  densitate \"E\")")

(action_tile "accept" "(done_dialog)")
(action_tile "cancel" "(done_dialog) (exit)")

(start_dialog)
(unload_dialog dcl_id)
(princ)

;;; Alle Werte = kg/dm³
  (cond
    ((or (= densitate "Lightwood") (= densitate "LW"))
    (setq ro 0.33)
    (setq mat "Lightwood")
    )
    ((or (= densitate "Stoff") (= densitate "ST"))
    (setq ro 0.10)
    (setq mat "Stoff")
    )
    ((or (= densitate "Hartholz") (= densitate "H"))
    (setq ro 0.80)
    (setq mat "Hartholz")
    )
    ((or (= densitate "Weichholz") (= densitate "W"))
    (setq ro 0.55)
    (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")
    )
    ((or (= densitate "Dichte=1") (= densitate "E"))
    (setq ro 1)
    (setq mat "Dichte=1")
    )
    (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)
    )
  )
  (setq mass-prop-temp-file (strcat (vl-filename-mktemp) ".mpr"))
  (command "_massprop" ss1 "" "_y" mass-prop-temp-file)
  (setq fisier (open mass-prop-temp-file "r"))
;  (command "_massprop" ss1 "" "_y" "C:/MASSE.MPR")
;  (setq fisier (open "C:/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) 1000))
  (setq masser (rtos masa 2 6))
  (setq volser (rtos volum 2 6))
  (setq roser (rtos ro 2 6))

;;; Berechnung Traegheitsmoment
;  (command "_massprop" ss1 "" "_y" "C:/MASSE.MPR")
;  (setq fisier (open "C:/MASSE.MPR" "r"))
  (setq fisier (open mass-prop-temp-file "r"))
  (setq i 1)
  (while (not (equal i 13))
    (setq trae (read-line fisier))
    (setq i (1+ i))
  )
  (setq lungsir (strlen trae))
  (setq trae1 (substr trae 25 (- lungsir 25)))
  (close fisier)
  (setq trae2 (* (atof trae1) 0.000000001))
;;; Umrechnungsfaktor für ZE/RE
  (setq tra (* (* trae2 ro) 1000))
  (setq tr (rtos tra 2 2))

  (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³"
      "\nMassenträgheitsmoment:\t"    tr
      "  kg mm²"
      "\nACHTUNG!! BKS mit X-Achse Schwerpunkt setzen !! \n"
      "\n_________________________________"
      "\n"
      "\n© 2002 Gyarmathy Attila. All right reserved."
      "\n"
      "\nAnpassung(en) von: Proxy & Tunnelbauer (CAD.DE)"
      "\nund:  -- Ralfi -- "
    )
  )
  (vl-file-delete mass-prop-temp-file)
  (setvar "LUPREC" oldluprec)
  (setvar "CMDECHO" cmd)
  (setvar "dimzin" $dim)
  (princ)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

FUNZT JETZT PRIMA - Thanks nochmal für die Hilfe!

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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

---

masse.dcl.txt

Nach erfolgter Anfrage von cad4fun - hier auch die masse.dcl zur Komplettierung
Ist wirklich ne feine Sache, wenn einen das Gewicht von dem, was man da so konstruiert, interessiert.

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

Das Einzige auf das heute noch Verlass ist , ist ........die Schwerkraft  

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