---

Hallo,

ich suche ein Tool zum berechnen von Schwerpunkten mit Widerstandsmoment und Trägheitsmoment von nicht nur einem sondern mehreren Objekten.

Also ein Programm zum berechnen vom Schwerpunkt mehrerer Objekte.

Gruß Carsten

------------------
Carsten

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

---

Autocad Mechanical

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Befehl Umgrenzung und ._massprop" nachschauen, jedoch ist die Position der Region (X/Y/Z) innerhalb des WKS sehr wichtig für manche Berechnungen. Einfach mal F1 drücken oder Suchfunktion im Forum füttern.

------------------
"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

---

Thomas,

wo bekomme ich das Tool her???

------------------
Carsten

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

---

Zitat:

---

Original erstellt von Proxy:
Befehl [b]Umgrenzung und ._massprop" nachschauen, jedoch ist die Position der Region (X/Y/Z) innerhalb des WKS sehr wichtig für manche Berechnungen. Einfach mal F1 drücken oder Suchfunktion im Forum füttern.

[/B]

---

Kann ich das auch in ein kleines Tool schrieben, damit alles von selbst geht und ich den Schwerpunkt angezeigt bekomme?

------------------
Carsten

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

---

• Drücke die Taste F1 in AutoCAD
  
• Gehe auf Mittleren Reiter Suchen
  
• Suche nach Schwerpunkt
  
• Lesen
  

------------------
"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

---

Kleiner Nachtrag wegen "Tool" ... man kann die Befehle mit LISP kombinieren, sieht dann ungefähr so aus:

Code:

---

(defun REGKEY_R (/ KEY)
  (setq key (vl-registry-read
      (strcat
"HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(getvar "CProfile")
"\\"
"General Configuration"
      ) ;_ end of strcat
      "TempDirectory"
    ) ;_ end of vl-registry-read
  ) ;_ end of setq
  (eval key)
) ;_ end of defun

(defun sichvar ()
  (setq cmdakt (getvar "cmdecho"))
  (setq osmakt (getvar "osmode"))
  (setq filedakt (getvar "filedia"))
  (setq layakt (getvar "clayer"))
  (setq alterr *error*)
  (setq blipakt (getvar "blipmode"))
  (setq delakt (getvar "delobj"))
  (setq lupakt (getvar "luprec"))
  (setq pdakt (getvar "pdmode"))
) ;ende defun

(defun restvar ()
  (setvar "cmdecho" cmdakt)
  (setvar "osmode" osmakt)
  (setvar "filedia" filedakt)
  (setvar "clayer" layakt)
  (setq *error* alterr)
  (setvar "blipmode" blipakt)
  (setvar "delobj" delakt)
  (setvar "luprec" lupakt)
  (setvar "pdmode" pdakt)
) ;ende defun

(defun neuerr (s)
  (if (/= s "Funktion abgebrochen")
    (princ (strcat "\nFehler: " s))
  )
  (if mprdat
    (close mprdat)
  )
  (command "_undo" "_BACK")
  (restvar)
  (princ)
) ;ende defun

(DEFUN koord (item arg / len pos zeich str)
  (if (setq posi (vl-string-position (ascii arg) item))
    (atof (substr item (+ 4 posi)))
  )
) ;ende defun

(defun c:schwerpunkt (/       mprdat  p1      x       y       datei
      p2      alterr  cmdakt  osmakt  filedakt
      layakt  as      el      kont    e1
    )
  (vl-load-com)
  (command "_undo" "_MARK")
  (sichvar)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "luprec" 8)
  (setvar "pdmode" 3)
  (setq *error* neuerr)
  (setq el (entlast))
  (setq as (ssadd))
  (setq p1 (getpoint "\nin die zu berechnende Fläche klicken"))
  (command "-umgrenzung" "o" "i" "j" "o" "r" "x" p1 "")
  (setq e1 (entnext el))
  (setq datei (strcat (REGKEY_R) "test.mpr"))
  (while e1
    (ssadd e1 as)
    (setq e1 (entnext e1))
  )
  (setq kont (ssname as 0))
  (ssdel kont as)
  (command "_massprop" "_l" "" "_Y" datei)
  (command "_.erase" "_l" "")
  (setq mprdat (open datei "r"))
  (repeat 7
    (read-line mprdat)
    (princ)
  )
  (setq x (koord (strcase (read-line mprdat)) "X:"))
  (setq y (koord (strcase (read-line mprdat)) "Y:"))
  (close mprdat)
  (setq p2 (list x y))
  (vl-file-delete datei)
  (command "_point" p2)
  (restvar)
  (princ)
)

---

------------------
"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