| |
| 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
|
Autor
|
Thema: entget (car (entsel( ....... ) (0 . "INSERT") (1750 mal gelesen)
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 08. Mrz. 2004 13:40 <-- editieren / zitieren --> Unities abgeben:
Code:
(setq blname (cdr (assoc 2 (entget (car (entsel "Block für Verarbeitung wählen: "))) ) ) )
Wie bekomme ich die Auswahl dazu nur Blöcke auszuwählen ? ein Vermischung mit ssget müsste zwar gehen stehe aber gerade voll auf dem Schlauch. ------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Mrz. 2004 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für Proxy
(setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq OBJEKT (ssname OBJEKT 0)) (setq blname (cdr(assoc 2 (entget OBJEKT)))) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 08. Mrz. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 08. Mrz. 2004 13:50 <-- editieren / zitieren --> Unities abgeben:
Aha, also doch nur mit einer "Hilfsvariablen" Danke schön. ------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 08. Mrz. 2004 13:53 <-- editieren / zitieren --> Unities abgeben: Nur für Proxy
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Mrz. 2004 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für Proxy
Siehe Cadffm !.. gibt bloß ne Fehlermeldung bei leerer Auswahl! ..deshalb würd ich es schon so oder so ähnlich machen : (if (setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq blname (cdr(assoc 2 (entget (ssname OBJEKT 0))))) ) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 08. Mrz. 2004 14:02 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von cadffm: Was meinst du mit "Hilfsvariablen" ??? (setq blname (cdr(assoc 2(entget(ssname(ssget "_:S" '((0 . "INSERT")))0)))))
OBJEKT = Megalange Verklammerung ------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |