---

Hallo zusammen,

ich habe eine Zeichnung mit ca. 1000 Kreisen und möchte nun einen Block an jedem Mittelpunkt einfügen. Hab schon im Forum gesucht aber nichts passendes gefunden.
Von Cadwiesel gibt es ein Programm (pkt_blk) das Punkte gegen Blöcke tauscht, es würde mir also schon was bringen, wenn ich Punkte an den Mittelpunkten hätte.

Falls jemand eine Lösung kennt oder ein passendes Tool, würde ich mich über eine Antwort freuen

Johannes

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

---

Code:

---

(defun C:circle_center_2_block (/ ss)
  (setq ss (ssget '((0 . "CIRCLE"))))
  (if ss
    (progn
      (setq n (1- (sslength ss)))
      (while (>= n 0)
(setq elist (entget (ssname ss n))
      radius     (cdr (assoc 40 elist))
      zentrum     (cdr (assoc 10 elist))
      n     (1- n)
)
(command "_point" zentrum)
      )
    )
  )
)

---

------------------
MfG Proxy

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

---

Hallo,
dann kann man doch gleich den Block einfügen:
(defun C:kreis_block (/ aws n attreq_alt)
  (setq attreq_alt (getvar "ATTREQ"))
  (setvar "ATTREQ" 0);;;Falls eine unbekannte Anzahl von Atrtributen vorhanden ist
  (setq aws (ssget '((0 . "CIRCLE"))))
  (if aws
    (progn
      (setq n 0)
        (repeat (sslength aws)
(command "_.insert" "Blockname" (cdr (assoc 10 (entget (ssname ss n)))) "1" "1" "")
(setq n (+ n 1))
      )
    )
  )
(setvar "ATTREQ" attreq_alt)
)

------------------
viele Grüße

Jörn

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

---

Hallo Proxy/Jörn,

super vielen Dank an beide, Ihr habt mir sehr geholfen! Irgendwann in meinem nächsten Leben werde ich vielleicht auch so tolle Lisp routinen schreiben können... Und ich dachte tatsächlich schon, ich bin das Wochenende damit beschäftigt Blöcke an Mittelpunkten einzufügen ;-)

Grüße Johannes

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

---

Hallo Jörn,

nochmals kurz eine Anmerkung: Es ist nicht mehr so wichtig, da ich die Aufgabe ja bereits mit der "Punkt-Variante" gelöst habe, aber falls jemand die Kreis_Block - Variante benutzen möchte:
Bei mir kommt folgende Fehlermeldung:

Fehlerhafter Argumenttyp: lselsetp nil

den Blocknamen in der lisp routine habe ich umbenannt und den Block in einem Supportpfad gespeichert. Hab ich noch was übersehen, oder funktionierts tatsächlich nicht?

Gruß Johannes

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

---

Dann tausch die eine Zeile/Befehl
(command "_point" zentrum)
gegen
(command "_.insert" "DEINWUNSCHBLOCKNAME" zentrum "1" "1" "0")
aus.

P.S. joern bosse kann ggf. wenn er will, sein Code etwas aufräumen. 

------------------
MfG Proxy

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

---

Hallo,
falls es jetzt überhaupt noch einen interessiert, ich hatte da eine Variablennamen falsch angegeben:

defun C:kreis_block (/ aws n attreq_alt)
  (setq attreq_alt (getvar "ATTREQ"))
  (setvar "ATTREQ" 0);;;Falls eine unbekannte Anzahl von Atrtributen vorhanden ist
  (setq aws (ssget '((0 . "CIRCLE"))))
  (if aws
    (progn
      (setq n 0)
        (repeat (sslength aws)
(command "_.insert" "Blockname" (cdr (assoc 10 (entget (ssname aws n)))) "1" "1" "")
(setq n (+ n 1))
      )
    )
  )
(setvar "ATTREQ" attreq_alt)
)

------------------
viele Grüße

Jörn

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