---

Kann man Formeln (z. B. eine Rechnung) in einem Makro einbinden?

In unserem Ingenieurbüro müssen wir für Decken und Bodenplatten immer die Distanzkörbe ausziehen.

Und unsere Formel lautet: Fläche (in Meter) mit 0.52 multipliziert = Anzahl Distanzkörbe. Das rechnen wir immer so.

Jetzt habe ich mir gedacht, dass man ev. ein Makro erstellen könnte, mit dem man die Fläche (Polylinie o. ä.) anklickt und einem dann direkt das Resultat bekannt gegeben wird.

Das müsste doch irgendwie so aussehen:

^C^Cmeasuregeom;_area;o;[Objekt wählen] -> Resultat in aktueller Einheit in Befehlszeile -> Resultat müsste jetzt in Meter umgewandelt werden (ev. Taschenrechner von AutoCAD einbinden) -> danach automatisch das umgewandelte Resultat mit 0.52 multiplizieren und das Resultat am Ende in der Befehlszeile anzeigen lassen.

Auch ohne die Umrechnung der Einheit wäre ich schon zufrieden mit solch einer Formel, weli ich dann einfach vier Makros für m, dm, cm und mm machen würde.

Hätte jemnad einen Anhaltspunkt? Oder ist so was gar nicht machbar?

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

---

du kannst anschließend die SYSvar AREA für sowas heranziehen ..
^C^Cmeasuregeom;_area;o;(* (getvar "AREA") 0.52)

ich würds aber persönlich mit nem kleinen Lisp machen, da bei AREA bei fehlgeschlagenen  Befehlsaufruf noch einen alten Wert enthalten kann

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

---

Hallo

Das ist grossartig! Vielen Dank!!

Für Meter brauche ich dieses hier:
^C^C_measuregeom;_area;o;(* (getvar "AREA") 0.52)

Für die Einheit Zentimeter dann 0.000052 statt 0.52 und so weiter für andere Einheiten. Also kann ich für andere Einheiten ein anderes Makro machen.

Bei mir hat es aber jetzt sehr oft noch den vorherigen Wert angezeigt. Wie baue ich denn das in eine Lisp um? Und wie könnte ich das so umstellen, dass a) immer nur der gewählte Wert angezeigt wird und b) ev. der Wert am Ende in der Befehlsziele steht a la "Anzahl Distanzkörbe: X Stk." Ich bin mit Lisp gar nicht vertraut. 

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

---

Hallo

Die Verantwortlichen von cadwiesel.de waren so nett (nochmals danke!!), mir eine Lisp-Datei zusammen zu basteln (hier für die Einheit Meter). Im Falle das mal ein anderes Ing.-Büro nach so was sucht stelle ich den Code hier rein:

(defun c:dKorb_m ( /  obj)

(vl-load-com)
(if(and(setq OBJ(car(entsel)))
      (setq OBJ(vlax-ename->vla-object OBJ))
      (vlax-property-available-p obj 'area)
      )
  (prompt(strcat "Anzahl der Körbe: "(VL-PRIN1-TO-STRING(*(vla-get-Area
obj)0.52))))
  )
(princ)
)

…………………………………

Für Zentimeter:

(defun c:dKorb_cm ( /  obj)

(vl-load-com)
(if(and(setq OBJ(car(entsel)))
      (setq OBJ(vlax-ename->vla-object OBJ))
      (vlax-property-available-p obj 'area)
      )
  (prompt(strcat "Anzahl der Körbe: "(VL-PRIN1-TO-STRING(*(vla-get-Area
obj)0.000052))))
  )
(princ)
)

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