Topic: External Reference PathType

[Kerry]

I'm having some trouble with non-English  AutoCAD (French particularly this time ) setting an XREF pathType to Partial programmatically.
( and it's a bit of a plane ride to test on site )

I'd like to have anyone interested run this and report back the result and the build nationality you're using.

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (or *:acad (setq *:acad (vlax-get-acad-object)))
3. (or *:acdoc (setq *:acdoc (vla-get-activedocument *:acad)))
4. (or *:blocks (setq *:blocks (vla-get-blocks *:acdoc)))
5.  
6. (defun c:doit (/)
7.    (if (and (setq
8.                ename
9.                  (entsel "\nSelect an XREF to change PathType to Partial."
10.                  )
11.             )
12.             (setq SelObj (vlax-ename->vla-object (car ename)))
13.             (= (vla-get-objectname SelObj) "AcDbBlockReference")
14.             (= :vlax-true (vla-get-isxref
15.                   (setq RefObj (vla-item *:blocks (vla-get-name SelObj)))
16.                )
17.             )
18.             (setq xrefName (vla-get-name SelObj))
19.             (setq blkpath (vla-get-path SelObj))
20.             (print blkpath)
21.             (if (not (= "." (substr blkpath 1 1)))
22.                (vl-cmdf "_.-xref" "_pathType" xrefName "_Relative")
23.             )
24.             (vl-cmdf "_draworder" (car ename) "" "_Back")
25.        )
26.       (print (vla-get-path SelObj))      
27.    )
28.    (print "\nThanks for all the fish")
29.    (princ)
30. )
31. (princ)
32.  

Something like
English Build result:
Command: DOIT
Select an XREF to change PathType to Partial.
"N:\\TardisTest-1.dwg"
1 path(s) changed.
"..\\..\\..\\..\\..\\..\\TardisTest-1.dwg"
Thanks for all the fish
Command:

Thanks for playing.

Added : Just need to wait for Europe to wake up
fixed vla-get-isxref conditional test ; reload attachment

[NICK_VNV]

There is no "_pathType" option for "_.-xref" command, it has only "_Path" in Civil3d 2013 (rus)
P.S. and earlier versions too

[HasanCAD]

I am in Arabic native and the AutoCAD interface is english

Code: [Select]

Select an XREF to change PathType to Partial.
"D:\\Projects\\حسن\\S\\GRID.dwg" _.-xref
Enter an option [?/Bind/Detach/Path/pathType/Unload/Reload/Overlay/Attach] <Attach>: _pathType
Enter xref name(s) to edit path type: GRID
Enter new path type [Full/Relative/None]: _Relative
1 path(s) changed.
Command: _draworder
Select objects:   1 found

Select objects:
Enter object ordering option [Above objects/Under objects/Front/Back] <Back>: _Back
Command:
"..\\حسن\\S\\GRID.dwg"
"\nThanks for all the fish"

[Kerry]

Interesting info  Nick, Thanks.

Excellent HasanCAD, that is a good start.

[roy_043]

Kerry you should check lines 14-17. This portion returns T for all block definitions (... and using the variable name RefObj is of course confusing).

[Patrick_35]

ah the french ...

For the code in french (i don't find international command)

Code: [Select]

(vl-cmdf "_.-xref" "TY" xrefName "_Relative")
A lisp that I had done that works with french's version

@+

[Kerry]

Kerry you should check lines 14-17. This portion returns T for all block definitions < .. >

Ooops, I missed the  (= :vlax-true ) ...

< .. >  (... and using the variable name RefObj is of course confusing).

I wanted to mentally distinguish between the insert selected and the reference from the blockTable

ah the french ...

For the code in french (i don't find international command)

Code: [Select]

(vl-cmdf "_.-xref" "TY" xrefName "_Relative")
A lisp that I had done that works with french's version

@+

Thanks Patrick. I have seen the literal French prompts but I'd prefer to use code that was international ; hence the attempt to use _pathType

[NICK_VNV]

Maybe this could help http://www.theswamp.org/index.php?topic=31636.msg373180#msg373180
works fine for me

[roy_043]

I wanted to mentally distinguish between the insert selected and the reference from the blockTable

The confusing bit is that what you call 'RefObj' is a block definition (the insert is the reference object here). Well, it was confusing to me anyway.

[Kerry]

ah the french ...

For the code in french (i don't find international command)

Code: [Select]

(vl-cmdf "_.-xref" "TY" xrefName "_Relative")

Patrick,
Does this work for you ?

Code - Auto/Visual Lisp: [Select]

1. (vl-cmdf "_.-xref" "_pathType" xrefName "_Relative")

I understand that

Code - Auto/Visual Lisp: [Select]

1. (vl-cmdf "_.-xref" "TY" xrefName "_Relative")

works in both English and French versions because of the happy coincidence tht
"TY"
can represent both
pathType  and
TYpechemin

That aside, I'd still like to see an International solution

[Patrick_35]

Before giving my reply, I tried "_pathType" and "_type" and it does not work
"TY" is the french option
On older version of AutoCAD, we could find the international commands with the arrow keypad, but not now 

@+

[Kerry]

Thanks Patrick.

I have used the "TY" option because it works in English and French versions.

Seems to satisfy my immediate requirements.

If I have problems I'll download the French version on my ADN account and see the issue first hand.

Thanks to all for the responses.

Regards,
Kerry

[Patrick_35]

You can also set yourself on relative path and use it in the _path's option
It's in this way that works lisp I posted above

@+

[lamarn]

Great tool Patrick_35 !
Thanks for sharing that lsp
 
I was using the one beneath for some time but
your repath routine also gets into unloaded dwg files..!
(save me a lot of loading time !!)

----

;;  XRP2004.lsp         by Mark McDonough
;;  V3.2                   Oct.15, 1999
;;  Updated as XRP2004.lsp by Mark McDonough, 4/20/04


;;  Rev.1 05/03/99 updated to work for renamed XREFs and for AK2
;;  Rev.2 10/10/99 updated to work for Image paths
;;  Rev 3 04/20/04 updated to remove restrictions on long filenames
;;  Rev 4 12/14/06 updated to allow loading in running in AutoCAD 2007 (although it's not been tested in 2007)

[lamarn]

Patrick
In order to make unloaded references relative i would like to set var. DWGPREFIX as a support path (like)  'project files search path'.
How can this be done?