| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: vielauswahl in autocad (296 mal gelesen)
|
drralle Mitglied technischer Redakteur
Beiträge: 12 Registriert: 06.11.2003
|
erstellt am: 13. Mai. 2004 08:19 <-- editieren / zitieren --> Unities abgeben:
Guten morgen habe folgendes Problem! Für unser Dokumentationsystem brauchen wir 3D in 2D. Damit habe ich noch kein Problem, geht einwandfrei. Jetzt zu dem schwierigen Teil. Wenn ich dann eine 2 D Darstellung habe, erstelle ich mit Umgrenzungen Polylinien bzw. mit einem Tool diese Polylinien. Jetzt funzt Umgrenzung ja nicht immer hundertpro, also verwende ich unser Tool, funzt immer. Jetzt mein Problem: Für unser Tool muss ich vorher alle Linien ausgwählt haben die eine Umgrenzung ergeben sollen. Bei (Radien die aus vielen Linien bestehen und vielen Flächen in einer Isometrie) leider sehr schwierig und Zeitaufwendig Kann mir jemand sagen ob es in Acad eine Funktion gibt jede Linie die ich mit der Maus "überfahre" dann auch ausgewählt wird und der vorhandenen selektionsmenge hinzugefügt wird ?? vielen dank im voraus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KevinR Mitglied
Beiträge: 32 Registriert: 20.04.2004
|
erstellt am: 13. Mai. 2004 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
|
drralle Mitglied technischer Redakteur
Beiträge: 12 Registriert: 06.11.2003
|
erstellt am: 13. Mai. 2004 09:07 <-- editieren / zitieren --> Unities abgeben:
Hallo KevinR Auch das ist noch zu Umständlich, da ich zuviele Isometrielinien habe und die Abstände der Linien die ich nicht brauche zu den anderen Linien zu klein sind. Es wäre toll, wenns eine Funktion gäbe, Auswahl aktivieren und dann nur noch über die Linien fahren. Damit währe mir sehr geholfen schonmal Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KevinR Mitglied
Beiträge: 32 Registriert: 20.04.2004
|
erstellt am: 13. Mai. 2004 09:14 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
|
domda0 Mitglied
Beiträge: 149 Registriert: 21.04.2004 ACAD 2014
|
erstellt am: 13. Mai. 2004 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
hallo keine ahnung ob dass hilft aber hab mal ein lsp aufgefangen dass beim drüberfahren die objekte löscht.... nun sind die lspler gefragt... vielleicht kann mans ja umschreiben.... ;;; Andrzej Gumula ;;; ul. Modrzewiowa 19/54 ;;; 40-171 POLAND ;;; This routine allows erase object by moving cursor (defun c:Rubber (/ Input Variables Values) (defun Dxf (Code Elem) (cdr (assoc Code (entget Elem)))) ;end defun Dxf (defun Erase (Point / SSet Count Object) (cond ((setq SSet (ssget Point)) (repeat (setq Count (sslength SSet)) (setq Object (ssname SSet (1- Count))) (cond ((/= 4 (logand 4 (Dxf 70 (tblobjname "layer" (Dxf 8 Object)))) ) (princ (strcat "\nErase " (Dxf 0 Object))) (entdel Object) ) ) ;end cond (setq Count (1- Count)) ) ;end repat ) ) ;end cond ) ;end Erase (defun ChangePickBox (Key / PickBox) (setq PickBox (getvar "pickbox")) (cond ((and (= Key 43) (< PickBox 50)) (setvar "pickbox" (1+ PickBox)) ) ((and (= Key 45) (> PickBox 0)) (setvar "pickbox" (1- PickBox)) ) ((= Key 13) (setq Enter (not Enter))) ) ;end cond ) ;end ChangePickBox (setq Variables '("cmdecho" "pickbox") Values (mapcar 'getvar Variables) ) (setvar "cmdecho" 0) (command "_.undo" "_be") (princ "\nPress Enter to active/deactivate command. ") (princ "\nPress +/- to change rubber cursor size. ") (princ "\nPick button mouse to exit. ") (while (member (car (setq Input (grread T 4 2))) '(2 5)) (if (= (car Input) 2) (ChangePickBox (cadr Input)) (if Enter (Erase (cadr Input)) ) ) ) ;end while (command "_.undo" "_end") (mapcar 'setvar Variables Values) (princ) ) ;end c:Gumka (prompt "\nLoaded new command Rubber.") (prompt "\n[C] 2002 Andrzej Gumula.") (princ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 13. Mai. 2004 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
|
drralle Mitglied technischer Redakteur
Beiträge: 12 Registriert: 06.11.2003
|
erstellt am: 13. Mai. 2004 09:26 <-- editieren / zitieren --> Unities abgeben:
Hallo alle ersteinaml an Kev Ich müsste bei Schnellauswahl aber zuviele Obtionen hintereinander machen und auch dann hätte ich noch nicht alles Jetzt zu den Lisp'lern Wenn ich das richtig verstehe, brauche ich den Code nur in einer Lisp Datei speichern und Laden. Dann einen bestimmten Befehl in diesem Code austauschen und Fertig. Ja ja ich weis so einfach wahrscheinlich denn doch nicht, könnte ich das denn wenigsten so testen ohne das ich mein System abschieße? mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 13. Mai. 2004 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
Hier der geänderte Kot Du speicherst das als rubber.lsp (vonmiraus) irgendwo in einem Supportpfad lädst das dann in acad per appload, oder einfach aus dem Explorer in acad reinziehen (drag n drop) und starten mit eingabe von Rubber (defun c:Rubber (/ Input Variables Values aw) (defun Dxf (Code Elem) (cdr (assoc Code (entget Elem)))) ;end defun Dxf (defun Erase (Point / SSet Count Object) (cond ((setq SSet (ssget Point)) (repeat (setq Count (sslength SSet)) (setq Object (ssname SSet (1- Count))) (cond ((/= 4 (logand 4 (Dxf 70 (tblobjname "layer" (Dxf 8 Object)))) ) ;_ end of /= (if (not(ssmemb Object aw))(setq aw (ssadd Object aw))) (redraw Object 3) ) ) ;end cond (setq Count (1- Count)) ) ;end repat ) ) ;end cond ) ;end Erase (defun ChangePickBox (Key / PickBox) (setq PickBox (getvar "pickbox")) (cond ((and (= Key 43) (< PickBox 50)) (setvar "pickbox" (1+ PickBox)) ) ((and (= Key 45) (> PickBox 0)) (setvar "pickbox" (1- PickBox)) ) ((= Key 13) (setq Enter (not Enter))) ) ;end cond ) ;end ChangePickBox (setq Variables '("cmdecho" "pickbox") Values (mapcar 'getvar Variables) ) ;_ end of setq (setvar "cmdecho" 0) (command "_.undo" "_be") (princ "\nPress Enter to active/deactivate command. ") (princ "\nPress +/- to change rubber cursor size. ") (princ "\nPick button mouse to exit. ") (setq aw (ssadd)) (while (member (car (setq Input (grread T 4 2))) '(2 5)) (if (= (car Input) 2) (ChangePickBox (cadr Input)) (if Enter (Erase (cadr Input)) ) ;_ end of if ) ;_ end of if ) ;end while (setq aws aw) (command "_regen") (command "_.undo" "_end") (mapcar 'setvar Variables Values) (prompt "\nDer Auswahlsatz mit den Elementen heisst !aws ") (princ) ) ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
drralle Mitglied technischer Redakteur
Beiträge: 12 Registriert: 06.11.2003
|
erstellt am: 13. Mai. 2004 10:40 <-- editieren / zitieren --> Unities abgeben:
Jungs beide Befehle sind einfach Super Besser gehts nimmer Selbst die Grössenveräderung des Mauszeigers ist genial Jetzt noch ne Frage? Wie verteile ich die Units Ich würde 1000 geben oder diesen Beitrag unter den Besten 50 veröffentlichen komisch irgendwie finde ich die Leiste nicht mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
drralle Mitglied technischer Redakteur
Beiträge: 12 Registriert: 06.11.2003
|
erstellt am: 13. Mai. 2004 10:45 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 13. Mai. 2004 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für drralle
|