---

Hallo,

Wie kann ich mir einen Bock als Werkzeugkaten Icon erstellen?

Ich dachte mir das so… ich klick auf das neue Icon daraufhin hab ich den block am Mauspfeil hängen… Richtung , Größe und dann block auflösen.

Hab so was in der art schon gesehen. Aber wie macht man das ?

Gruss Tom

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

---

Hi und herzlich willkommen auf cad.de !

Mit welcher AutoCAD Version arbeitest du ?

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

Thomas

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

---

Danke.

Mit der 2006 (kein LT)

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

---

Dann gibt es zwei Möglichkeiten:

1.) ADC (STRG+2) >>> Designcenter (einfach mal anschaune - erklärt sich von selbst..)

2.) Tool Paletten (STRG+3); da kannst du dann die Blöcke draufziehen (und auch die Layer voreinstellen, sowie Skalierung udgl...)

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

Thomas

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

---

Klappt soweit DANKE

Wie kann ich die Eigenschaften ändern ?

Momentan fügt er mir die Blöcke noch nicht an der Maus ein.
Ursprung und drehen (Icon ändern)wäre auch schön… finde aber leider nichts.

Mit R-Kick Eigenschaften(Werkzeugpallette). Kann ich alles sehen aber nichts ändern… wie zb Farbe

[Diese Nachricht wurde von tom2323 am 16. Mrz. 2007 editiert.]

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

---

Zitat:

---

Original erstellt von tom2323:
Ich dachte mir das so… ich klick auf das neue Icon daraufhin hab ich den block am Mauspfeil hängen… Richtung , Größe und dann block auflösen.

---

Könnte man einfachst so machen (ohne besonderes Errorhandling!):

Code:

---

(defun INS_BLCK (NAME_BLOCK / PKT1 INS_NAME OBJ LAYNAM)
  (setq INS_NAME (strcase NAME_BLOCK))
  (princ
    (strcat
      "Block: "
      "\" "
      INS_NAME
      " \""
      " wird eingefügt, und \"zerlegt\"."
      "\nObjekt wird auf den AKTUELLEN Layer gelegt !"
    ) ;_ end strcat
  ) ;_ end princ
  (setq PKT1 (getpoint "\nEinfügepunkt klicken:  "))
  (if (vl-cmdf "_.insert" INS_NAME PKT1 PAUSE PAUSE)
    (progn
      (setq OBJ (entlast))
      (command "_.explode" OBJ)
      (setq LAYNAM (getvar "clayer"))
      (command "_.chprop" "v" "" "_la" LAYNAM "")
      (princ "\nOK, erledigt...")
    )
  )
  (princ)
)

---

Und den Aufruf im Toolbar makro dann mit:

Code:

---

^c^c(ins_blck "MeinBlockname")

---

...

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!

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

---

Geht SUPPPPER DANKE!!!

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