---

Hallo Leute,
ich muss mal wieder euer Wissen anzapfen.
Werde ja fast immer über die Suche fündig aber diesmal hat sie auch keine Lösung gefunden.

Also, ich habe sehr sehr viele Kreise mit einem 2m Durchmesser. In dem Kreis sind zwei Linien als Kreuz gezeichnet. Nun muss ich diese kleiner Darstellen. Die Kreise sind kein Problem, in den Eigenschaften Durchmesser auf 0.75 stellen und fertig. Nun sind die Linien aber zu lang, bzw. stehen seitlich über. Bei 2500 Kreisen ist das eine unglaubliche Sisyphusarbeit      die Linien zu kürzen.

Hat jemand eine Idee, wie ich das schneller erledigen kann?

Grüße
Balrok

------------------
[ img ]http://ww3.cad.de/foren/ubb/uploads/Balrok/Homer_Bit_Apple.jpg[ /img ]

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

---

Lösche alle Linien und erstelle einen Block den du dann auf den Positionen der Kreise einfügst.

Ist aus meiner Sicht der Schnellste Weg. Tools zum Tauschen von Kreisen gegen Blöcke (oder umgekehrt?) gibt es im Netz.

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

Thomas

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

---

Hi Tunnelbauer,

ich such und such und kann nichts finden.
Was ich wohl finden kann, ist Punkte gegen Blöcke tauschen, aber nicht Kreise!

Grüße

------------------
[ img ]http://ww3.cad.de/foren/ubb/uploads/Balrok/Homer_Bit_Apple.jpg[ /img ]

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

---

Stell mal bitte ne DWG mit nem BSP-Ausschnitt hier rein..

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

---

moin,

>> Was ich wohl finden kann, ist Punkte gegen Blöcke tauschen, aber nicht Kreise!

na dann tauscht Du erst die Kreise gegen Punkte und dann die Punkte gegen Blöcke 
Wer sich sowas nicht selber schreiben kann, muß halt seine Suchen etwas kreativer gestalten...

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Beispiel.zip

In dem Beispiel sind die Linien schon gelöscht.
Es sind nur noch die Kreise und ein Block vorhanden!

Grüße

------------------
[ img ]http://ww3.cad.de/foren/ubb/uploads/Balrok/Homer_Bit_Apple.jpg[ /img ]

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

---

@Runkelrübe:
Auf die Idee bin ich auch schon gekommen, aber gefunden habe ich da auch nichts.
...und leider bin ich nicht so gut in LSP-Programme schreiben.
Habe mal eins umgeschrieben, aber selbst erstellt leider noch nicht!

Grüße

------------------
[ img ]http://ww3.cad.de/foren/ubb/uploads/Balrok/Homer_Bit_Apple.jpg[ /img ]

[Diese Nachricht wurde von Balrok am 03. Nov. 2011 editiert.]

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

---

Mappe1.xls.txt

du kannst die geometrie der Kreise mit datenextraktion exportieren und zB. in Excel ein script bauen das dir die Blöcke setzt

ps.: einfach dann mit copy&paste in die Befehlszeile kopieren

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

[Diese Nachricht wurde von Bernd P am 03. Nov. 2011 editiert.]

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

---

ganz quick und ganz dirty

(defun c:KREISE2KANALDECKEL(/ AWS I OBJ DATA)
  (if(and(tblobjname "Block" "S_Kanaldeckel-rund")
        (setq AWS(ssget '((0 . "CIRCLE"))))
    )
    (progn
      (setq I -1)
      (repeat(sslength AWS)
        (setq OBJ(ssname AWS(setq I(1+ I))))
        (setq DATA(entget OBJ))
        (command "_-insert" "S_Kanaldeckel-rund" (cdr(assoc 10 DATA)) 1 1 0)
        (entdel OBJ)
      ) 
    )
  )
)

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

---

Zitat:

---

Original erstellt von Balrok:
In dem Beispiel sind die Linien schon gelöscht.
Es sind nur noch die Kreise und ein Block vorhanden!

Grüße

---

haben die Linien eine Bedeutung? oder sind es nur Zentrumsmarken?

wenn es nur Zentrumsmarken sind, dann schau mal hier
schon etwas älter...  die Länge kannst du im Lisp nach deinen Vorstellungen anpassen

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Abgesehen von den bisherigen Lösungen:

http://caddsoftwares.com/convert-muliple-circles-to-block-2/40 
http://www.cadtutor.net/forum/showthread.php?50172-Replace-circle-by-block 
usw...

Siehe auch: http://lmgtfy.com/?q=circles+2+blocks+lsp 

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

Thomas

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

---

@CADMIUM: Du bist der BESTE!!! 

Genau das was ich gesucht habe. Ich muss mich unbedingt mehr mit LSP programmieren beschäftigen.
Die Zeit ist aber mein ärgster Feind!!! 

Ich DANKE wieder mal allen, die geholfen und ihre Zeit geopfert haben, um bei meinem
Problem zu helfen!
Ihr seid Unschlagbar!!!     

Danke!!!     

Grüße
Balrok

------------------
[ img ]http://ww3.cad.de/foren/ubb/uploads/Balrok/Homer_Bit_Apple.jpg[ /img ]

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