| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Masse.lsp funzt nicht in ACAD 2010 (2209 mal gelesen)
|
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 26. Jan. 2012 17:12 <-- editieren / zitieren --> Unities abgeben:
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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 26. Jan. 2012 18:00 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 26. Jan. 2012 18:29 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
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 |
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 26. Jan. 2012 22:22 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 26. Jan. 2012 22:41 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
|
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 26. Jan. 2012 23:29 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 26. Jan. 2012 23:44 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
|
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 27. Jan. 2012 09:47 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 27. Jan. 2012 09:49 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
|
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 27. Jan. 2012 10:12 <-- editieren / zitieren --> Unities abgeben:
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 27. Jan. 2012 10:44 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
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 |
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 27. Jan. 2012 11:31 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 27. Jan. 2012 20:33 <-- editieren / zitieren --> Unities abgeben:
@ 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 |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 27. Jan. 2012 22:55 <-- editieren / zitieren --> Unities abgeben: Nur für GIGIMAN
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 |
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 27. Jan. 2012 23:20 <-- editieren / zitieren --> Unities abgeben:
|
GIGIMAN Mitglied TECHNIKER im THEATER
Beiträge: 395 Registriert: 22.06.2009 AUTOCAD 2007 - 2008 -2010 Expresstools - Windows XP
|
erstellt am: 28. Jan. 2012 11:57 <-- editieren / zitieren --> Unities abgeben:
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 |