| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Xref einrichten (623 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Jun. 2008 14:20 <-- editieren / zitieren --> Unities abgeben:
Hi ich würde gerne folgenden Code verwenden um
- Xref auf Welt drehen funktioniert
- Xref 1:1 skalierenfunktioniert
- Xref auf Einfügepunkt 0,0,0 setzten funktioniert nicht
Fehler: Zu viele Argumente Code: (if(or(setq AUSWAHL (ssget)) (setq AUSWAHL (ssget)) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKT(ssname AUSWAHL(setq INDEX(1+ INDEX)))) (setq OBJDATA (entget OBJEKT)) (setq OBJDATA (subst (cons 41 1 ) (assoc 41 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 42 1 ) (assoc 42 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 43 1 ) (assoc 43 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 50 0 ) (assoc 50 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 10 0 0 0) (assoc 50 OBJDATA) OBJDATA)) (entmod OBJDATA) ) ) )
Kann wer helfen danke. ------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. <----- Bitte Systeminfo eintragen, warum siehst du hier. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Jun. 2008 14:23 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
kleiner Fehler 50 statt 10 ? (setq OBJDATA (subst (cons 10 0 0 0) (assoc 10 OBJDATA) OBJDATA)) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Jun. 2008 14:32 <-- editieren / zitieren --> Unities abgeben:
oh sorry, hatte ich übersehen, bricht aber leider auch mit "Fehler: Zu viele Argumente" ab Code: (if(or(setq AUSWAHL (ssget)) (setq AUSWAHL (ssget)) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKT(ssname AUSWAHL(setq INDEX(1+ INDEX)))) (setq OBJDATA (entget OBJEKT)) (setq OBJDATA (subst (cons 41 1 ) (assoc 41 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 42 1 ) (assoc 42 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 43 1 ) (assoc 43 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 50 0 ) (assoc 50 OBJDATA) OBJDATA)) (setq OBJDATA (subst (cons 10 0 0 0 ) (assoc 10 OBJDATA) OBJDATA)) (entmod OBJDATA) ) ) )
------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. <----- Bitte Systeminfo eintragen, warum siehst du hier. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hunchback Mitglied CAD-Tech
Beiträge: 63 Registriert: 10.10.2007 Win2K AutoCAD 2007
|
erstellt am: 18. Jun. 2008 14:44 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
statt (setq OBJDATA (subst (cons 10 0 0 0 ) (assoc 10 OBJDATA) OBJDATA)) müßts
(setq OBJDATA (subst (cons 10 '(0 0 0) ) (assoc 10 OBJDATA) OBJDATA)) heißen, sag ich mal (zu viele Argumente für's cons) grü
Martin ------------------ You seem (in my (humble) opinion (which doesn't mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong). Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 18. Jun. 2008 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
(setq OBJDATA (subst (cons 10 '(0 0 0) ) (assoc 10 OBJDATA) OBJDATA)) so meine ich
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Jun. 2008 14:55 <-- editieren / zitieren --> Unities abgeben:
|