---

Hallöle Forum,

gibt es eine Möglichkeit die Drehung eines Blocks auf einen anderen zu kopieren. So wie bei Eigenschaften kopieren. Nur übernimmt man dabei leider nicht die Drehung.

Hat Jemand eine Idee???

GLG

erbschen

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

---

Programmiert hat man das in 3 Zeilen, oder einer recht langen, aber in dem Fall würde ich doch
Copy&Paste + das Eigenschaftenfenster vorschlagen - so oft sollte dieses Vorhaben während der
Bearbeitung ja nicht vorkommen imho .

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Persönlich würde ich über SAUSWAHL alle gewünschten Blöcke markieren (lassen) und dann die Drehung im Eigenschaftenfenster ändern.

------------------
Viele Grüße Lutz

Glück Auf!

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

---

na weil es nur 3 Zeilen sind  ...

Code:

---

(defun c:Dreh (/ vlaobj vla-obj ang)
  (and (setq vlaobj  (vlax-ename->vla-object (car (entsel "\nDrehung von: ")))
    ang    (vlax-get-property vlaobj 'Rotation)
    vla-obj (vlax-ename->vla-object (car (entsel "\nDrehung auf: ")))
      )
      (vlax-property-available-p vla-obj 'Rotation)
      (vlax-put-property vla-obj 'Rotation ang)
  )
  (princ)
)

---

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

---

Hi Heiko,

das ist ja ganz lieb von Dir gewesen, aber es funktioniert nicht.

Das war unsere Konversation:

Befehl: DREH
Drehung von: ; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT
Befehl:
Befehl: *Abbruch*

Liebe Grüße

Ulli

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

---

setz mal ein
(vl-load-com)
davor!

ich lad es standardmäßig immer mit, deshalb fehlt es immer im Code...

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

---

Du bist total supi......

ES FUNKTIONIERT!!!!

Und ich bin angehende Programmiererin.... Habe es geschafft selbständig das geschriebene Kürzel zu kopieren und einzufügen.

Der Lisp kommt in meinen Standart Appload. GEIL!!!

Wenn Du mal in Nürnberg bist, hast Du nen Kaffee bei mir gut.

DANKE HEIKO!!!

GLG

Ulli

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

---

Hi Forum, Hi Heiko,

So lange hat mein Dreh-Befehl funktioniert. War echt klasse mit uns beiden. Aber seit ich einen neuen PC habe läuft es nicht mehr 

Das ist der LISP:
(vl-load-com)
(defun c reh (/ vlaobj vla-obj ang)
  (and (setq vlaobj  (vlax-ename->vla-object (car (entsel "\nDrehung von: ")))
    ang    (vlax-get-property vlaobj 'Rotation)
    vla-obj (vlax-ename->vla-object (car (entsel "\nDrehung auf: ")))
      )
      (vlax-property-available-p vla-obj 'Rotation)
      (vlax-put-property vla-obj 'Rotation ang)
  )
  (princ)
)

Das sagt ACAD zu mir
Befehl: dreh
Drehung von: ; Fehler: Fehlerhafter Argumenttyp: lentityp nil

Wer kann mir helfen???
Es schreibt ein trauriges Erbschen aus dem regnerischen Franken 

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

---

Hallo erbschen,

Zitat:

---

Original erstellt von erbschen:

Das sagt ACAD zu mir
Befehl: dreh
Drehung von: ; Fehler: Fehlerhafter Argumenttyp: lentityp nil

---

Unter AutoCAD 2012 habe ich diesen Fehler nicht. Leider kann ich es unter 2013 nicht testen.

Viele Grüße
Bernd

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

---

Schade.....!

Kann mir jemand anders aus dem Forum helfen.

Danke Trotzdem Bernd

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

---

Unter 2014 gibts auch keinen Fehler, aber ich hatte ja hier
http://ww3.cad.de/foren/ubb/Forum145/HTML/003898.shtml#000000
auch etwas, dass nur in 2013 nicht ging.

Ich glaub das liegt an der Version.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Bei mir kommt diese Fehlermeldung... aber nur, wenn man daneben klickt.    Dann ist es aber auch egal mit welcher Version.
Solange man den Block trifft, dreht der sich bei mir auch und es gibt keine Fehlermeldung, auch egal mit welcher Version.
(Getestet unter 2012, 2013 + 2014)

------------------
Gruss
Caladia

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

---

Hi Ihr Lieben,

so jetzt funktioniert aus undefinierbaren Gründen mein "Drehen"-Befehl wieder nicht mehr.... Ich klicke auch nicht daneben...

Habe das Lisp neu geladen aber ich bekomme immer die Fehlermeldung

"; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT"

Der Lisp ist wie folgt:

vl-load-com)
(defun c reh (/ vlaobj vla-obj ang)
  (and (setq vlaobj  (vlax-ename->vla-object (car (entsel "\nDrehung von: ")))
    ang    (vlax-get-property vlaobj 'Rotation)
    vla-obj (vlax-ename->vla-object (car (entsel "\nDrehung auf: ")))
      )
      (vlax-property-available-p vla-obj 'Rotation)
      (vlax-put-property vla-obj 'Rotation ang)
  )
  (princ)
)

GLG aus Franken

erbschen

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

---

Wenn ich mir deinen Code ansehe fällt mir auf das am Anfang eine Klammer fehlt

Code:

---

(vl-load...

---

und der doppeltpunkt hinter c

Code:

---

(defun c:reh...

---

Wenn ich diese bei mir integriere funktioniert deine Lisp bei mir ohne Fehlermeldung:
hier der korregierte Code

Code:

---

(vl-load-com)
(defun c:reh (/ vlaobj vla-obj ang)
  (and (setq vlaobj  (vlax-ename->vla-object (car (entsel "\nDrehung von: ")))
    ang    (vlax-get-property vlaobj 'Rotation)
    vla-obj (vlax-ename->vla-object (car (entsel "\nDrehung auf: ")))
      )
      (vlax-property-available-p vla-obj 'Rotation)
      (vlax-put-property vla-obj 'Rotation ang)
  )
  (princ)
)

---

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

---

Hallo Erbschen,

ich arbeite sehr gern hiermit:
http://ww3.cad.de/foren/ubb/uploads/Britt/_drehwinkel-klonen.lsp.txt

Es funktioniert nicht nur für Blöcke, sondern auch für Texte, Mtexte und Linien...
Vielleicht hilft dir das ja.
Gruß, Bigggi

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

---

Hi Biggi,

vielen Lieben Dank, Dein Drehwinkel Klonen funktioniert Top.....

Sehr hilfreich bei runden Gebäuden.

Hast nen Kaffee in Franken gut     

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

---

Schicke Funktion, gibt ein paar Punkte :-)

------------------
*So spielt das Leben sagte der Clown und malte sich ein Lächeln ins Gesicht*

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