Topic: Macro to Rename Xref

[MSTG007]

I am looking for a method that via command prompt or lisp, that I can get an xref to rename to a generic name, and then load a .las file.

I guess the thought is, if I have a ABCD.1234.SH.Siteb.dwg, that I can rename that to .SH.S, then import the .LAS.
(I have made a .LAS that I exported the Layer State Out using the .SH.S) I figured I could rename the project xref to a generic name then import the layer state, activate the layer state, then be done).

I do have a slight variation of naming with this type of file, it could be either:

ABCD.5678.SH.Siteb.dwg
ABCD.1234.SH.SB.dwg
ABCD.4567.SH.Sitereference.dwg

I did not know if maybe a the user could pick the Xref in the drawing, that would then be renamed to the generic name and go from there.

Just a brain storm... Thanks for any ideas.

[ronjonp]

...
I guess the thought is, if I have a ABCD.1234.SH.Siteb.dwg, that I can rename that to .SH.S, then import the .LAS.
...

What does this accomplish ?

[MSTG007]

I have created layer states for demo plan, site plan, utility plan.

I have a proposed base file named similar to the above. I then in my proposed base file turn on and change colors to layers that I want to see in the utility plan. Once I get it to look the way I want. I save the file and then Xref that proposed base file into a clean dwg. So if the file name is ABCD.1234.SH.Siteb.dwg. I go to the manager and rename it to .SH.S. I open the layer manager then create a layer state called proposed base for utility plan.

The idea is that I can make this a generic layer state for the proposed base to be loaded into any new or old project (utility plan). So if I were to open an older project's Utility Plan. the proposed base name is this ABCD.5678.SH.SB.dwg. I can then rename that to be .SH.S , Open the Layer State manager and import the proposed base for utility plan in, then activate it. Changes everything to the correct colors and on off layers.

I hopefully explained it as clear as I can. I can manually do all this, so the process does work. Just wanting a way to kinda automate it.

[roy_043]

Do you mean something along these lines:

Code: [Select]

(vlax-for blockDefObj (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (vla-get-isxref blockDefObj) :vlax-true)
    (cond
      ((wcmatch (setq oldName (vla-get-name blockDefObj)) "*ABC")
        (if (tblobjname "block" "ABC")
          (princ "\Error: ABC already exists ")
          (progn
            (vla-put-name blockDefObj "ABC")
            (layerstate-import "ABC.las")
            (vla-put-name blockDefObj oldName)
          )
        )
      )
      ((wcmatch oldName "*DEF")
        ...
      )
      ((wcmatch oldName "*GHI")
        ...
      )
    )
  )
)
EDIT: Replaced foreach with vlax-for as per ronjonp's remark.

[ronjonp]

Oh .. I get it now after looking at Roy's code ( takes some a bit longer )
Here's a base using the three example layerstates in the post above.

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ demo ls_path oldname site util)
2.   ;; Assumes that these are your file naming conventions for the relevent xref
3.   ;; Searches for a wildcard match *site* and renames accordingly
4.   (setq ;; LAS file needs to be named ".SH.S.las"
5.         site    ".SH.S"
6.         ;; LAS file needs to be named ".SH.D.las"
7.         demo    ".SH.D"
8.         ;; LAS file needs to be named ".SH.U.las"
9.         util    ".SH.U"
10.         ;; DUH :)
11.         ls_path "C:\\MyPath\\To\\Saved\\LayerStates\\"
12.   )
13.   (vlax-for bdf (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
14.     (if (= (vla-get-isxref bdf) :vlax-true)
15.       (cond ;; Check that we have a wildcrad match
16.             ((wcmatch (strcase (setq oldname (vla-get-name bdf))) (strcat "*" site "*"))
17.              (if (not (tblobjname "block" (substr site 1 5)))
18.                (progn ;; Put name to ".SH.S"
19.                       (vla-put-name bdf (substr site 1 5))
20.                       ;; Import the already saved layerstate
21.                       (layerstate-import (strcat ls_path (substr site 1 5) ".las"))
22.                       ;; Restore the layerstate
23.                       (layerstate-restore (substr site 1 5) nil 1)
24.                       ;; Restore xref name
25.                       (vla-put-name bdf oldname)
26.                )
27.              )
28.             )
29.             ((wcmatch (strcase (setq oldname (vla-get-name bdf))) (strcat "*" demo "*"))
30.              (if (not (tblobjname "block" (substr demo 1 5)))
31.                (progn (vla-put-name bdf (substr demo 1 5))
32.                       (layerstate-import (strcat ls_path (substr demo 1 5) ".las"))
33.                       (layerstate-restore (substr demo 1 5) nil 1)
34.                       (vla-put-name bdf oldname)
35.                )
36.              )
37.             )
38.             ((wcmatch (strcase (setq oldname (vla-get-name bdf))) (strcat "*" util "*"))
39.              (if (not (tblobjname "block" (substr util 1 5)))
40.                (progn (vla-put-name bdf (substr util 1 5))
41.                       (layerstate-import (strcat ls_path (substr util 1 5) ".las"))
42.                       (layerstate-restore (substr util 1 5) nil 1)
43.                       (vla-put-name bdf oldname)
44.                )
45.              )
46.             )
47.       )
48.     )
49.   )
50.   (princ)
51. )

[ronjonp]

Updated code above to use VLAX-FOR vs. FOREACH    ( Roy you need to change yours ).
*Added some comment above so OP can troubleshoot.

[MSTG007]

Awesome. Thanks for the help! Here is what I am doing.

I have a C:\work\layer_states\ (folder created)

I have the .SH.S.las, .SH.D.las, and the .SH.U.las.

I have xref'd a project proposed base. then in the xref manager renamed it to .SH.XREF.S.

I load the lisp and type foo. and I think I broke it.

[ronjonp]

Copy the code above again .. had a typo .. hopefully it works as I'm coding blindly ( no test files )

[ronjonp]

..
I have xref'd a project proposed base. then in the xref manager renamed it to .SH.XREF.S.
..

Now you've lost me. The code should rename the xref before it imports and restores the layer state.
Per your examples, I assumed that your naming convention was this:
*.SH.S* = Site Plans
*.SH.D* = Demo
*.SH.U* = Utility

[MSTG007]

No. You are right what you just stated. I just can not seem to get it to work.

[MSTG007]

Ok... I have rebooted and still am not having any luck. This is just a thought but I do not need to select the xref first to apply the layer state too or do I?

[roy_043]

Updated code above to use VLAX-FOR vs. FOREACH    ( Roy you need to change yours ).

Code updated. Good catch ronjonp.