---

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

---

151216_sau1.jpg 151216_FI.JPG

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

---

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

---

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

---

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

---

Hallo CADmium

Super Danke läuft - werde morgen nochmal weiter testen.

Nochmals DANKE.

Gruß
addibaba66

------------------
SA

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