---

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

---

Hallo,

versuch mal bei
Objekte wählen:z
(Zaun). Damit werden alle Objekte gewählt, die geschnitten werden.

Gruss Kev

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hilft Dir vielleicht sauswahl weiter ?

Kev

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

wen du mit der Maus drüberfährst kannst du doch auch jede linie anklicken
dazu kannst du ja ssget benutzen

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

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

---

vergesst es
CADwiesel entschuldige, irgendwie habe ich das mit 10 nicht hingekriegt. Anscheind kann ich jedem Beitrag nur einmal Units vergeben.
Thanks

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ok - keine Ursache - stell mir den Ferrari einfach ohne die U's hin   

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP