---

Hallo,

ich fand irgendwo dieses Lisp. Dieses ermöglicht das löschen aller Konstruktionslinien in der Zeichnung.

(defun c:delxl nil (vl-load-com)
    (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
        (vlax-for obj blk
            (if (eq "AcDbXline" (vla-get-objectname obj))
                (vl-catch-all-apply 'vla-delete (list obj))
            )
        )
    )
    (princ)
)

Nun versuche ich das gleiche Lisp zum ausblenden aller Konstruktionslinien zu verwenden. Das funktioniert so leider nicht.

(defun c:delxl nil (vl-load-com)
    (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
        (vlax-for obj blk
            (if (eq "AcDbXline" (vla-get-objectname obj))
                (vl-catch-all-apply 'vla-HideObjects (list obj))
            )
        )
    )
    (princ)
)

Bitte um Hilfe.

Lg Martin

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

---

Wenn du den Befehl _HIDEOBJECTS  simulieren willst: da musst du wohl hier ran:
(setq dic (dictsearch (namedobjdict) "ACAD_OBJECTISOLATION")) .... soll aber nicht so einfach sein.

ein anderer Weg geht über den DXF GC60  bzw. die ActiveX-property VISIBLE:

Bsp:
(defun c:HIDEXL(/ BLK OBJ)
  (vl-load-com)
  (vlax-for BLK(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
   (vlax-for OBJ BLK
     (if(=(strcase(vla-get-objectname OBJ))"ACDBXLINE")
       (vl-catch-all-apply 'vla-put-visible (list OBJ :vlax-false))
     )
   )
  )
  (princ)
)
(defun c:UNHIDEXL(/ BLK OBJ)
  (vl-load-com)
  (vlax-for BLK(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
   (vlax-for OBJ BLK
     (if(=(strcase(vla-get-objectname OBJ))"ACDBXLINE")
       (vl-catch-all-apply 'vla-put-visible (list OBJ :vlax-true))
     )
   )
  )
  (princ)
)

auf oberster Ebene ( ohne Blöcke) geht natürlich auch einfach sowas :
(defun c:HIDEXL(/ AWS)
  (if(setq AWS(ssget "_x" '((0 . "XLINE"))))
    (command "_hideobjects" AWS "")
  )
)
------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Guten Morgen Thomas,

danke für deine Hilfe.
Dein Lisp funktioniert wunderbar.

Warum ist das mit diesem Befehl _HIDEOBJECTS so?

lg. Martin 

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

---

..weil es die Methode HideObjects nichtz gibt, sondern 'nur' einen Befehl dessen.

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

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

---

Hallo Cadwiesel,

Danke für deine Info. Bin leider nicht so "Sattelfest" in Lisp wie ihr. Aber man lernt hier im Forum auch einiges dazu.

lg. Martin

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

---

Zitat:

---

Original erstellt von MARTINLE:

Warum ist das mit diesem Befehl _HIDEOBJECTS so?

---

Frag die Adesk-Programmierer!  Sicher hätte man dafür eine Methode implementieren können, hat man aber nicht!

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Zitat:

---

Original erstellt von CADmium:

Frag die Adesk-Programmierer!  Sicher hätte man dafür eine Methode implementieren können, hat man aber nicht!

---

Hallo Thomas,

Ich glaube, die würden sich mit einem so wie mir nicht abgeben.
Da frag ich doch lieber hier im Forum. Denn da kriegt man immer tolle Hilfe.

lg. Martin

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