Xreference Control

I would like to control thedefault settings for the "Path Type" and the
"Reference Type".

I have found the registry key for the "Path Type" but this does not appear
to control the settings once an AutoCAD session is started. It also appears
to be updated as soon the xref command has been used.

Are variables that can be set during autocad startup, or by redefining the
command. Writing a new function for xreferencing would seem a long winded
method of controlling these settings.

I would be interested in either lisp or VBA solutions.

Thanks
Martin Wright

 

(vla-explode (vlax-ename->vla-object (car (entsel))))

This code can not explode the block that not equal scale X Y Z.
Aren't there any good ideas?

 

UK,

;
; -- Function VxExplode
; Explodes complex objects.
; Copyright:
; ©2001 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
; Obj = Block or Pline object [VLA-OBJECT]
; Del = True, delete base object
; False, keep base object
; Return [Typ]:
; > Selection set [PICKSET]
; Notes:
; None
;
(defun VxExplode (Obj Del / CurSet ExpMde)
(or Gb:AcO (setq Gb:AcO (vlax-get-acad-object)))
(or Gb:AcD (setq Gb:AcD (vla-get-ActiveDocument Gb:AcO)))
(setq ExpMde (vla-GetVariable Gb:AcD "EXPLMODE")
CurSet (ssadd)
)
(vla-SetVariable Gb:AcD "EXPLMODE" 1)
(foreach memb (vlax-invoke Obj "Explode")
(ssadd (vlax-vla-object->ename memb) CurSet)
)
(if Del (vla-delete Obj))
(vla-SetVariable Gb:AcD "EXPLMODE" ExpMde)
CurSet
)

Cheers