ATTRIBUT LESEN (Autodesk/Lisp)

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 - zum dritten Mal in Folge, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: ATTRIBUT LESEN (869 mal gelesen)

Nano
Mitglied

Schreiben Sie einen Gästebucheintrag für Nano

Beiträge: 179
Registriert: 25.10.2004

erstellt am: 03. Sep. 2008 12:56

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo

Habe versucht ein Attribut zu lesen ich glaube habe ein Fehler
in dieser Zeile gemacht: (SETQ wert1 (CAR (ASSOC 1 (ENTGET ent))))
Kann mir jemand helfen???

Danke und Gruss Nano

(DEFUN C:test()
(SETQ ent (ENTSEL "\nBlock wählen: "))
(SETQ ent (SSNAME ent 0))
(WHILE (AND (SETQ ent (ENTNEXT ent))
(/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND")
)
(IF (AND (= (CDR (ASSOC 0 (ENTGET ent))) "ATTRIB")
(= (CDR (ASSOC 2 (ENTGET ent))) "RAUM-nR")
)
(SETQ wert1 (CAR (ASSOC 1 (ENTGET ent))))
)
)

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten

Senden Sie eine Private Message an wronzky

Schreiben Sie einen Gästebucheintrag für wronzky

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: 03. Sep. 2008 13:00

<-- editieren / zitieren -->

Unities abgeben:

Nur für Nano

Hi Nano,
versuchs mal mit (SETQ wert1 (CDR (ASSOC 1 (ENTGET ent))))

Grüsse, Henning

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

http://www.voxelman.de

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 03. Sep. 2008 13:06

<-- editieren / zitieren -->

Unities abgeben:

Nur für Nano

sind noch ein paar Sachen mehr drin als die Zeile von Henning

entget liefert ein objekt.. ssname erwartet einen auswahlsatz usw ..

guck dir mal das an .. Code sagt mehr als Worte :

(DEFUN C:testus(/ ENT WERT)
(if(and(SETQ ent (car(ENTSEL "\nBlockreferenz wählen: ")))
(=(cdr(assoc 66 (entget ENT)))1)
)
   (WHILE (AND (SETQ ent (ENTNEXT ent))
   (/= (CDR (ASSOC 0 (ENTGET ent))) "SEQEND")
)
(IF(AND (=(CDR (ASSOC 0 (ENTGET ent))) "ATTRIB")
(=(strcase(CDR (ASSOC 2 (ENTGET ent)))) "RAUM-NR")
   )
   (SETQ wert (CDR (ASSOC 1 (ENTGET ent))))
)
   )
)
WERT
)

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

Nano
Mitglied

Beiträge: 179
Registriert: 25.10.2004

erstellt am: 03. Sep. 2008 13:08

<-- editieren / zitieren -->

Unities abgeben:

Hallo Henning

Leider geht es nicht: (SETQ wert1 (CDR (ASSOC 1 (ENTGET ent))))

Gruss Nano

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

Anzeige:	Infos zum Werbeplatz >>
AVC Expose Assemblies CAD APP für Messestände, Möbel, Allgemeine Werkzeuge Plugin for AutoCAD and BricsCAD AVC_Expose. Expose all blocks-assemblies in a row. Explosion of all assemblies (TNT). Sign the name and number of blocks.

Nano
Mitglied

Beiträge: 179
Registriert: 25.10.2004

erstellt am: 03. Sep. 2008 13:13

<-- editieren / zitieren -->

Unities abgeben:

Danke

Thomas

Immer bist Du zur Stelle.
Das ist nicht selbstverständlich!!!!!!!

Gruss Nano

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

AVC Expose Assemblies CAD APP für Messestände, Möbel, Allgemeine Werkzeuge