topic Re: change attribute to filename in Visual LISP, AutoLISP and General Customization Forum

change attribute to filename

Anonymous — Wed, 07 Aug 2019 17:34:24 GMT

Hello all, i posted this yesterday but it didnt seem to take so i will post again. i am looking for a lisp that will change and attribute to the file name without the dwg extension. can anyone help me.

thanx

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 18:29:29 GMT

@Anonymous Something like ?

Re: change attribute to filename

Moshe-A — Wed, 07 Aug 2019 18:33:55 GMT

@Anonymous hi,

adding a field to attribute value would be more easy for you.

enjoy

moshe

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 18:41:50 GMT

I was actually looking for a lisp routine that would do this. but thanks for you suggestion.

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 18:51:03 GMT

@Anonymous Any specific reason?

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 18:55:21 GMT

so I can use it on any drawing without have to go through the field process every time. we get lots of drawings from clients that don't want us to mess around with any of there blocks. and it is so convenient if it is preloaded. preferably I would like this without the file extension (dwg) if that is possible.

thanks for your help

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 19:04:13 GMT

That doesn't seem necessary to me.

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 20:02:46 GMT

Maybe its more a "want" than a "need" but it is what I prefer. do you know if this is possible?

thanx

Re: change attribute to filename

ronjonp — Wed, 07 Aug 2019 20:54:39 GMT

Your request is kinda vague. What attribute .. is it a specific block? I agree that a field is the way to solve this:

(defun c:foo (/ e el)
  (if (and (setq e (car (nentsel))) (= "ATTRIB" (cdr (assoc 0 (setq el (entget e))))))
    ;; Field
    (entmod (subst '(1 . "%<\\AcVar Filename \\f \"%fn2\">%") (assoc 1 el) el))
    ;; Hardcoded ( not recommended ) .. what if file gets renamed???
;;;    (entmod
;;;      (subst (cons 1 (substr (getvar 'dwgname) 1 (- (strlen (getvar 'dwgname)) 4))) (assoc 1 el) el)
;;;    )
  )
  (princ)
)

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 21:13:04 GMT

I tried this and it just changes the attribute to ####. I want to be able to use this for any attribute nothing specific. I don't want it to be turned into a field. Just change the value of the attribute to the file name without the dwg.

thanks for your help with this.

Re: change attribute to filename

Anonymous — Wed, 07 Aug 2019 21:45:54 GMT

I just look at this lisp again and realize you gave me two option. the hardcode one worked like a charm.

thank you very much for this.

Re: change attribute to filename

ronjonp — Thu, 08 Aug 2019 03:38:32 GMT

@Anonymous wrote:
I just look at this lisp again and realize you gave me two option. the hardcode one worked like a charm.

thank you very much for this.

Thank you for the thanks but...

I don't understand why an OP can accept their post as a solution @Anonymous ? Give credit where credit is due .. we're all scrappin for unsalted stale peanuts in a nonsensical world that gives us a number that... ha!.

Re: change attribute to filename

ronjonp — Thu, 08 Aug 2019 03:45:03 GMT

@Anonymous wrote:
I tried this and it just changes the attribute to ####. I want to be able to use this for any attribute nothing specific. I don't want it to be turned into a field. Just change the value of the attribute to the file name without the dwg.

thanks for your help with this.

All you have to do is regen, It's based on your setting for FIELDEVAL variable. Don't hard code this!

Re: change attribute to filename

Anonymous — Thu, 08 Aug 2019 11:16:13 GMT

@ronjonp wrote:

@Anonymous wrote:

I just look at this lisp again and realize you gave me two option. the hardcode one worked like a charm.

thank you very much for this.

Thank you for the thanks but...

I don't understand why an OP can accept their post as a solution @Anonymous ? Give credit where credit is due .. we're all scrappin for unsalted stale peanuts in a nonsensical world that gives us a number that... ha!.

@ronjonp I did for you !!

Re: change attribute to filename

ronjonp — Thu, 08 Aug 2019 13:37:42 GMT

@Anonymous wrote:

@ronjonp wrote:
@Anonymous wrote:
I just look at this lisp again and realize you gave me two option. the hardcode one worked like a charm.

thank you very much for this.
Thank you for the thanks but...

I don't understand why an OP can accept their post as a solution @Anonymous ? Give credit where credit is due .. we're all scrappin for unsalted stale peanuts in a nonsensical world that gives us a number that... ha!.

@ronjonp I did for you !!

Hahaha .. thanks. 🙂 I still find it odd that you can mark your own posts as solutions.

Re: change attribute to filename

Anonymous — Thu, 08 Aug 2019 14:01:49 GMT

that was not my intention to accept my own post. I meant to give credit to where due. how can I change that?

Re: change attribute to filename

Anonymous — Thu, 08 Aug 2019 14:06:28 GMT

thank you rperez but I don't know how to change this. can you please tell me and I will gladly accept yours as the solution. I apologize for the mistake.

Re: change attribute to filename

ronjonp — Thu, 08 Aug 2019 14:10:28 GMT

@Anonymous wrote:
thank you rperez but I don't know how to change this. can you please tell me and I will gladly accept yours as the solution. I apologize for the mistake.

No need to apologize .. I've seen it done a few times before ( probably on accident ). *cheers*

Re: change attribute to filename

Anonymous — Tue, 21 Jul 2020 12:24:33 GMT

The best suggestion that I can provide for this type of issues is LongPathTool. Best of luck.

Re: change attribute to filename

Sea-Haven — Wed, 22 Jul 2020 04:53:43 GMT

The quick version

(setq ent (entget (car (nentsel "\npick att to change not block")))) (setq dwg (getvar 'dwgname)) (entmod (subst (cons 1 dwg) (assoc 1 ent) ent))

(vl-filename-base (getvar "dwgname")) Otherwise you can use this: (substr (setq str (getvar "dwgname")) 1 (- (strlen str) 4))