| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Abrunden (676 mal gelesen)
|
PBPaul Mitglied Konstrukteur
Beiträge: 48 Registriert: 28.09.2004
|
erstellt am: 18. Dez. 2008 06:46 <-- editieren / zitieren --> Unities abgeben:
Hallo, in Autocad 2004 habe ich ein Tool von Herrn Grünwald benutzt, mit dem bequem abgerundet werden konnte. In Autocad 2009 erkennt es die Objektwahl scheinbar nicht mehr. Leider sind meine Lispkenntnisse nicht besonders groß. Weiß jemand Rat. ;;; Abrunden, Mehrfachabrunden ;;; Auch für Poly- und LWPolylinien. ;;; 31.1.05, (d) Schoenwald ;; (defun C:RADI (/ ELE_1 ELE_2 C D E F G J K L O P SS2) (setq C_E (getvar "CMDECHO") G_M (getvar "GRIDMODE") E NIL ) (setvar "CMDECHO" 0) (defun R_VAR () (setq R_D NIL E NIL ) (setvar "GRIDMODE" G_M) (setvar "CMDECHO" C_E) ) ;; ---------------------- (defun RADI_DIALOG (/ I1) (setq I1 (load_dialog "RADI.DCL")) (if (null (new_dialog "RADI" I1)) (alert "\n \nLaden der Dialogbox nicht moeglich!") ) (set_tile "R_D" (rtos (getvar "FILLETRAD") 2 3)) (setq R_D (atof (get_tile "R_D"))) (action_tile "R_D" "(SETQ R_D (ATOF $VALUE))") (action_tile "ACCEPT" "(done_dialog 1)") (start_dialog) (unload_dialog I1) ) ;;------------------------------------------------------- (RADI_DIALOG) (if R_D (setvar "FILLETRAD" R_D) ) (setvar "GRIDMODE" 0) (setq ELE_1 t ELE_2 t ) (while (and ELE_1 ELE_2) (setq ELE_1 (entsel "\n \n \nErstes Objekt wählen: ")) (if ELE_1 (progn (redraw (car ELE_1) 3) (princ) (setq ELE_2 (entsel "\nZweites Objekt wählen: ")) (if ELE_2 (progn (redraw (car ELE_2) 3) (setq O (car ELE_1) P (car ELE_2) C (entget O) D (entget P) IT (entlast) E NIL ) (if (or (= (cdr (assoc 0 C)) "POLYLINE") (= (cdr (assoc 0 C)) "LWPOLYLINE")) (progn (setq E "1" F (cdr (assoc 40 C)) ) (if (> F 0) (setq G (osnap (cadr ELE_1) "NEA")) (setq G (cadr ELE_1)) ) (command "_EXPLODE" O) ) ;_ end progn (setq G (cadr ELE_1)) ) ;_ end if (if (or (= (cdr (assoc 0 D)) "POLYLINE") (= (cdr (assoc 0 D)) "LWPOLYLINE")) (progn (setq E "1" J (cdr (assoc 40 D)) ) (if (null F) (setq F J) ) (if (> J 0) (setq H (osnap (cadr ELE_2) "NEA")) (setq H (cadr ELE_2)) ) (if (not (equal C D)) (command "_EXPLODE" P) ) ) ;_ end progn (setq H (cadr ELE_2)) ) ;_ end if (command "_.FILLET" G H) (if (= E "1") (progn (command) (command "_PEDIT" (entlast) "_Y" "_J" "_all" "" "" "REGEN") ) ) ) (prompt "\nEs wurde kein zweites Objekt gewählt") ) ;_end if ELE_2 ) (prompt "\nEs wurde kein erstes Objekt gewählt") ) ;_end if ELE_1 ) (princ) (R_VAR) (princ) ) (princ) Mit freundlichen Grüßen
Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 18. Dez. 2008 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für PBPaul
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 18. Dez. 2008 14:27 <-- editieren / zitieren --> Unities abgeben: Nur für PBPaul
|
PBPaul Mitglied Konstrukteur
Beiträge: 48 Registriert: 28.09.2004 ACAD 2009, Vista 64
|
erstellt am: 20. Dez. 2008 11:45 <-- editieren / zitieren --> Unities abgeben:
Sehr geehrter Herr Schönwald, ich bitte Sie vielmals um Entschuldigung für die falsche Urheberangabe. Da sieht man schön welche Macht das Unterbewusstsein hat. Bestimmt habe ich gedacht ein grüner Wald ist ein schöner Wald. Inzwischen habe ich "radi_07" getestet. Das nimmt die Objektwahl zwar an aber das Programm endet nach dem ersten Abrunden. An dieser Stelle möchte ich allen danken, die dieses Forum mit Leben erfüllen und auch denen helfen, die selbst mangels ausreichender Kenntnisse wenig beitragen können. Mit freundlichen Grüßen Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Bauingenieur im Tief-, Straßen- und Stadtbahnbau (m/w/d) | Wir sind als Ingenieurbüro seit 1997 in der Metropolregion Rhein-Neckar tätig. Unsere Projekte erstrecken sich im Umkreis von Ludwigshafen am Rhein von max. 100 km. Mit einer Personalstärke im Mittel von 10 Angestellten bearbeiten wir kleine bis mittlere Bauvorhaben für unsere Kunden. Unsere Leistungen bieten wir an, von der vermessungstechnischen Bestandsaufnahme über alle Leistungsphasen der HOAI bis zur Schlussvermessung mittels Laserscanner an.... | Anzeige ansehen | Bauwesen |
|
Theodor Schoenwald Ehrenmitglied
Beiträge: 1672 Registriert: 16.04.2002
|
erstellt am: 21. Dez. 2008 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für PBPaul
Hallo Paul, eine Namensverwechsung ist wirklich kein Problem. Lieber ist es mir wenn es mit "Du" weiter geht. Nun zu eigentlichen Problem, dass das Tool nicht das macht was es soll. Gerade gestern habe ich das Tool ständig benutzt, ich habe eine Tigerente als Puzzle gezeichnet. Schick mir einfach eine Mail, mit der Zeichnung bei der es nicht geht, damit ich unter gleichen Bedingungen testen und den Fehler finden kann. Mit ACAD2009 kann ich jedoch erst nach dem 10. Januar wieder testen. In der Schule ist ACAD2009, bei mir zu Hause benutze ich ACAD2000 weil ich keinen Update-Wahn mitmachen möchte. Gruß Theodor Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |