---

Bogen.pdf

Hallo,

Mal wieder zur unendlichen Geschichte der Bogenbemaßung in AutoCAD 2000i PP und Mechanical 2004. Da es Autodesk auch in der aktuellen Version nicht geschafft hat, den Anwendern eine Bogenbemaßung zur Verfügung zu stellen, habe ich mich mal wieder damit beschäftigt:
Im Forum wurde das Thema ja bereits leidlich oft behandelt, leider jedoch nicht mit durchschlagendem Erfolg. Die Programmvorschläge "mißbrauchen" die Winkelbemßung in AutoCAD un funktionieren sie zur Bogenbemaßung um, was bis hierhin auch o. k. ist. Eine normgerechte Darstellung eines Bogenmaßes sieht jedoch ein graphisches Symbol in Form eines Halbkreises (DIN 406-11, Abschnitt 4.5) vor, welches vor die Maßzahl gesetzt wird. So gut, so schön. Ein Halbkreis gibt es in AutoCAD bei den Form- und Lagetoleranzen zur Kennzeichnung einer beliebigen Linie. Wer weiß, wie dieses Symbol (enthalten im Schriftfont AMGDT.shx)als Text, wie z. B "%%c" für das Durchmesserzeichen, vor das errechnete Bogenmaß gesetzt werden kann? Es wäre dann ein leichtes, diese Textsequenz in das LISP-Programm zu integrieren (Programmzeile aus dem LISP-Programm):

(command "_dimangular" es "_text" (strcat "..." (rtos len 2)))

Ich hoffe, gemeinsam sind wir in der Lage, Autodesk zu zeigen wie es geht!

Günther Frischbier

------------------
Gruss

Günther Frischbier

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

---

Zitat:

---

Original erstellt von Günther Frischbier:
Hallo,

Mal wieder zur unendlichen Geschichte der Bogenbemaßung in AutoCAD 2000i PP und Mechanical 2004. Da es Autodesk auch in der aktuellen Version nicht geschafft hat, den Anwendern eine Bogenbemaßung zur Verfügung zu stellen, habe ich mich mal wieder damit beschäftigt:
Im Forum wurde das Thema ja bereits leidlich oft behandelt, leider jedoch nicht mit durchschlagendem Erfolg. Die Programmvorschläge "mißbrauchen" die Winkelbemßung in AutoCAD un funktionieren sie zur Bogenbemaßung um, was bis hierhin auch o. k. ist. Eine normgerechte Darstellung eines Bogenmaßes sieht jedoch ein graphisches Symbol in Form eines Halbkreises (DIN 406-11, Abschnitt 4.5) vor, welches vor die Maßzahl gesetzt wird. So gut, so schön. Ein Halbkreis gibt es in AutoCAD bei den Form- und Lagetoleranzen zur Kennzeichnung einer beliebigen Linie. Wer weiß, wie dieses Symbol (enthalten im Schriftfont AMGDT.shx)als Text, wie z. B "%%c" für das Durchmesserzeichen, vor das errechnete Bogenmaß gesetzt werden kann? Es wäre dann ein leichtes, diese Textsequenz in das LISP-Programm zu integrieren (Programmzeile aus dem LISP-Programm):

(command "_dimangular" es "_text" (strcat "..." (rtos len 2)))

Ich hoffe, gemeinsam sind wir in der Lage, Autodesk zu zeigen wie es geht!

Günther Frischbier

---

Hallo Günther,

die Programmzeile muss so aussehen:

command "_dimangular" es "_text" (strcat "{\\fAMGDT|b0|i0|c0|p2;k }" (rtos len 2))).

------------------
Gruß

Steffen Gerhard

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

---

Hallo Steffen,

Genau das war's! Vielen Dank für deine Hilfe. Gibt volle Punktzahl! Auf diese Textsequenzen wäre ich ja nie gekommen.

------------------
Gruss

Günther

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

---

Bogen.zip

Hallo Forum,

Nach kleinen Modifikationen des LISP-Programms aus dem Forum und dem entscheidenden Tipp von Steffen, ist es jetzt möglich, in Autocad Mechanical ein normgerechtes Bogenmaß zu erzeugen. Für alle, die dieses Tool nutzen wollen habe ich das LISP-Programm angehängt.

Eine kleine Macke hat das Programm noch: Bevor die Bogenbemaßung erzeugt wird (auf Layer AM_5), wird der zuvor aktuelle Layer ausgelesen und weggeschrieben (Variable "Layer_alt"). Am Ende des Programms soll wieder das vor der Bogenmaßerzeugung aktuelle Layer geschaltet werden. Leider klappt das nicht so richtig (vorletzte Programmzeile - auskommentiert!), das Programm gibt eine Fehlermeldung. Gibt's unter euch einen LISP-Spezi, der das Problem lösen kann?

------------------
Gruss

Günther

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

---

Bogen.zip

Hallo Forum,

Nachdem jetzt auch die letzte Macke (Zurückschalten auf Ausgangslayer) mit Hilfe des LISP-Forums beseitigt wurde, hier noch einmal für alle Anwender/innen, die eine normgerechte Bogenbemassung erzeugen wollen, das Programm. Viel Spaß damit!

------------------
Gruss

Günther

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

---

Äh... wenn ich das Lisp-Progrämmschen in die Oberfläche von Mech6 ziehe, springt es sofort an. Aber wiederholen läßt sich das nicht mit dem Befehl BemBL - oder? Das Tool hört doch auf BemBL??

Wie binde ich das denn dauerhaft ein?

Finde ich übrigens super, dass sich hier wer die Mühe gemacht hat. Wird bei uns immer wieder benötigt...

Danke!

------------------
Stephan

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

---

Hi Stephan,
...dann versuchs doch stattdessen mal mit _appload

_appload eingeben Enter
Im Dialogfenster bei Anwendung laden das mit der BEMBOGEN.LSP wählen
BEMBOGEN.LSP anklicken - sie wird in dem Fenster neben Laden angezeigt, Button Laden anklicken
Das Dialogfenster Schließen

Die Routine steht damit in der aktuellen Zeichnungssitzung zur Verfügung, wird sie ein andermal gebraucht, neu laden oder die Routine gleich der Startgruppe im Dialogfenster des appload-Befehls zufügen .

Gruss Angelika

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

---

Gleicher Effekt bei mir: Das Progrämmschen springt gleich an. Wiederholen läßt es sich nicht mit bembl. Außerdem: Wenn es in die Startgruppe mit aufgenommen wird, so startet Acad bereits mit einer Fehlermeldung. Also irgendwie....
Das mit dem Bogen ist eine tolle Erweiterung, aber es funktioniert nicht richtig?!

Stephan

------------------
Stephan

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

---

Hallo Stephan,

Nach meinem Urlaub habe ich mal wieder einen Blick ins Forum geworfen und deine beiden Beiträge gelesen. Dazu folgendes:

- Das Lisp-Programm, welches ich zum Download mit reingestellt habe, ist eigentlich dazu gedacht gewesen, den Aufruf über einen Schalter eines selbsterstellten Werkzeugkastens vorzunehmen. Ich vermute, dies ist nicht das einzige Lisp-Programm, dass in eurer Firma benutzt wird. Daher lohnt sicht schon die Erstellung eines eigenen Werkzeugkastens.

- Willst Du aber das Programm mit der AutoCAD-Sitzung starten (ist im Beitrag von Angelika beschrieben) und anschliessend mehrfach ausführen, so musst Du folgende Programmzeile wie folgt ändern:

(defun BemBL (/ es en el len)  --->  (defun c:BemBL (/ es en el len)

Lösche ausserdem die drittletzte Zeile:  (BemBL) ; Funktion ausführen

Die Änderung bewirkt dann folgendes: Das Programm wird nach dem Laden nicht mehr automatisch gestartet, sondern wurde in eine Funktion umgewandelt. Diese Funktion wird nur dann ausgeführt, wenn in die Befehlszeile der Funktionsaufruf "BemBL" eingegeben wird - so oft wie Du willst in deiner AutoCAD-Sitzung.

------------------
Gruss

Günther

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

---

Super - Danke! Es funktioniert!

------------------
Stephan

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

---

Hallo Günther,
würden Dein Progrämmchen auch gerne benutzen, am besten als Schalter über selbsterzeugten Werkzeugkasten.
Kannst Du mir hierfür die nötige Eingabe für den Aufruf (Makro)mitteilen?
mfg
Harald

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

---

Hallo Günther,
ups, man sollte ab und an das Gehirn zwischenschalten und alles lesen und verarbeiten.
`tschuldige, habe Deine Ergänzung nicht richtig beachtet, funktioniertjetzt mit BemBl
Danke UŽs unterwegs
mfg Harald

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

---

Hallo Günther,
da ich noch relativ neu im Forum bin, blättere ich noch so durch auf der Suche nach interessanten Dingen. Bin dabei auf deinen Beitrag gestossen und habŽs gleich ausprobiert. Geht auch wunderbärchen, nur das Zurückschalten auf den vorher aktuellen Layer klappt so nicht?
Übrigens: im Verzeichnis ACADM\GEN gibtŽs die use1 - use5.lsp, wo man eigene LISP-Routinen hinterlegen kann. Habe dein Tool dort eingebunden und habe so direkten Zugriff darauf über mein Tablett. (Ich geb ja zu, ich bin so ein ewig gestriger, der immer noch mit Tablett arbeitet).
Noch ne Frage: Was hat das mit den "U"`s auf sich? Wie kann ich die verteilen und wo bekomme ich die her?
Ansonsten herzlichen Dank und bis dann.
Gruß Helmut

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

---

Hallo Helmut,

Willkommen im Club! Nun, ich hoffe, Du hast Dir das Lisp-Programm aus meinem Beitrag vom 30.07.2003 heruntergeladen. In diesem Programm klappt das Zurückschalten auf den Ausgangslayer einwandfrei.
Zu deiner Frage nach den Unities: Klick doch einfach mal auf "Unities" (findest Du oben in jedem Beitrag), da ist alles darüber gesagt.

------------------
Gruss

Günther

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

---

Guten Morgen Günther.
so, die ersten "U"Žs sind unterwegs allein für dein Programm.
Aaaaber: so richtig klappt das bei mir trotz allem nicht.
Habe die Version vom 30. 07. genommen und die Änderungen vom August
nachgetragen [ ( --->  (defun c:BemBL (/ es en el len) und die drittletzte Zeile gelöscht ]. Layer AM_5 bleibt weiterhin aktuell?
Dank für Deine Hilfe schon im Voraus.
Gruß Helmut

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

---

Bogen_F.ZIP

Hallo Helmut,

Du hast Recht. Die Layer-Zurückschaltung funktioniert dann nicht richtig, wenn Du das Lisp-Programm als Funktion durch Eingabe von "BemBL" in die Befehlszeile ausführen willst. Daher für diesen Fall das modifizierte Programm als Download. Ich hoffe, es funktioniert anschliessend auch bei Dir.

------------------
Gruss

Günther

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

---

hallo zusammen,

ich habe die bogenlängenbemaßung noch ein bischen erweitert:

Befehl "cf_dim_arclen"

1. Für AutoCAD mit und ohne Mechanical
2. Layer für BEM kann in Mech. modifiziert sein
3. Funktionier mit Polylinien (Bogensegment)
4. Funktioniert in Blöcken

(defun c:cf_dim_arclen (/)
  (setq cf_sel (nentsel))

  (if (not cf_sel)
    (exit)
  )

  (setq cf_ent_type (cdr (assoc 0 (entget (car cf_sel)))))

  (setq cf_point (cadr cf_sel))

  (setq cf_scale (getvar "dimscale"))
  (if (setq cf_gen_scale (genpmscget cf_point))
    (progn
      (setq cf_scale (car cf_gen_scale))
    )
  )

  (setq cf_last_ele (entlast))

  (vl-cmdf "._dimangular" cf_point cf_point)

  (setq cf_new_ele (entlast))

  (if (not (equal cf_new_ele cf_last_ele))
    (progn
      (setq cf_dim_ent (entget cf_new_ele))
      (entdel cf_new_ele)
      (setq cf_radius (distance (cdr (assoc 15 cf_dim_ent))
(cdr (assoc 13 cf_dim_ent))
      )
      )
      (setq cf_angle (cdr (assoc 42 cf_dim_ent)))
      (setq cf_bogen_lang (* cf_radius cf_angle cf_scale))
      (setq cf_bogen_lang (rtos cf_bogen_lang))
      (setq cf_layer (getvar "clayer"))
      (if (command "'_-amlayer" "_o" "DILI")
(princ)
      )
      (if (findfile "amgdt.shx")
(setq cf_prefix "{\\fAMGDT|b0|i0|c0|p2;k }")
(setq cf_prefix "b-länge ")
      )

      (command "._dimangular"
      cf_point
      "_text"
      (strcat cf_prefix cf_bogen_lang)
      pause
      )
      (setvar "clayer" cf_layer)
    )
  )
)

Gruß Volker

------------------
cadflow gmbh
volker oberdellmann

email:  vo@cadflow.de

tel.:    02324 5919580
fax.:    02324 5919581

strasse: werksstrasse 15
ort:    45527 hattingen

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