---

Hallo Forum!
bin auf der Suche nach einem Befehl oder Lisp für zoom auf Object!
Das heißt Object markieren, Befehl ausführen und das Object ist ganz gezoomt!
_extrim Arbeitet auch mit zoom2object! Nur bringt mir das nichts weil es in ner Lisp steht!
Vielen Dank schon mal!
Simon 

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

---

zoomobject.jpg

Moin Simon

reicht das Bildchen?
ansonsten findest du im Forum ne Menge über Makros erstellen(Bild is zwar AC 2005 müsste aber in 2002 ähnlich gehen)

mit CADzerischen Grüßen
Matthias

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

---

Hi,
wenn es in einer LISP-Datei definiert ist, kannst du es auch verwenden! Das funktioniert dann mit (command "befehl" <parameter> )

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

In Acad 2002 ist der Befehl Object zoom nicht vorhanden!
Und das mit der Lisp lass mer die machen die`s können!
Danke schon mal!

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

---

(defun C:ZoomO ( / elem p0 p1)
(if(setq elem (entsel))
  (progn
    (setq elem (car elem))
(vla-getboundingbox
    (vlax-ename->vla-object elem)
    'xmin
    'xmax
    ) ;_ ende von vla-getboundingbox
  (setq p0 (vlax-safearray->list xmin)) ;Punkt links unten
  (setq p1 (vlax-safearray->list xmax)) ;Punkt rechts oben
    (command "_.zoom" "_w" p0 p1)
    )
  )
)
das ist free kot kann jeder mit machen was er will

Kopier das in eine textdatei, speicher diese in einem acad-Supportpfad als bspl. Zoomo.lsp ab lad die dann in acad und starte sie durch Eingabe von zoomo. - Alles klar?

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

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

---

Moin,

Sehr gut cadwiesel.
Allerdings nur 8 U's weil der Befehl nur im WKS und nicht im BKS funzt

Ciao

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

---

Supi!
Das ist schon mal ungefähr das was ich mir vorstelle!
Wenn das ganze jetzt noch funzen würde wenn ich vorher ein Objekt
markiere, und dann darauf zoomen könnte währe ich glücklich!
Vielen Dank!
Simon

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

---

Das funzt aber nur, wenn die systemvariable pickfirst auf 1 steht.
Also stell das sicher.
Ach ja, wegen dem WKS - kannst ja ein ein (command "_ucs" "_W") einbauen.
das sollte unterhalb der Schöpfungshöhe liegen

(defun C:ZoomO ( / elem p0 p1)
(if(setq elem (ssget "_:S"))
  (progn
    (setq elem (ssname elem 0))
(vla-getboundingbox
    (vlax-ename->vla-object elem)
    'xmin
    'xmax
    ) ;_ ende von vla-getboundingbox
  (setq p0 (vlax-safearray->list xmin)) ;Punkt links unten
  (setq p1 (vlax-safearray->list xmax)) ;Punkt rechts oben
    (command "_.zoom" "_w" p0 p1)
    )
  )
)

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

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

---

habe ich ja immer gesagt

Suuuuuuuuuuuuuper Forum !!   

genauso:
(defun C:ZoomO ( / elem p0 p1)
(command "_ucs" "_W")
(if(setq elem (entsel))
  (progn
    (setq elem (car elem))
(vla-getboundingbox
    (vlax-ename->vla-object elem)
    'xmin
    'xmax
    ) ;_ ende von vla-getboundingbox
  (setq p0 (vlax-safearray->list xmin)) ;Punkt links unten
  (setq p1 (vlax-safearray->list xmax)) ;Punkt rechts oben
    (command "_.zoom" "_w" p0 p1)
(command "_ucs" "_V")
    )
  )
)

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

---

Ganz gut!
Hätte noch n anliegen wegen dem Befehl!
Kann man den schreinben das ich auch mehrere Objekte auswählen kann!
Geht den das?

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

---

In der Hoffnung , auch mit der Schöpfungshöhe unter der entsprechenden Grenze zu bleiben    ..

(defun C:ZoomO ( / AUSWAHL INDEX elem  xmin xmax MINX MAXX MINY MAXY)   
  (if(or(and(setq AUSWAHL (ssget "I"))(>(sslength AUSWAHL) 0))
        (and(setq AUSWAHL (ssget))    (>(sslength AUSWAHL) 0))
    )
    (progn
      (setvar "Pickfirst" 1)   
      (command "_ucs" "_W")
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (setq ELEM(ssname AUSWAHL(setq INDEX (1+ INDEX))))     
        (vla-getboundingbox
          (vlax-ename->vla-object elem)
          'xmin
          'xmax
        )
        (if (= INDEX 0)
          (progn           
            (setq MINX (car (vlax-safearray->list xmin)))
            (setq MINY (cadr(vlax-safearray->list xmin)))
            (setq MAXX (car (vlax-safearray->list xmax)))
            (setq MAXY (cadr(vlax-safearray->list xmax)))
          )
          (progn
            (if (<(car (vlax-safearray->list xmin)) MINX)(setq MINX (car (vlax-safearray->list xmin))))
            (if (<(cadr(vlax-safearray->list xmin)) MINY)(setq MINY (cadr(vlax-safearray->list xmin))))
            (if (>(car (vlax-safearray->list xmax)) MAXX)(setq MAXX (car (vlax-safearray->list xmax))))
            (if (>(cadr(vlax-safearray->list xmax)) MAXY)(setq MAXY (cadr(vlax-safearray->list xmax))))
          )
        )
       
      ) 
      (command "_.zoom" "_w" (list MINX MINY)(list MAXX MAXY))
      (command "_ucs" "_V")   
    )
  )
)

------------------
- Thomas -

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

---

Vielen Dank!
Genau das was ich such!
10 U's!
Simon

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

---

Moin,
damit auch wirklich auf das vorherige BKS zurückgeschaltet wird muss es heissen:
      (command "_ucs" "VO")

MfG

CB_

(Achtung Lothar: Ich heisse Christian) 

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

---

ach, was - um ganz sicher zu gehen muss es heißen: (command "bks" "_v")

@CB_ merkst was?

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

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

---

Das mit _UCS _W und _UCS _P wäre doch eleganter mit (TRANS pt from to) zu lösen.

Beispiel:

(defun C:ZoomO ( / AUSWAHL INDEX elem  xmin xmax MINX MAXX MINY MAXY)   
  (if(or(and(setq AUSWAHL (ssget "I"))(>(sslength AUSWAHL) 0))
        (and(setq AUSWAHL (ssget))    (>(sslength AUSWAHL) 0))
    )
    (progn
      (setvar "Pickfirst" 1)   
;;;      (command "_ucs" "_W")
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
        (setq ELEM(ssname AUSWAHL(setq INDEX (1+ INDEX))))     
        (vla-getboundingbox
          (vlax-ename->vla-object elem)
          'xmin
          'xmax
        )
        (if (= INDEX 0)
          (progn           
            (setq MINX (car (vlax-safearray->list xmin)))
            (setq MINY (cadr(vlax-safearray->list xmin)))
            (setq MAXX (car (vlax-safearray->list xmax)))
            (setq MAXY (cadr(vlax-safearray->list xmax)))
          )
          (progn
            (if (<(car (vlax-safearray->list xmin)) MINX)(setq MINX (car (vlax-safearray->list xmin))))
            (if (<(cadr(vlax-safearray->list xmin)) MINY)(setq MINY (cadr(vlax-safearray->list xmin))))
            (if (>(car (vlax-safearray->list xmax)) MAXX)(setq MAXX (car (vlax-safearray->list xmax))))
            (if (>(cadr(vlax-safearray->list xmax)) MAXY)(setq MAXY (cadr(vlax-safearray->list xmax))))
          )
        )
       
      ) 
      (command "_.zoom" "_w" (TRANS (list MINX MINY) 0 1)(TRANS (list MAXX MAXY) 0 1))
;;;      (command "_ucs" "_V")   
    )
  )
)

------------------
Gruß aus Wien
Bernhard

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

---

ok... setz ich noch einen drauf  (falls einer was gegen command hat )
die Zeile (command "_.zoom" "_w" (TRANS (list MINX MINY) 0 1)(TRANS (list MAXX MAXY) 0 1))

durch

      (vl-catch-all-error-p
        (vl-catch-all-apply
          'vla-ZoomWindow
          (list (vlax-get-acad-object)
                (vlax-3D-Point(TRANS (list MINX MINY) 0 1))
                (vlax-3D-Point(TRANS (list MAXX MAXY) 0 1))
          )     
        )
      )

ersetzen. (vl-load-com) nicht vergessen!

...und Pickfirst im Proggi zu setzen macht eigentlich auch keinen rechten Sinn.

------------------
- Thomas -

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

---

@cadwiesel
klar merke ich noch was, nur so wie es vorher war klappte es bei mir jedenfalls nicht.
selbst wenn der befehl auf englisch eingegeben wurde, funktioniert die eingabe der parameter nur auf deutsch...

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

---

Hallo,

habe mal in dem Lisp von CADwiesel den ZOOM-Befehl gegen einen BREAK-Befehl getauscht. Wenn ein Element (z.B. ein Kreis, Block) auf einer Linie ist, wird die Linie nun passend zum Element gebrochen.

(defun C:ZoomO ( / elem p0 p1 obj)
(vl-load-com)
(if(setq elem (ssget "_:S"))
  (progn
    (setq elem (ssname elem 0))
    (vla-getboundingbox
    (vlax-ename->vla-object elem)
    'xmin
    'xmax
    ) ;_ ende von vla-getboundingbox
    (setq p0 (vlax-safearray->list xmin)) ;Punkt links unten
    (setq p1 (vlax-safearray->list xmax)) ;Punkt rechts oben

    (setq obj (entsel "\n Bruchlinie wählen: "))
    (command "_BREAK" obj "e" p0 p1)
    )
  )
(princ)
)

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

---

.. nicht dein Ernst,oder?
mal ein BSP:

(defun C:boundingbox ( / elem p0 p1 obj)
  (vl-load-com)
  (if(setq elem (ssget "_:S"))
    (progn
      (setq elem (ssname elem 0))
      (vla-getboundingbox
      (vlax-ename->vla-object elem)
        'xmin
        'xmax
      )
      (setq p0 (vlax-safearray->list xmin))
      (setq p1 (vlax-safearray->list xmax))
      (command "_line" P0  P1 "")       
    )
    (princ)
  ) 
)

zeichnet dir nur eine diagonale der "Boundingbox" un die Endpunkte dieser Diagonale nutzt du für den Breakbefehl....

Teste mal deine Routine an einem Dreieck und einer schräg in der ebene verlaufenden Gerade...und???

------------------
- Thomas -

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