Layer Prefixes.

[Glen1980]

You dont need to change every time you open a drawing. if you use the first code i posted via script

_.open "C:\Folderpath\54512Project.dwg" (FIXPREFIX "54512" "512") _.save _close
_.open "C:\Folderpath\78427Project.dwg" (FIXPREFIX "78427" "427") _.save _close

I wondered why I couldn't make the first code work. I'll have a play after lunch.

[pBe]

I wondered why I couldn't make the first code work. I'll have a play after lunch.

Perhaps you can use the code at post #10

You can however still use LMs' ODX Wrapper by referencing the drawing filename for variable oldprefix
e.g.

Given the Filename prefix is the same as the Layer names prefixes.
Drawing name: 85391-FloorPlan.dwg

 (setq fname (vla-get-name (vla-get-ActiveDocument (vlax-get-acad-object))))

85391-FloorPlan.dwg

 (if
      (assoc (setq OldPrefix (substr fname 1 5))
             '(("65477" . "477")("85391" . "391")("297671" . "671")))
      (dothis)
      )

HTH

[Lee Mac]

Sample using Lee Macs' ObjextDBX Wrapper

(defun c:sample ( / _FIXPREFIX )
(defun _FIXPREFIX (OldPrefix NewPrefix doc )
 (vlax-for layer (vla-get-layers doc)
            (if (wcmatch
                      (setq ln (vla-get-name layer))
                      (strcat OldPrefix "*"))
                  (vla-put-name
                        layer
                        (vl-string-subst NewPrefix OldPrefix ln)))
        )
    )
   (LM:ODBX '_FIXPREFIX "12345" "ABC")
    (princ)
)

Many thanks for the recommendation pBe, much appreciated

However, the example would need to be:

(defun c:sample ( / _fixprefix )

    (defun _fixprefix ( oldprefix newprefix doc )
        (vlax-for layer (vla-get-layers doc)
            (if (wcmatch (vla-get-name layer) (strcat oldprefix "*"))
                (vla-put-name layer (vl-string-subst newprefix oldprefix (vla-get-name layer)))
            )
        )
    )

    (LM:ODBX '(lambda ( doc ) (_fixprefix "12345" "ABC" doc)) nil t)
    (princ)
)

[pBe]

(LM:ODBX '(lambda ( doc ) (_fixprefix "12345" "ABC" doc)) nil t)
(princ)
)

Oh my

We wouldnt want those arguments missing now do we...
Apologies Lee

Cheers

[Glen1980]

Cheers guys.

Hopefully I won't have to use this LISP again but you never can tell when people will decide to different stuff.

[Lee Mac]

Oh my

We wouldnt want those arguments missing now do we...
Apologies Lee

No worries dude