| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Exklusives EDU-Programm für RTX PRO Blackwell, eine Pressemitteilung
|
|
Autor
|
Thema: Anfängerfrage (462 mal gelesen)
|
wasc
Mitglied
Bautechniker
   Beiträge: 52
Registriert: 15.04.2005 Windows 2000, ACAD2005, P4 2,8
|
erstellt am: 16. Sep. 2005 12:11  <-- editieren / zitieren -->   Unities abgeben:          
hallo ! habe wieder eine anfängerfrage bzgl. lsp ! mit dem folgenden code kann ich mir von einem textobjekt die elementenliste anschauen: (defun c:as (/ a b c) (setq a (ssget '((0 . "TEXT")))) (setq b (ssname a 0)) (setq c (entget b)) ) aber wie berwerkstellige ich es, bei einer mehrfachauswahl von textobjekte sämtliche elementenlisten anzeigen zu lassen ? hab dies jetzt schon mehrere stunden vergeblich versucht ! bitte um hilfe !! mfg walter 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: 16. Sep. 2005 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für wasc 
Hallo Walter, Du kannst den Index in ssname so lange hochzählen, bis der nil zurückgibt: Code:
(setq index 0)
(while (setq b (ssname a index))
(print (entget b))
(setq index (1+ index))
)
Grüsse, Henning
------------------
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
    
Beiträge: 13533
Registriert: 30.11.2003 .
|
erstellt am: 16. Sep. 2005 12:23 <-- editieren / zitieren --> Unities abgeben: Nur für wasc
(defun c:as (/ a b c i abbruch) (if(setq a (ssget '((0 . "TEXT")))) (progn (setq i -1) (while (and(< (1+ i) (sslength a)) (not abbruch) ) (setq b (ssname a (setq i (1+ i)))) (princ "\n") (princ(entget b)) (initget "Ja Nein") (setq Abbruch(=(getkword "\nAbbruch [Ja/Nein]:<Nein> ") "Ja")) ) ) ) ) ------------------
 - 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 |
| | Anzeige: | Infos zum Werbeplatz >> | isaleCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
isaleCAD has been developed for Water Transmission Line Design. It is for Drawing / Modelling / Planning / Design / Analyze the water transmission line.
The software works under AutoCAD or ZWCAD.
|
|
wasc
Mitglied
Bautechniker
Beiträge: 52
Registriert: 15.04.2005 Windows 2000, ACAD2005, P4 2,8
|
erstellt am: 16. Sep. 2005 12:27 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
