| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Cideon Solution Days am Nürburgring - Innovation trifft auf Schnelligkeit, eine Pressemitteilung
|
Autor
|
Thema: Bogen-Bemassung (1514 mal gelesen)
|
dr-nikolai Ehrenmitglied
Beiträge: 1790 Registriert: 10.04.2002
|
erstellt am: 22. Okt. 2002 17:53 <-- editieren / zitieren --> Unities abgeben:
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 |
carambita Mitglied Dipl.-Ing. Theater- u. Veranstaltungstechnik
Beiträge: 272 Registriert: 03.10.2002 Windows 7 (64-bit) / AutoCAD 2015
|
erstellt am: 22. Okt. 2002 18:18 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
|
GWH Mitglied
Beiträge: 552 Registriert: 08.06.2001
|
erstellt am: 22. Okt. 2002 23:08 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
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 |
Higgo Mitglied Zeichner
Beiträge: 119 Registriert: 10.04.2002 AutoCAD 2002, Express-Tools ADT 3.3 Windows XP Design Jet 1050C
|
erstellt am: 23. Okt. 2002 07:54 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
|
dr-nikolai Ehrenmitglied
Beiträge: 1790 Registriert: 10.04.2002
|
erstellt am: 23. Okt. 2002 08:38 <-- editieren / zitieren --> Unities abgeben:
|
carambita Mitglied Dipl.-Ing. Theater- u. Veranstaltungstechnik
Beiträge: 272 Registriert: 03.10.2002 Windows 7 (64-bit) / AutoCAD 2015
|
erstellt am: 23. Okt. 2002 10:19 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
|
otterloh Mitglied
Beiträge: 188 Registriert: 27.06.2001 AutoCAD 2012, 2013, 2019 Win8.1
|
erstellt am: 23. Okt. 2002 14:03 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
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 |
otterloh Mitglied
Beiträge: 188 Registriert: 27.06.2001 AutoCAD 2012, 2013, 2019 Win8.1
|
erstellt am: 24. Okt. 2002 19:52 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
|
Josua99 Mitglied CAD-Operator
Beiträge: 2 Registriert: 05.01.2003
|
erstellt am: 05. Jan. 2003 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für dr-nikolai
|