---

Ist es mögich, mit ACAD2000 eine 3D-Kreis zu zeichen? Also z.B. 3 Punkte im Raum (x,y,z) festlegen und dann Kreis durch 3 Punkte?

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

---

OK, vergesst diesen Beitrag. Habe es gerade selbst rausgefunden: BKS an den drei Punkten ausrichten, Kreis reinlegen, altes BKS wiederherstellen, fertig.
Aaaaaber, nun möchte ich etwas anderes erreichen. Ich habe lauter 3D-Splines im Raum liegen (geschlossen), die nahezu Kreisform habe, leider nur nahezu. Gibt es eine Möglichkeit, in jeden dieser Spline-Ringe einen Kreis mittig reinzusetzen? Und das möglichst automatisch für 500 solcher Splines in einer Zeichnung.
Irgendwelche Ideen?

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

---

Ich glaub', das wird teuer.

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

---

Ich habs befürchtet

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

---

Zitat:

---

Original erstellt von Torsten Niemeier:
Ich glaub', das wird teuer.

---

Das ist die Antwort des Tages finde ich!

Gruss
Harald

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

---

Hallo amarbs und Harald,

ich hab' nochmal drüber nachgedacht, und eigentlich ist die Sache sehr einfach. Wenn die Splines tatsächlich nahezu kreisförmig sind und genügend Kontrollpunkte haben, müßte dieses Lisp die Sache eigentlich erledigen.

Ist etwas komisch programmiert, aber ich hab' das auch schon lange nicht mehr gemacht.

HTH, Torsten

(defun c:spl2cir (/)
  (princ "\nKreise werden gezeichnet... ")
  (command "cmdecho" "0")
  (setq os (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "regen")
  (command "bks" "w")
  (command "-layer" "n" "spl2cir" "fa" "1" "spl2cir" "")
  (command "-layer" "se" "spl2cir" "")
  (setq auswahl (ssget "x" '((0 . "spline"))))
  (if auswahl
    (progn
        (setq anzahlauswahl (sslength auswahl))
        (setq korrigiert 0)
        (setq zaehler 0)
        (repeat anzahlauswahl
          (setq elementname (ssname auswahl zaehler))
          (setq element (entget elementname))
          (setq kontrolle (car (car element)))
          (setq liste (if (/= kontrolle 10) (cdr element) element))
          (setq kontrolle (car (car liste)))
          (while (/= kontrolle 10)
              (setq liste (cdr liste))
              (setq kontrolle (car (car liste)))
          )
          (setq liste2 (list (car liste)))
          (setq liste (cdr liste))
          (setq kontrolle (car (car liste)))
          (while (= kontrolle 10)
              (setq liste2 (append liste2 (list (car liste))))
              (setq liste (cdr liste))
              (setq kontrolle (car (car liste)))
          )
          (setq anzahlpunkte (length liste2))
          (setq abstand (/ anzahlpunkte 3))
          (setq abstand (fix abstand))
          (setq punkt1 (cdr (car liste2)))
          (setq punkt2 (cdr (nth abstand liste2)))
          (setq punkt3 (cdr (nth (fix (* 2 abstand)) liste2)))
          (command "bks" "w")
          (command "bks" "3" punkt1 punkt2 punkt3)
          (setq punkt1 (trans punkt1 0 1)) 
          (setq punkt2 (trans punkt2 0 1)) 
          (setq punkt3 (trans punkt3 0 1))
          (command "_circle" "_3p" punkt1 punkt2 punkt3)
          (setq zaehler (+ 1 zaehler))
        )
    )
  )
  (command "bks" "w")
  (setvar "OSMODE" os)
  (command "cmdecho" "1")
  (princ anzahlauswahl)
  (princ " Kreis(e) eingezeichnet.")
  (princ)
)

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

---

Wow! Bin begeistert! Danke!!!
Es funktioiert auch recht gut, aber noch 2 Fragen:
1. Wie werden mit dem Programm die 3 Punkte für den Kreis bestimmt?
2. Lässt sich das ganze so umwandeln, dass es für 3D-Polylinien funktioniert? Das Ersetzen von "spline" durch "edpoly" funktioniert leider nicht

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

---

Hallo amarbs,

1. Die Kontrollpunkte des Splines werden gezählt.
  erster Punkt = 1. Kontrollpunkt des Splines
  zweiter Punkt = (anzahl/3)'ter Kontrollpunkt
  dritter Punkt = (2*anzahl/3)'ter Kontrollpunkt
  Wenn die Form schon nahezu kreisförmig ist, sollte das passen.

2. Werd's mal versuchen.

Gruß, Torsten

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

---

SUPER Thorsten!

Das man die Kreise einzeichnen kann über 3 Punkte ist klar...
Das man die Elemente über die Kreise gezeichnet werden sollen filtern kann ist klar...
Das das ganze von Hand recht mühsam ist (>500 Elemente) ist auch klar...

Aber das Ganze so schnell programmieren ist (für mich) nicht klar!

Sprichst Du noch andere Sprachen? 

- Ich will mir gar nicht ausmalen wie lange ich benötigt hätte - bei mir wäre es sicher "teuer" geworden!
Dafür kann es gar nicht genügend Punkte geben...

Gruss

Harald

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

---

(defun c ol2cir (/)
  (princ "\nKreise werden gezeichnet... ")
  (command "cmdecho" "0")
  (setq os (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "regen")
  (command "bks" "w")
  (command "-layer" "n" "pol2cir" "fa" "6" "pol2cir" "")
  (command "-layer" "se" "pol2cir" "")
  (setq auswahl (ssget "x" '((0 . "polyline"))))
  (if auswahl
    (progn
        (setq anzahlauswahl (sslength auswahl))
        (setq korrigiert 0)
        (setq zaehler 0)
        (repeat anzahlauswahl
          (setq elementname (ssname auswahl zaehler))
          (setq element (entget elementname))
          (setq vorher elementname)
          (setq nachher (entnext vorher))
          (setq punkt (entget nachher))
          (setq liste2 (list (assoc 10 punkt)))
          (setq vorher nachher)
          (setq kontrolle 0)
          (while (/= kontrolle 1)
              (setq nachher (entnext vorher))
              (setq punkt (entget nachher))
              (setq elname (cdr (assoc 0 punkt)))
              (setq kontrolle 1)
              (while (= elname "VERTEX")
                (setq liste2 (append liste2 (list (assoc 10 punkt))))
                (setq kontrolle 0)
                (setq elname "abbruch")
              )
              (setq vorher nachher)
          ) 
          (setq anzahlpunkte (length liste2))
          (setq abstand (/ anzahlpunkte 3))
          (setq abstand (fix abstand))
          (setq punkt1 (cdr (car liste2)))
          (setq punkt2 (cdr (nth abstand liste2)))
          (setq punkt3 (cdr (nth (fix (* 2 abstand)) liste2)))
          (command "bks" "w")
          (command "bks" "3" punkt1 punkt2 punkt3)
          (setq punkt1 (trans punkt1 0 1)) 
          (setq punkt2 (trans punkt2 0 1)) 
          (setq punkt3 (trans punkt3 0 1))
          (command "_circle" "_3p" punkt1 punkt2 punkt3)
          (setq zaehler (+ 1 zaehler))
        )
    )
  )
  (command "bks" "w")
  (setvar "OSMODE" os)
  (command "cmdecho" "1")
  (princ anzahlauswahl)
  (princ " Kreis(e) eingezeichnet.")
  (princ)
)

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

---

Sorry, hab grad' gesehen, daß der Code faul ist.
Die Stelle mit dem Smily soll heißen:

... c doppelpunkt pol2cir ....

Gruß, Torsten

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

---

Vielen Dank für Deine Hilfe Torsten!!!

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