---

hi,

wenn ich ein bauteil, mit mehreren bohrungen, erstellt habe und dieses isolliere, dann mit umgrenzung auf einem anderen layer neue umgrenzungen erstelle, sind dieses ja alles polylinien. gibt es eine möglichkeit die umgrenzungen der bohrungen wieder zu kreisen zu machen.

jörg

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

---

_xplode ??

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

---

also _xplode erstellt bei mir keine Kreise aus Bögen...

Hier http://new.cadalyst.com/code/browseyear.cfm?fullyear=1999 gibts aber ein Tool (1/99) das aus Bögen Kreise macht (genauer gesagt diese ersetzt)

(Registrierung ist kostenlos)

------------------
Grüsse

Thomas

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

---

ich dachte aus polylinien......da das thema "Polylinien in Kreis umwandeln" heist

mfg, Foxus

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

---

@Foxus:

und was erhältst du, wenn du eine Polylinie in Form eines Kreises mit _explode (_xplode) bearbeitest ? >>> 2 Bögen ! 
(das mir hier jetzt ja keiner mit Halbkreisen anfängt...    )

Anmerkung zum Tool:

es macht natürlich aus jedem vorhandenen Bogen einen Kreis, also Vorsicht und generiert euch keine doppelten Kreise
(danke an Cadzia für den Hinweis !)

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 22. Mrz. 2005 editiert.]

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

---

@cadworker

Ist Strg-C (dann Strg-V) als Reproduktion auf einem anderen Layer nicht auch eine Möglichkeit?
Dieser Block lässt sich dann wieder dynamitisieren... 

------------------

Schulungen auf www.bkf.de

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

---

pl2circle.VLX.txt

So, anbei noch ein BTN-Tool:
1. Anhang als vlx-Datei in Supportpfad speichern
2. in Vlx-Datei in ACAD laden
3. Aufruf mit  DT:PL2CIRCLE

Dabei kann die Polylinie auch aus mehreren "Bögen" gleichen Mittelpunkts bestehen ...

------------------
          - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 22. Mrz. 2005 editiert.]

[Diese Nachricht wurde von CADmium am 24. Mrz. 2005 editiert.]

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

---

Bögen mit gleichem Mittelpunkt und Radius, die insgesamt einen Vollkreis beschreiben lassen sich mit dem Befehl
VERBINDEN/_JOIN zu einem Kreis zusammenfassen (erst ab AutoCAD 2006).

Code:

---

Befehl: verbinden
Quellobjekt auswählen:
Bogen auswählen zum Verbinden mit Quelle oder [Schließen]:
Bogen auswählen zum Verbinden mit Quelle: 1 gefunden
Kombinierte Bogensegmente bilden einen Kreis.  In Kreis umwandeln? [Ja/Nein]
<Ja>: J
2 Bogen verbunden und in Kreis umgewandelt

---

------------------
Mit freundlichem Gruß

Udo Hübner
----------
Der versteckte Fehler bleibt nie unentdeckt.

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

---

@cadse: ich habe ja schon auf einem anderen layer die kreise, muss nur um ein NC programm zu erstellen mit umgrenzung arbeiten (kontur und versch. bohrungen)
@cadminum: funzt nicht, erkennt zwar polylinien aber wandelt diese (runden) nicht in kreise. schade

jörg

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

---

@cadworker:

hast du mal ein Beispiel dafür ? Eigentlich sollte das Tool von CADmium mit allen Varianten von Polylinien arbeiten (Plinetype 0-2) (am "lebenden" Objekt experementiert es sich leichter...)

------------------
Grüsse

Thomas

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

---

.. stell doch mal bitte eine Zeichnung mit solchen "Polylinienkreisen" rein ... Mit Polylinie nachgezogene Kreise macht es nämlich bei mir, Stützpunktanzahl /LWPoly/2D-Poly ... egal ..

------------------
- 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

---

@moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig.
dann pl2circle und ?
oder liegt es an 2002? werde es gleich mal checken.

jörg

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

---

Zitat:

---

Original erstellt von cadworker:
@moderatoren: einfach rechteck (1000x1000) erstellen, 4-5 kreise (r=1.5), oder selbst bei einem, anderer layer, umgrenzung, isolieren, schieben, fertig.
dann pl2circle und ?

---

Hab ich gemacht .. und funzt super! Muß allerdings gestehen, das ich zwischendurch mal ne andere vlx hochgeladen habe weil es bei der ersten mit 2D-Polys Probleme gab. Zieh dir nochmal die aktuelle Version und probiers noch mal.

------------------
- 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

---

hi,

ist wohl ein 2002 problem, im 2004 fuktioniert es.
kann man das auch 2002 tauglich machen? denn im betrieb herscht noch die steinzeit. mensch das wäre schön. ;-)

jörg

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

---

Hallo Cadworker,

vielleicht würde es ja auch Sinn machen, wenn das Programm einen zusätzlichen Layer, für die Umgrenzung, erstellen würde.
Dadurch könnte später auch einfacher der Umgrenzungslayer isoliert werden.

Ansgar

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

---

haallooooo,

hört mich denn keiner mehr???????

gibt es sowas auch auf steintafeln für 2002?

lg, jörg

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

---

Wenn Bögen vorliegen und kein 2006 zur Verfügung steht, kann man sich auch das auf einen Button packen:

^C^C(while(setq x(car(entsel)))(setq y(entget x))(setq y(reverse(cdr(member(assoc 50(reverse y))(reverse y)))))(setq y(subst '(0 . "CIRCLE")'(0 . "ARC") y))(entmake y)(entdel x))

Gruß Carsten

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

---

morgen,

@carsten: verstehe ich da was nicht?
bei mir, 2002, werden die polylinien damit entfernt, aber keine kreise erstellt oder irgendetwas gewandelt.

jörg

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

---

Hier das tuts auf alle Fälle
ps das macht dier auch aus eckigen Kreisen einen Kreis

Code:

---

(defun C:P2C ( / elem minx maxx miny maxy mitte )
(vl-load-com)
  (while
    (setq elem(entsel))
      (if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE")
        (progn
      (setq elem(car elem))
              (vla-getboundingbox
          (vlax-ename->vla-object elem)
          'xmin
          'xmax
          ) ;_ end of vla-getboundingbox
            (setq MINX (car (vlax-safearray->list xmin))
             MINY (cadr (vlax-safearray->list xmin))
             MAXX (car (vlax-safearray->list xmax))
             MAXY (cadr (vlax-safearray->list xmax))
      MITTE (list (/ (+ MINX MAXX) 2)
                       (/ (+ MINY MAXY) 2)
                 ) ;_ end of list
          )
      (entmake
    (list
      (cons 0 "CIRCLE")
      (cons 100 "AcDbEntity")
      (cons 67 0)
      (cons 410 "Model")
      (cons 8 "0")
      (cons 100 "AcDbCircle")
      (cons 10 mitte)
      (cons 40 (abs(distance mitte(list (/(+ maxx minx)2)miny))))
      ) ;_ end of list
    ) ;_ end of entmake
  )
    )
  )
    )

---

------------------
Gruß
    CADwiesel
Besucht uns im CHAT

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

---

der cadwiesel, der hatŽs ja drauf.
funzt super.
danke und 10 points goes to

jörg

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

---

jo , echt super, der macht sogar aus einer geraden  schräg in der Ebene liegenden Polylinie eine Kreis, ok, wenn sie waagerecht oder senkrecht liegt, gehts in die Hose und das Ursprungsobjekt wird auch nicht gelöscht.... und wenn man das
(if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE") rausnimmt kann  man es sogar für Kreise um Texte nutzen .. das nenn ich mal vielseitig

------------------
- 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

---

@cadwiesel
1. kann man das Lisp umschreiben oder erweitern, das man mehrere  Objekte auf einmal auswählen kann (vielleicht die 'Wahl Funktion einbauen)?

2. wenn ich den Befehl: P2C aufrufe und ein Objekt gewählt habe, wird auf dem vorhendenen Objekt ein zusätzlicher Kreis (mit dem aktuellen Layer) erzeugt, aber nicht die Polylinie in einen Kreis umgewandelt.
Dadurch habe ich dann mehrere Objekte aufeinander liegen. Dies ist dann bei der Erstellung von CNC-Daten hinderlich.
Kann man das Lisp so gestallten, daß automatisch ein andere Layer erzeugt wird, bzw. aktuell geschaltet wird?
Diesen könnte ich dann isolieren, und meine gewünschten Objekte dann verschieben.

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

---

So, habs noch mal etwas überarbeitet und die pl2circle.VLX neu geuppt. Siehe ein Stückchen weiter oben sollte jetzt auch auf 2002 laufen..
Achso : das Teil nimmt wirklich nur kreisförmige Polylinien und löscht die Ursprungsobjekte 

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 24. Mrz. 2005 editiert.]

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

---

hier isses
(defun C:P2C (/ as elem minx maxx miny maxy mitte)
  (vl-load-com)
  (while
    (if (setq as (ssget '((0 . "*POLYLINE"))))
      (progn
        (repeat (sslength as)
          (setq elem (ssname as 0))
          (vla-getboundingbox
            (vlax-ename->vla-object elem)
            'xmin
            'xmax
            ) ;_ end of vla-getboundingbox
          (setq MINX  (car (vlax-safearray->list xmin))
                MINY  (cadr (vlax-safearray->list xmin))
                MAXX  (car (vlax-safearray->list xmax))
                MAXY  (cadr (vlax-safearray->list xmax))
                MITTE (list (/ (+ MINX MAXX) 2)
                            (/ (+ MINY MAXY) 2)
                            ) ;_ end of list
                ) ;_ end of setq
          (entmake
            (list
              (cons 0 "CIRCLE")
              (cons 100 "AcDbEntity")
              (cons 67 0)
              (cons 410 "Model")
              (assoc 8 (entget elem))
              (cons 100 "AcDbCircle")
              (cons 10 mitte)
              (cons
                40
                (abs (distance mitte (list (/ (+ maxx minx) 2) miny)))
                ) ;_ end of cons
              ) ;_ end of list
            ) ;_ end of entmake
          (setq as (ssdel elem as))
          (entdel elem)
          ) ;_ end of repeat
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
  ) ;_ end of defun

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo cadwiesel,

10 für dich.
Was muss ich aus dem Lisp löschen, wenn ich vermeiden will, das auch die Rechtecke zu Kreisen werden?

Ansgar

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

---

Zitat:

---

Original erstellt von newcad:
Hallo cadwiesel,

Was muss ich aus dem Lisp löschen, wenn ich vermeiden will, das auch die Rechtecke zu Kreisen werden?

---

Wiesel arbeitet mit getboundingbox! Da werden Rechtecke, Dreiecke, schräg in der Ebene liegende gerade Polylinien.. zu Kreisen! Um wirklich bloß kreisförmige PLs umzuwandeln braucht es schon einen anderen Ansatz!! Hab ich aber oben schon mal erläutert..

------------------
- 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

---

etwas Eigeninitiative bei der Auswahl der Objekte wollte ich euch schon überlassen.
Der Vorteil ist aber auch, daß mit dieser Methode solche 'Krüppelkreise' wie sie aus Importformaten kommen können schön Rund gemacht werden.

Ich habe noch den Layer angepasst. Der Kreis wird nun auf dem Layer worauf das Quellobjekt lag, erstellt.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Also ich versuche es mal,

Wir haben Bibliothekszeichnungen mit Bauteilen, die mit/zu Blöcken verschachtelt sind.
Beispiel: Stell Dir einen einfachen Schrank (im Grundriss) mit einem Boden vor. Auf diesem Boden sind die Seiten des Schrankes als Rechtecke (als Block) gezeichnet. Die Seiten liegen auf dem Layer Seiten, der Sockelboden auf dem Layer Sockelboden.
In dem Zeichnungsblock der Seiten sind die Bohrungen für Schrauben oder Dübel als Kreise gezeichnet. Diese liegen aber auf dem Layer Boden.
Wenn ich nun den Layer Boden isoliere, kann ich auf ihm eine Umgrenzung erzeugen und diese in eine CNC-Datei schreiben.
Um aber über die Schnellauswahl die Kreise/Polylinien einem CNC-Werkzeug zuordnen zu können, müssen es Kreise sein.
Da unsere Schränke aber nur selten rechteckig aussehen, wäre es toll, wenn ich alle Objekte auswählen könnte, mir aber nur die Kreise umgewandelt würden.

Hilft das weiter?

Ansgar

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

---

Hallo Ansgar... sag mal, hast du mich auf der Ignoreliste ? Liest du dir meine Beiträge nicht durch? Für dein Anliegen ist Wiesel's Lisp ungeeignet!! dafür mußt du das nehmen!!!

------------------
- 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 Thomas,

ich will dich überhaupt nicht ignorieren. Im Gegenteil.
Als das Posting am Dienstag begonnen hat, habe ich mir deine vlx geladen. Klappte auch bis gestern. Dann wurde ich immer durch eine AutoCad Meldung an einen abgelaufenen Testzeitraum erinnert, mit dem Hinweis mich bei cadmium@cad.de zu melden. Die Meldung habe ich dann ignoriert. Beim nächsten Versuch die Polylinien umzuwandeln machte AutoCad die letzten ca.100 Befehle rückgängig. (Wie bei meiner PM über die Konstruktionslinien. Du erinnertst dich?)
Als dann das posting mit dem Lisp kam hatte ich die Hoffnung das wäre die Lösung für effizenteres Arbeiten.
Da ich aber keine Ahnung davon habe, was man mit Lisp oder VLX machen kann, bin ich an dieser Stelle unwissend.

Ansgar

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

---

Hallo Thomas,

auch auf die Gefahr hin, daß ich dich nerve.
Ich habe gerade die vlx neu geladen. APPLOAD pl2CIRCLE.vlx erfolgreich geladen.
Nach dem Aufruf mit PL2Circle kommt aber die Meldung:
Unbekannter Befehl "DT:PL2CIRCLE". Drücken Sie F1-Taste für Hilfe.
Was mache ich falsch?

Ansgar

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

---

bei mir ist es genauso,
DT:PL2CIRCLE und ??????
nichts passiert ausser die von ansgar geschriebene meldung.
oder ist DAS die 2002-version 

jörg

[Diese Nachricht wurde von cadworker am 25. Mrz. 2005 editiert.]

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

---

also unter AutoCAD 2004 funzt es ganz normal - unter AutoCAD 2006 leider nicht (da werde ich aber mit Thomas direkt drüber sprechen).

Und eine Meldung in Richtung mit CADmium in Verbindung setzen konnte ich auch nie reproduzieren....

------------------
Grüsse

Thomas

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

---

Zitat:

---

Original erstellt von tunnelbauer:
Und eine Meldung in Richtung mit CADmium in Verbindung setzen konnte ich auch nie reproduzieren....

[/B]

---

diese "meldung" bezieht sich auch eher auf das plaetten.lsp
habe ich nähmlich auch
jörg

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

---

Hallo,

gibt es eine vlx-Datei für Autocad 2007 ? Leider funktioniert es nicht - es kommt die Meldung
; error: no function definition: C T:PL2CIRCLE

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

---

ah super, habs hinbekommen, das hier funktioniert:

Zitat:

---

(defun C:P2C (/ as elem minx maxx miny maxy mitte)
  (vl-load-com)
  (while
    (if (setq as (ssget '((0 . "*POLYLINE"))))
      (progn
        (repeat (sslength as)
          (setq elem (ssname as 0))
          (vla-getboundingbox
            (vlax-ename->vla-object elem)
            'xmin
            'xmax
            ) ;_ end of vla-getboundingbox
          (setq MINX  (car (vlax-safearray->list xmin))
                MINY  (cadr (vlax-safearray->list xmin))
                MAXX  (car (vlax-safearray->list xmax))
                MAXY  (cadr (vlax-safearray->list xmax))
                MITTE (list (/ (+ MINX MAXX) 2)
                            (/ (+ MINY MAXY) 2)
                            ) ;_ end of list
                ) ;_ end of setq
          (entmake
            (list
              (cons 0 "CIRCLE")
              (cons 100 "AcDbEntity")
              (cons 67 0)
              (cons 410 "Model")
              (assoc 8 (entget elem))
              (cons 100 "AcDbCircle")
              (cons 10 mitte)
              (cons
                40
                (abs (distance mitte (list (/ (+ maxx minx) 2) miny)))
                ) ;_ end of cons
              ) ;_ end of list
            ) ;_ end of entmake
          (setq as (ssdel elem as))
          (entdel elem)
          ) ;_ end of repeat
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of while
  ) ;_ end of defun

---

wenn man das prog mit p2c aufruft. Ganz viel Danke!!

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

---

Zitat:

---

Original erstellt von Gromhelm2:
Hallo,

gibt es eine vlx-Datei für Autocad 2007 ? Leider funktioniert es nicht - es kommt die Meldung
; error: no function definition: C T:PL2CIRCLE

---

... da Tool hat einfach sein Absolutes Verfallsdatum erreicht ...und da dir das andere Lisp genügt, brauch ich die vlx ja nicht neu kompilieren ...?!

------------------
  - 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

---

nein, danke CADmium, das Lisp ist perfekt - hab super schnell 2300 bäume die als polylinien vorlagen in kreise umgewandelt.

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