| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: objektbeschreibung (1223 mal gelesen)
|
Steff179 Mitglied Geomatiker
Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014
|
erstellt am: 13. Mrz. 2009 10:06 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen. weiss jemand ob es irgendwo eine zusammenfassung der listeneinträgen zu den verschiedenene objekten gibt? beispilsweise: (0 . "CIRCLE") Objekttyp (8 . "MEINLAYER") Layer (10 5.0 7.0 0.0) Mittelpunkt (40 . 1.0) Radius (62 . 133) Farbe dann layer,blöcke, pl, ect. oder muss ich mir das selber zusammen fassen damit ich nicht jedes mal wenn ich was suche ausprobieren muss was sich jetzt verändert wenn ich zbsp die farbe ändere? gruss steff Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 - 2014 Arcibem System: Windows 2000, XP, NO VISTA Internet-Startseite: http://www.archi.de
|
erstellt am: 13. Mrz. 2009 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für Steff179
|
Steff179 Mitglied Geomatiker
Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014
|
erstellt am: 13. Mrz. 2009 10:32 <-- editieren / zitieren --> Unities abgeben:
|
Steff179 Mitglied Geomatiker
Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014
|
erstellt am: 13. Mrz. 2009 14:14 <-- editieren / zitieren --> Unities abgeben:
hallo zusammen... ich häng jetzt einfach mal hir hinten an... nicht schon wider einen neuen tread... 1. frage: geht bei euch die suchfunktion auch nicht? 2. frage: (entmod (subst(cons 62 1)(assoc 62 OBJ)OBJ) ) (entmod (subst(cons 70 4)(assoc 70 OBJ)OBJ) ) würde ich gerne zusammen bringen... irgendwie so: (entmod (subst(cons 62 1)(assoc 62 OBJ)OBJ) (subst(cons 70 4)(assoc 70 OBJ)OBJ) ) ich schaffs nicht... leider bin ich ohne suchfunktion recht aufgeschmissen... und in sonstigen anleitungen stehen immer nur einfache beispile... kann mir da wer helfen? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Mrz. 2009 14:27 <-- editieren / zitieren --> Unities abgeben: Nur für Steff179
(entmod (subst(cons 62 1)(assoc 62 OBJ)(subst(cons 70 4)(assoc 70 OBJ)OBJ)) ) ------------------ - 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 |
Steff179 Mitglied Geomatiker
Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014
|
erstellt am: 13. Mrz. 2009 14:30 <-- editieren / zitieren --> Unities abgeben:
danke danke ich bin nach 45min erst so weit gekommen: (setq OBJ(subst(cons 62 1)(assoc 62 OBJ)OBJ)) (setq OBJ(subst(cons 70 4)(assoc 70 OBJ)OBJ)) (entmod OBJ) aber deine ist wie immer viel schlanker besten dank und gruss steff Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 13. Mrz. 2009 15:37 <-- editieren / zitieren --> Unities abgeben: Nur für Steff179
Hallo, noch so eine Idee zum Thema, man könnte doch so ein Mehrfach-Subst in ein Funktion packen, dann ist es universeller einsetzbar. Code:
(defun list:subst (liste subst_liste / ) (mapcar '(lambda(A) (setq liste(subst A(assoc(car A) liste)liste)) )subst_liste) liste) ;;z.B (defun c:test ( / ) (entmod(list:subst (entget(car(entsel))) '( (62 . 1) (8 . "test") (70 . 4)))))
------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 16. Mrz. 2009 07:41 <-- editieren / zitieren --> Unities abgeben: Nur für Steff179
|
Steff179 Mitglied Geomatiker
Beiträge: 266 Registriert: 09.08.2007 AutoCAD 2014
|
erstellt am: 16. Mrz. 2009 07:59 <-- editieren / zitieren --> Unities abgeben:
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 16. Mrz. 2009 08:07 <-- editieren / zitieren --> Unities abgeben: Nur für Steff179
Hallo, wenn es die Farbe ist kann man bei einem nichvorhandenen Listeneintrag diesen einfach voranstellen, bei anderen Gruppencodeinhalten bin ich mir nicht so sicher, ob man auf die Reihenfolge achten muss. Code:
(defun c:test ( / ) (setq obj (car(entsel))) (if (assoc 62 (entget obj)) (entmod(subst '(62 . 5)(assoc 62 (entget obj))(entget obj))) (entmod(cons '(62 . 5)(entget obj)))))
------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |