---

Hallo,
habe leider kaum Ahnung von lisp, könnte mir vielleicht jemand dieses lisp so ändern, das ich anstelle vom Block ein Objekt (Polylinie) mit entsprechendem Bezugspunkt wählen kann.
Ansonsten erfüllt das lisp so wie es ist meine Wünsche vollkommen.

(defun C:MBLOCK()
(setq #att# (car (entsel "\nvorhandenen Block wählen: "))
      #el# (entget #att#) 
)   

(setvar "clayer"(cdr (assoc 8 #el#)))
   
(while
  (setq #bepf# (getpoint "\nEinfügepunkt"))
    (command "_insert"
    (cdr (assoc 2 #el#))
      #bepf#
      "XYZ"
        (cdr (assoc 41 #el#))
        (cdr (assoc 42 #el#))
          (cdr (assoc 43 #el#))
          pause
    )
)
)

Vielen Dank im vorraus, hoffe es ist für erfahrene Proger ein Kinderspiel 

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

---

Hallo,
mach doch aus der Polylinie einfach einen Block und füg ihn mit der vorhandenen Routine ein - oder erklär nochmal ausführlicher, was Du eigentlich willst...

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 24. Jan. 2008 editiert.]

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

---

Warum nimmst du nicht _copy ?

das hat doch alles

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

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

---

Das mit dem Block ist eine Möglichkeit, möchte aber nicht die kopierten Sachen in einen Block konvertieren. Möchte Objekte wählen können wie bei Kopieren mit Basispunkt und den entsprechenden Basispunkt. Wobei der Basispunkt anschließend dem Drehpunkt entspricht.

Mit _copy ist mir nicht klar wie ich drehen und kopieren in einem Arbeitsgang hinbekomme, ohne irgendwelche zusätzlichen Eingaben machen zu müssen. Es soll halt so einfach sein wie es jetzt mit den Blöcken geht.

Danke schon mal für die Tips.

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

---

Schau mal unter den Expresstools --> Ändern --> Schieben/Kopieren/Drehen

------------------
Gruß

Michi

"Personalführung ist die Kunst, die Mitarbeiter so schnell über den Tisch zu ziehen,
dass sie die Reibungshitze als Nestwärme empfinden."

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

---

...
oder halt so:

Code:

---

(defun C:MCOPY ()
  (setq #ele# (car (entsel "\nvorhandenes Element wählen: ")))
  (setvar "clayer" (cdr (assoc 8 (entget #ele#))))
  (setq #bpf# (getpoint "Basisbunkt:"))
  (while (setq #epf# (getpoint "Zielpunkt:"))
    (command "_copy" #ele# "" #bpf# #epf#)
    (command "_rotate" (entlast) "" #epf# pause)
  )
)

---

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 25. Jan. 2008 editiert.]

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

---

Danke wronzky, genauso hatte ich mir das vorgestellt. Hoffe es war nicht ein zu Großer Aufwand, werde auch gleich mal die beiden lisp dateien vergleichen, um was daraus zu lernen.
Kann nicht so schweri sein sowas mal selbst zu progen 

PS: In die Express Tools werde ich auch mal rein schauen.

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

---

Hi Highner,
nein, soooooo  aufwändig war's nicht, ein paar commands (= Autocad-Befehle) runterzuschreiben.
Wenn Du selbst was ausprobieren willst, verweis ich mal auf DIESE Möglichkeiten...

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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