---

Hallo Freunde,
ich habe vergebens versucht eine Bogenbemaßung zu erstellen.
Wer kann mir helfen ?

Gruss Leslie

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

---

als Workaround:
(defun c:bl (/ bogen)
  (setvar "cmdecho" 0)
  (setq bogen (entsel "Zu bemaßenden Bogen wählen !"))
  (command "_lengthen" (car bogen) "")
  (print "Maßposition zeigen !")
  (command "_dim" "_ang" bogen pause (rtos (getvar "PERIMETER") 2 2) "" "exit")
)

starten mit bl in der Befehlszeile

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

---

Hi CADmium,

ich will ja nicht reinreden, aber da lesli noch nicht so viele Beiträge gepostet hat, vielleicht solltest Du dazusagen, daß Dein Programmtext in einer LISP-Datei (*.LSP)
gespeichert werden muß und die Datei dann im AutoCAD als Anwendung geladen werden muß und erst dann über den Befehl bl aufgerufen werden kann ....

@lesli
nix für ungut, wenn Du Dich mit LISP doch auskennst  - dann vergiss meine unnütze Fürsorge 

Gruß Angelika

------------------
Lieber Fehler riskieren als Initiative verhindern.
(Reinhard Mohn)

Bitte Supportangaben eintragen, warum siehst du hier
:

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

---

Zitat:

---

Original erstellt von Angelika Hädrich:

ich will ja nicht reinreden, aber da lesli noch nicht so viele Beiträge gepostet hat, vielleicht solltest Du dazusagen, daß Dein Programmtext in einer LISP-Datei (*.LSP) ..

---

ok ..
also LESLI : Falls noch Hilfe benötigt wird, schau dir dazu mal den Thread an. Ansonsten noch mal Nachfragen.

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

Das Thema "Bogenbemaßung in AutoCAD" wurde schon einmal ausführlich aus folgender Seite behandelt:
http://ww3.cad.de/foren/ubb/Forum52/HTML/000792.shtml

Ich hoffe, der Link hilft dir weiter!

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

Günther

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

---

Vielen Dank Angelika,
für Deine richtige Einschätzung.
Ich weiss weder was Lisp ist,geschweige wie und wo ich das Programm schreiben soll.

Ich bin nur ein einfacher Konstrukteur der nach 20 Jahren Bretterfahrung nun seit einem 1/2 Jahr mit dem Mechanical übt.
Es klappt eigentlich schon ganz gut,ausser solche Feinheiten.
Vielleicht kannst Du es mir noch mal einfacher erklären evtl. Schritt für Schritt?

Mit freundlichen Gruß

Willi

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

---

BL-speich.jpg BL-laden.jpg BL-ausf.jpg

Hallo Willi,

also das Programm hat Dir CADmium schon geschrieben, Du brauchst nur einen einfachen Texteditor (z.B. Wordpad) nehmen und:

(defun c:bl (/ bogen)
  (setvar "cmdecho" 0)
  (setq bogen (entsel "Zu bemaßenden Bogen wählen !"))
  (command "_lengthen" (car bogen) "")
  (print "Maßposition zeigen !")
  (command "_dim" "_ang" bogen pause (rtos (getvar "PERIMETER") 2 2) "" "exit")
)

Von der öffnenden Klammer bis zur schließenden Klammer das Programm in den Editor kopieren und dann als BL.LSP speichern. (siehe Anhang1)

Wenn das erledigt ist kannst Du in AutoCAD Mechanical im Menü:

Hilfsmittel --> Anwendung anklicken
im Dialogfenster stellst Du den Dateity auf LSP und dann suchst Du das Verzeichnis mit Deiner BL.LSP, klickst die an und anschließend auf Laden. (siehe Anhang2)

In der Befehlszeile sollte dann stehen:
Befehl: _appload bl.lsp erfolgreich geladen.

Nun kannst Du den Befehl in der Befehlszeile eingeben und bemaßen.
(siehe Anhang3)

Gruß Angelika

------------------
Lieber Fehler riskieren als Initiative verhindern.
(Reinhard Mohn)

Bitte Supportangaben eintragen, warum siehst du hier
:

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