| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Mit SAP ERP/PLM den Anlagenbau perfekt organisiert - NEUMAN & ESSER GROUP (CIDEON, SAP, ERP, PLM, CAD), ein Anwenderbericht
|
Autor
|
Thema: Kreisdurchmesser ändern (1834 mal gelesen)
|
addibaba66 Mitglied
Beiträge: 36 Registriert: 13.06.2008 AutoCAD 2007 + Windows
|
erstellt am: 16. Dez. 2015 15:45 <-- editieren / zitieren --> Unities abgeben:
Hallo liebe Forumsmitglieder Ich möchte in einer Zeichnung mit sehr vielen Kreisen (ca. 12000) den Durchmesser ändern. Der Durchmesser soll nach den mathematischen Regeln auf eine Stelle nach dem Komma gerundet und geändert werden. Ich habs über "Filter" probiert - aber dort kann man immer nur einen Operator angeben und ich braüchte ja zwei. Ich hoffe es kann mir jemand helfen. DANKE Gruß addibaba66 ------------------ SA Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 16. Dez. 2015 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für addibaba66
Warum nur einen? Du kannst so viele angeben wie du möchtest > < fertig auch hättest du 2 Filtervorgänge nacheinander machen können, so würde es dann neben dem Filter auch über die Schnellauswahl gehen. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
addibaba66 Mitglied
Beiträge: 36 Registriert: 13.06.2008 AutoCAD 2007 + Windows
|
erstellt am: 16. Dez. 2015 15:59 <-- editieren / zitieren --> Unities abgeben:
Hallo cadffm Sorry versteh ich nicht. Ich muß doch dem Filter z.B. "sagen" alle Durchmesser größer 5,0 und kleiner als 5,233 anzeigen und in 5,0 ändern. Dachte aber es gibt ein lsp oder vba der das in einem Rutsch macht (messen --> runden --> ändern). Gruß addibaba66 ------------------ SA Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 16. Dez. 2015 16:07 <-- editieren / zitieren --> Unities abgeben: Nur für addibaba66
Der Filter, filtert, mehr nicht. Das "in 5.0" ändern mußt du schon selbst machen. Ich nehme an das du überhaupt nicht "filterst" sondern "sauswahlst" (siehe Anhänge oben) Wie auch immer: Natürlich gibt es dafür auch Tools, insbesondere wenn man dies für verschiedene Durchmesser benötigt. Aber da dies nicht die Frage war, gehe ich mal nicht weiter darauf ein (das Stichwort wäre da FUZZI GENAUIGKEIT RUNDEN usw). Ich bin raus ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 16. Dez. 2015 16:26 <-- editieren / zitieren --> Unities abgeben: Nur für addibaba66
Bitte: (defun c:Circleround(/ DT:ROUND2 AWS) (defun DT:ROUND2 (ZAHL BASIS / TEMP ) (if (and(numberp ZAHL) (=(numberp BASIS))(> BASIS 0)) (progn (setq TEMP (/ (abs ZAHL) BASIS)) (cond ( (> (- TEMP (fix TEMP)) 0.5) (setq TEMP (+ (fix TEMP) 1))) ( (< (- TEMP (fix TEMP)) 0.5) (setq TEMP (fix TEMP) )) ( (= (- TEMP (fix TEMP)) 0.5) (if (equal (/ (fix TEMP) 2.0) (fix(/ (fix TEMP) 2.0)) 0.001) (setq TEMP (fix TEMP) ) (setq TEMP (+ (fix TEMP) 1)) ) ) ) (setq TEMP (* BASIS TEMP (if (< Zahl 0 ) -1.0 1.0))) ) ) (if (=(type BASIS)'INT) (fix TEMP) TEMP) ) (if(setq AWS(ssget '((0 . "CIRCLE")))) (mapcar '(lambda(X / Y R) (if(and(setq Y(cadr X)) (setq Y(entget Y)) (setq R (cdr(assoc 40 Y))) (setq R (DT:ROUND2 R 0.1)) (setq Y(subst(cons 40 R)(assoc 40 Y)Y)) ) (entmod Y) ) ) (ssnameX AWS) ) (princ) ) ) ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - 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 |
addibaba66 Mitglied
Beiträge: 36 Registriert: 13.06.2008 AutoCAD 2007 + Windows
|
erstellt am: 16. Dez. 2015 16:43 <-- editieren / zitieren --> Unities abgeben:
|