---

hallo,
ich habe eine frage, die auf die bemassung abzielt.
ist es möglich, kreisabschnitte (also bögen) so zu bemassen, dass ich ihre länge angezeigt bekomme (nicht den winkel). ich will nicht erst ins eigenschaftenfenster gehen und die dort angegebene länge händisch in mein mass schreiben und ich meine auch nicht die angebotene "bogenbemassung" (r).
irgendjemand meinte, es ginge. wenn ja, wäre ich für einen tipp sehr dankbar. selbst im mechanical pp habe ich es nicht gefunden.
vielen dank im voraus.

gruss

------------------
dr-nikolai

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

---

dimarc.zip

..guck mal, ob es dass ist, was du suchst.

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

viele grüße
carambita

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

---

Hi carambita.

Ist ne tolle Sache. Wäre es aber nicht besser, wenn du den Osmode auf "1" = Endpunkt, "3" = End + Mittelpunkt, oder "35" =End + Mitel + Schnittpunkt setzt. Dadurch kannst du dann eine Punktgenaue Bemassung durchführen.

------------------
Ciao Günter

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

---

Guten Morgen dr-nikolai,

schau mal mit der Suchfunktion. Deine Frage wurde glaub ich schon mal behandelt.
zB. http://www.cad.de/foren/ubb/Forum54/HTML/001651.shtml

Higgo

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

---

hatte ich mir schon gedacht, dass es ohne lisp nicht funktionieren kann.

vielen dank an euch alle!

gruss

------------------
dr-nikolai

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

---

Hi günther,

ich hab das dimarc auch nur aus dem netz, denn lisp ist mir noch ein buch mit 6,5 siegeln. ich werde aber daran arbeiten. versprochen 

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

viele grüße
carambita

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

---

So geht`s besser, nur den Bogen anhlicken.
Gruß
Werner

(defun c:WB (/ aosm elb el rad a1 a2 a3 a4 u l txt)

;;;FEHLERBEHANDLUNGSROUTINE
(defun *error* (msg)
  (command "_clayer" alay "_cecolor" acol "_celtype" altp)
  (setvar "osmode" aosm)
  (command "_ucs" "_prev")
  (princ msg)(princ)
)

;;;SYSTEMVARIABLEN SETZEN
(setq aosm (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_ucs" "_w")

;------Auswählen--------------------------------------------------------------
(setq elb (entsel "\nBogen wählen: " ))
(setq el elb)

;------Extrahieren------------------------------------------------------------
(setq elb (entget (car elb)))
(setq rad (cdr (assoc 40 elb)))
(setq a1 (cdr (assoc 50 elb)))
(setq a2 (cdr (assoc 51 elb)))

;------Berechnen--------------------------------------------------------------
(setq a3 (- a2 a1)) ;;;geom. Winkel in PI
(setq a4 (+ a1 (/ a3 2)))
(if (< a2 a1) ;;;sonst falscher Wert
  (setq a3 (+ a2 (- (* pi 2) a1)))
)
(setq u (* pi 2 rad))
(setq l (/ (* u a3)(* pi 2)))
(setq TXT (rtos l))

;------BemText Ausführung-----------------------------------------------------
(setq TXT (rtos l))
(setq TXT (strcat "Bogl.="TXT)) ;;;"Bogl.=" vor die Bogenlänga schreiben
(command "_DIMANGULAR" el "_T" TXT pause)

;;;SYSTEMVARIABLEN ZURÜCKSETZEN
(setvar "osmode" aosm)
(command "_ucs" "_prev")
(princ)
)

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

WB.zip

Die Datei zur direkten Benutzung.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

Ist eine schöne Sache so eine Lisp-Routine. Sollte man keine Lust oder keine Zeit haben ( oder selber kein Lisp können)kann man sich auch an die zwei Seiten wenden.
www.cadwiesel.de
und www.dotsoft.com/freestuff.htm

gruß Josua

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