25 lines
528 B
Common Lisp
25 lines
528 B
Common Lisp
(defun c:XrefBind (/ tmpObj)
|
|
(vl-load-com)
|
|
(vlax-for objs (vla-get-ModelSpace
|
|
(vla-get-activedocument (vlax-get-acad-object))
|
|
)
|
|
(if
|
|
(and
|
|
(= (vla-get-ObjectName objs) "AcDbBlockReference")
|
|
(vlax-property-available-p objs 'Path)
|
|
(setq
|
|
tmpObj (vla-Item
|
|
(vla-get-Blocks
|
|
(vla-get-ActiveDocument (vlax-get-Acad-Object))
|
|
)
|
|
(vla-get-Name objs)
|
|
)
|
|
)
|
|
(not (assoc 71 (entget (tblobjname "block" (vla-get-Name objs)))))
|
|
)
|
|
(vla-Bind tmpObj :vlax-true)
|
|
)
|
|
)
|
|
|
|
(princ)
|
|
) |