Bogenmaß (Autodesk/Rund um AutoCAD)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Cideon Solution Days: Zukunftsschmiede für digitales Engineering, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Bogenmaß (2960 mal gelesen)

Rhein
Mitglied

Senden Sie eine Private Message an Rhein

Schreiben Sie einen Gästebucheintrag für Rhein

Beiträge: 4
Registriert: 11.11.2003

ACAD 2004

erstellt am: 05. Jul. 2004 13:51

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo,
weiß jemand von euch wie man ein Bogenmaß bemaßen kann??????

Danke im voraus
Ulrich

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

AsSchu
Ehrenmitglied
Konstrukteur

Senden Sie eine Private Message an AsSchu

Schreiben Sie einen Gästebucheintrag für AsSchu

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 05. Jul. 2004 13:59

<-- editieren / zitieren -->

Unities abgeben:

Nur für Rhein

dazutext.zip

Zitat:
Original erstellt von Rhein:
Hallo,
weiß jemand von euch wie man ein Bogenmaß bemaßen kann??????
Danke im voraus
Ulrich

eventuell so:

(defun c:bl (/ bogen PERIMETERTEXT HOCHTEXT)
(setvar "cmdecho" 0)
(setq bogen (entsel "Zu bemaßenden Bogen wählen !"))
(command "_lengthen" (car bogen) "")
(print "Maßposition zeigen !")
(setq PERIMETERTEXT (rtos (getvar "PERIMETER") 2 3))
(setq HOCHTEXT (substr PERIMETERTEXT (strlen PERIMETERTEXT) 1))
(setq PERIMETERTEXT (substr PERIMETERTEXT 1 (-(strlen PERIMETERTEXT) 1)))

(command "_dim" "_ang" bogen pause (strcat (chr 244) PERIMETERTEXT "{\\A2;\\H0.71x;" HOCHTEXT "}") "" "exit")
)

und den dazugehörigen Textstil

Wegen der Urheberrechte :-))
Das ist ein Lisp von CADmium

[Diese Nachricht wurde von AsSchu am 05. Jul. 2004 editiert.]

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

j-sc
Ehrenmitglied