change attribute to filename

[Anonymous]

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

[Anonymous]

@Anonymous  Something like ?

[Moshe-A]

@Anonymous  hi,

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

enjoy

moshe

[Anonymous]

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

[Anonymous]

@Anonymous  Any specific reason?

[Anonymous]

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

[Anonymous]

That doesn't seem necessary to me.

[Anonymous]

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

thanx

[ronjonp · Accepted solution]

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)
)

[Anonymous]

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.

[Anonymous]

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.

[ronjonp]

---

@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]

---

@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!

[Anonymous]

---

@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 !!

[ronjonp]

---

@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.

[Anonymous]

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

[Anonymous]

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.

[ronjonp]

---

@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*

[Anonymous]

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

[Sea-Haven]

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))