---

Hallo,
ich habe eine Frage zu Attributen in Blöcken: Wir haben die Express-Tools von AutoCAD installiert zum Im- und Export von Attributen. Dieser Datenaustausch funktioniert über die Handle-Nummer, die jedem Block eindeutig zugeordnet ist. Kann ich in der Zeichnung nach dieser Handle-Nummer suchen? Vielen Dank im voraus!

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

---

Mit Bordmitteln IMHO nicht... mit ner Programmierung schon .... mal gucken, in Lisp gibts da die Funktion handent für

Bsp:

(defun HANDLESEARCH(HANDLE / XMIN XMAX)
  (vl-load-com)
  (if(and(=(type HANDLE)'STR)
        (setq OBJ (handent HANDLE))
        (setq OBJ (vlax-ename->vla-object OBJ))
    )
    (progn
      (vla-getboundingbox OBJ 'xmin 'xmax)
      (setq XMIN (trans (vlax-safearray->list xmin) 1 0))
      (setq XMAX (trans (vlax-safearray->list xmax) 1 0))
      (command "_.zoom" "_w"
              (list (car XMIN)(cadr XMIN))
              (list (car XMAX)(cadr XMAX))
      ) 
    )     
  )
)

Aufruf dann z.B. so :

(HANDLESEARCH "1F0F4")
oder
(HANDLESEARCH (getstring "\n Handle eingeben: "))

------------------
       - 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

---

Ich kann nur sagen: WOW!!!
Vielen Dank.

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

---

geht auch noch ein bischen kürzer:

Code:

---

(defun handlesearch (handle / o)
  (if (setq o (handent handle))
    (command "_zoom" "_o" o "")
    (prompt "Objekt nicht in Zeichnung")
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

hatte ich auch zuerst, bei Attributen oder veschachtelten Objekten war das aber nicht ganz das wahre ( da da die ganze Referenz angezoomt wird)  .... geht IMHO auch erst ab 2006 die Option "o" beim zoom .... aber egal.. der Hinweis drauf ist ja nicht schlecht 

------------------
      - 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

---

Hi wronzky, Hi all,

Edit: Anfrage hat sich erledigt, die Lösung für mein Problem habe ich doch noch in einem anderen Forum finden können. 
https://www.theswamp.org/index.php?topic=45705.0

Danke und beste Grüße,
Felix

[Diese Nachricht wurde von felixmzu am 06. Sep. 2019 editiert.]

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

---

Hallo CADmium
Ich habe im Forum einen von vielen Beiträgen gefunden, wo Du eine lsp Programmierung hineingestellt hats, für die Suche der CAD-Handle. Ich bin da absolut eine Null und weiss nicht wie ich diesen Code anwenden muss. Ich habe diesen in eine txt-Datei gepacht und als lsp Abgespeichert. Dann habe ich mit dem Befehl Appload dieses Programm geladen. Aber wenn ich nun in der Befehlszeile Handlesearch eingebe kommt unbekannter Befehl. Kannst Du mir da weiterhelfen?

Besten Dank

Zitat:

---

Original erstellt von CADmium:
Mit Bordmitteln IMHO nicht... mit ner Programmierung schon .... mal gucken, in Lisp gibts da die Funktion handent für

Bsp:

(defun HANDLESEARCH(HANDLE / XMIN XMAX)
  (vl-load-com)
  (if(and(=(type HANDLE)'STR)
         (setq OBJ (handent HANDLE))
         (setq OBJ (vlax-ename->vla-object OBJ))
     )
    (progn
      (vla-getboundingbox OBJ 'xmin 'xmax)
      (setq XMIN (trans (vlax-safearray->list xmin) 1 0))
      (setq XMAX (trans (vlax-safearray->list xmax) 1 0))
      (command "_.zoom" "_w"
               (list (car XMIN)(cadr XMIN))
               (list (car XMAX)(cadr XMAX))
      ) 
    )     
  )
)

Aufruf dann z.B. so :

(HANDLESEARCH "1F0F4")
oder
(HANDLESEARCH (getstring "\n Handle eingeben: "))

---

------------------
Mfg Rivella

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

---

Tip: Lese ALLES was er gepostet hat!

EDIT: Zurück am PC lässt es sich besser tippen&kopieren:

Zitat:

---

Original erstellt von CADmium:
Aufruf dann z.B. so :

(HANDLESEARCH "1F0F4")
oder
(HANDLESEARCH (getstring "\n Handle eingeben: "))

---

Und ich ergänze noch um folgenden Code (pack das mit in deine .lsp, unter den Code von CADmium), dies stellt dir einen neuen Befehl parat, Befehlsname "HS"

Wenn du jetzt noch die .lsp in deine Startgruppe legst, dann hast du die Funktion/Befehl immer zur Verfügung.
Befehl: APPLOAD -> Startgruppe [Inhalt]

Code:

---

(defun c:HS (/ handle)
(terpri)
(if (and (setq handle (getstring "\nHandle eingeben: "))(handent handle))
     (progn (HANDLESEARCH handle)(princ (cdr(assoc 0 (entget(handent handle))))))
     (princ "Handle unbekannt")
)
(princ)
)

(princ "\nBefehl: HS geladen / (HANDLESEARCH \"A2E\")")
(princ)

---

 

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

---

Hallo cadffm
Ok Besten Dank. Ohne Programmierkenntnisse ist es eben schwierig Euch Profis zu folgen.
Mit dem von Dir geposteten Code habe ich ne Fehlermeldung erhalten

Befehl: APPLOAD
CAD-Handle-Suchen.lsp erfolgreich geladen.
Befehl: ; Fehler: Falsch formatierte Zeichenfolge in Eingabe
Befehl:

Dann habe ich den unteren Teil des Codes gelöscht und so funktionert es.

Danke viel Mal

------------------
Mfg Rivella

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

---

Hi,
Jepp, verstehe ich sehr gut.

sorry, da habe ich wohl beim Copy&paste das Falsche in der Zwischenablage gehabt.

Ich habe es schon versucht zu korrigieren (oben, im original Post),
kontrollieren kann es erst später.

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