xref relative path

[robert06]

Is there a way to overlay xrefs with relative path on command line with "-xref" at first place or is the only way to change the path type of already attached xref afterwards?

I use the command in lisp:

(command "-xref" "o" "~" "0,0,0" "1" "1" "0")

I don't find a variable of Path type, which can be selected with "xattach" command.

[ВeekeeCZ]

The REFPATHTYPE system variable came up as new to 2018.

[Ranjit_Singh]

If you use xattach, then you can specify the path type using below method. But -xref will always give full path and you have to adjust it afterwards (that's how it is in AutoCAD 2015)

Following values control the default setting in the "Attach External Reference" dialog box

0 - Relative Path
1 - Full path
2 - No path

To read current value

(vl-registry-read (strcat "HKEY_CURRENT_USER\\"
			  (vlax-machine-product-key)
			  "\\Profiles\\"
			  (getvar "cprofile")
			  "\\Dialogs\\XattachDialog")
		  "PathType")

To write current value (for example to set it to no path; value 2)

(vl-registry-write (strcat "HKEY_CURRENT_USER\\"
			   (vlax-machine-product-key)
			   "\\Profiles\\"
			   (getvar "cprofile")
			   "\\Dialogs\\XattachDialog")
		   "PathType"
		   2)

[robert06]

Hi,

This applies only to "xattach" dialogue, does not affect path type of xref inserted with "-xref".

As a workaround, until 2018 is installed,  how could I get previously inserted xref name to apply

(command "-xref" "t" xrlast "r")

thank you

Robert

[cadffm]

Let the file choose, then (if plausible) create the relative path itself.
Then you can specify the file directly with the relative path.

A folder above the current, file name MyXref.dwg
Name of ...:        ".. \ MyXref.dwg"

[robert06]

Hi, thanks, but I'd like to automate this!

Robert

[cadffm]

"Hi, thanks, but I'd like to automate this!"

wonderfull!

Now, tell us your new (Lisp-)Problem again

[cadffm]

So you only need a small one of the way <see attachment> *

*Just a working example to show the path construction, not to present clean code.

Pay attention to the COND case "higher folder, but than follow an other path"

There are some expressions nested and not commented,
If you have specific questions, ask!

[robert06]

Thank you, I got your idea. As I'm not a programmer, I still used the "stupid way"

(command "-xref" "o" "~" "0,0,0" "1" "1" "0")
(setq ent (entlast))
(setq xrlast (vla-get-effectivename (vlax-ename->vla-object ent)))
(command "-xref" "t" xrlast "r")