; =========================================================================================== ;
; Lista obiektow w definicji bloku / List of objects in block definition ;
; Name [STR] - nazwa bloku / block name ;
; Entity [STR] - nazwa entycji / entity name ;
; ------------------------------------------------------------------------------------------- ;
; (cd:BLK_GetEntity "*Model_space" nil), (cd:BLK_GetEntity "NAZWA" "*LINE") ;
; =========================================================================================== ;
(defun cd:BLK_GetEntity
(Name Entity
/ en dt res
) en
)
)
res
)
)
)
)
)
; =========================================================================================== ;
; List of <ename> attribs in block reference
; =========================================================================================== ;
(defun jk:BLK_GetInsertAtts
(Ename
/ d a n o res
) )
)
(= o "ATTRIB")
)
)
)
)
)
; =========================================================================================== ;
(defun C:TEST
-INS
(/ s d
) )
(jk:BLK_GetInsertAtts
(car s
)) )
(cd:BLK_GetEntity
(cdr (assoc 2 d
)) nil) )
)
)
)