hola freunde der klammern,
oder als handleliste
; ***********************************************************************
;Gruppe: BLOCK
;
;Autor: ast
;
;Datum: 09.09.05
;
;Funktion: HandlesFromBlock
;
;Zweck: Gibt alle Handles eines Blocks zurück (Stringliste), ohne ihn zu ursprungen (diese können dann weiterbearbeitet werden)
;
;Argumente: VLA-Object des gewünschten Blockes
;
;Rückgabe: LIST
;
;Beispiel: (HandlesFromBlock (vlax-ename->vla-object (car (entsel)))) --> ("D16E" "D16D") od. nil
;
; ***********************************************************************
(defun HandlesFromBlock (objVLABlock / objBlock strHandle lstHandles)
(if (= (vlax-get-property objVLABlock 'ObjectName) "AcDbBlockReference");wenn Block ;ObjectName (RO) = "AcDbBlockReference"
(progn
(setq objBlock (vla-item
(vla-get-Blocks (vla-get-ActiveDocument (vlax-Get-acad-object)));Block Collection
(vlax-get objVLABlock 'Name);Name des gewünschten Blocks
)
)
(vlax-for item objBlock
(setq strHandle (vlax-get item 'Handle))
(if (not (member strHandle lstHandles)) (setq lstHandles (cons strHandle lstHandles)))
)
)
)
lstHandles
)
meine erste antwort (bin sehr aufgeregt )
lg alex
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP