| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Intelligenter Workflow von Köln bis Delhi mit SAP PLM - KHD Humboldt Wedag , ein Anwenderbericht
|
Autor
|
Thema: Blockdrehung kopieren (2449 mal gelesen)
|
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 01. Jun. 2011 11:35 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 01. Jun. 2011 11:44 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 01. Jun. 2011 11:55 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 01. Jun. 2011 13:16 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
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 |
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 01. Jun. 2011 15:16 <-- editieren / zitieren --> Unities abgeben:
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 |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 01. Jun. 2011 15:38 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
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 |
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 01. Jun. 2011 16:03 <-- editieren / zitieren --> Unities abgeben:
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 |
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 27. Mai. 2013 14:17 <-- editieren / zitieren --> Unities abgeben:
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 |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 28. Mai. 2013 08:40 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
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 |
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 28. Mai. 2013 08:43 <-- editieren / zitieren --> Unities abgeben:
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 28. Mai. 2013 09:23 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
|
Caladia Ehrenmitglied V.I.P. h.c.
Beiträge: 2546 Registriert: 04.03.2002 ACAD2009 ACAD2010 SP2 ACAD2011 SP1 ABDS-S 2012 SP2 ABDS-S 2013 SP2 ABDS-S 2014 SP1 ABDS-S 2015 SP2 ABDS-S 2016 Expresstools A3-Makroboard 16-Tasten Lupe Impression 3 Win7 64bit IE11 Firefox Office2003 SP3
|
erstellt am: 28. Mai. 2013 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
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 |
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 26. Jul. 2016 09:45 <-- editieren / zitieren --> Unities abgeben:
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 |
Kuschelfee Mitglied Bauzeichnerin
Beiträge: 221 Registriert: 07.05.2007 Windows 10 Pro AutoCAD 2024.1 Soficad 2024-1 Advance Steel 2023.1.1
|
erstellt am: 26. Jul. 2016 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
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 |
Bigggi Mitglied Bauzeichnerin
Beiträge: 178 Registriert: 14.02.2006 AutoCad Map2017
|
erstellt am: 27. Jul. 2016 09:37 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
|
erbschen Mitglied Zeichnerin für Elektrotechnik
Beiträge: 83 Registriert: 13.07.2004 Windows 10; ACAD 2023
|
erstellt am: 27. Jul. 2016 11:55 <-- editieren / zitieren --> Unities abgeben:
|
Rembetiko Mitglied CAD-Konstrukteur
Beiträge: 101 Registriert: 06.10.2015 AutoCAD Rel. 2.6 bis AutoCAD 2018 C.A.T.S. Applikation AutoCAD Design Suite Ultimate 2017 Dell Precision 3620 Intel i7-7700K 4,2 GHz 32 GB Arbeitsspeicher NVidia Quadro M2000 Windows 10 Pro 64-Bit HP Designjet 2500 PS
|
erstellt am: 27. Jul. 2016 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für erbschen
|