| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Durchgängige CAD-Daten in der Produktkonfiguration, eine Pressemitteilung
|
Autor
|
Thema: Wie erweitere ich eine Selektierung (1386 mal gelesen)
|
Th-Schultz Mitglied
Beiträge: 18 Registriert: 11.07.2012 AutoCAD 2008 AutoCAD Lt 2009
|
erstellt am: 19. Jul. 2012 11:31 <-- editieren / zitieren --> Unities abgeben:
Hi, bin ein wenig raus aus Lisp. Hälft mir mal bitte auf die Sprünge. Ich habe folgende funktionierende Selektierung: Zitat: (if (setq ausw (ssget "X" '((0 . "TEXT"))) ) (command "ändern" ausw "" "ei" "la" "025T" "") )
Mit dieser Auswahl und dem Kommand wird jeder Text auf den vorgegebenen Layer gesetzt. Wie kann ich zu der Selektierung Text jetzt noch die Höhe mit auswählen, so das ich jeder Höhe ihren richtigen Layer zuordnen kann. Am besten noch von x bis y mm = Layer A Vielen Dank Tom
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 19. Jul. 2012 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für Th-Schultz
|
Th-Schultz Mitglied
Beiträge: 18 Registriert: 11.07.2012 AutoCAD 2008 AutoCAD Lt 2009
|
erstellt am: 20. Jul. 2012 07:22 <-- editieren / zitieren --> Unities abgeben:
Hallo und erst einmal vielen Dank für deine Nachricht (auch wenn es etwas spät ist), leider habe ich nicht immer unmittelbar Zeit die Tipps zu testen. Leider hab ich bei der Umsetzung noch ein paar Probleme. Vielleicht kannst du noch einmal drüber schauen, wo das Problem sein könnte. Geladen wird die Lisp einwandfrei und läuft ohne sichtbaren Fehler durch. Es ändert sich nur nix.... Zitat: (defun c:Test() (if (ssget "X" (list (cons -4 "<and") (cons 0 "Text") (cons -4 "<or") (cons 40 1.5) (cons 40 1.9) (cons -4 "or>") (cons -4 "and>") ) ) (command "ändern" ausw "" "ei" "la" "018T" "") )
(if (ssget "X" (list (cons -4 "<and") (cons 0 "Text") (cons -4 "<or") (cons 40 2.0) (cons 40 3.1) (cons -4 "or>") (cons -4 "and>") ) ) (command "ändern" ausw "" "ei" "la" "025T" "") )
(if (ssget "X" (list (cons -4 "<and") (cons 0 "Text") (cons -4 "<or") (cons 40 3.1) (cons 40 4.2) (cons -4 "or>") (cons -4 "and>") ) ) (command "ändern" ausw "" "ei" "la" "035T" "") )
(princ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 20. Jul. 2012 07:52 <-- editieren / zitieren --> Unities abgeben: Nur für Th-Schultz
|
Th-Schultz Mitglied
Beiträge: 18 Registriert: 11.07.2012 AutoCAD 2008 AutoCAD Lt 2009
|
erstellt am: 20. Jul. 2012 08:24 <-- editieren / zitieren --> Unities abgeben:
vielen Dank für deine Antwort, bin jetzt auch schon mal soweit das sich was tut... Allerdings passiert jetzt folgendes: Es wird nur ein Text innerhalb eines Blockes geändert. andere Texte in der Zeichnungen bleiben unberührt. UND!!! Es wurde auch nur Text in 1.8 im Block geändert. Andere, die 2.5mm hoch sind haben sich nicht geändert. Zitat: (if (setq ausw (ssget "X" (list (cons 0 "*Text") (cons -4 "<=") (cons 40 3.1) ) ) ) (command "ändern" ausw "" "ei" "la" "035T" "") )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 20. Jul. 2012 08:50 <-- editieren / zitieren --> Unities abgeben: Nur für Th-Schultz
Hallo Tom, kannst Du Deine Zeichnung (zumindest ein paar relevante Texte) und Deinen aktuellen Stand des Lisp hier hochladen, dann kann man sich das mal genauer ansehen. Ansonsten bleibt alles ein bisschen Glaskugelreiben. Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Th-Schultz Mitglied
Beiträge: 18 Registriert: 11.07.2012 AutoCAD 2008 AutoCAD Lt 2009
|
erstellt am: 20. Jul. 2012 10:04 <-- editieren / zitieren --> Unities abgeben:
|