| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
|
Autor
|
Thema: entget (car (entsel( ....... ) (0 . "INSERT") (2005 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: 13530
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: 22497
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: 13530
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 |
Foren auf CAD.de
| 
