link between layout tab, file name and text string by lisp

[mostafa badran]

Hi folks

Is there any way to link between layout tab,file name and text string by lisp?

[mdbdesign]

To rename layout tab to file name:

 

(defun c:ltdn (/)
 (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
 (vlax-for l (vla-get-layouts *AcadDoc*)
   (if (eq 1 (vla-get-taborder l))
     (vl-catch-all-apply (function vla-put-name) (list l (vl-filename-base (getvar 'dwgname))))
   )
 )
)

 

Do you need to insert file name somewhere in drawing in text format?

[BIGAL]

Mostafa more info please. 3 different variables add all together and label layout ?

[asos2000]

Read this

http://www.cadtutor.net/forum/showthread.php?79387-Renaming-layout-tab-with-2-titleblock-attributes&p=549765&viewfull=1#post549765

[mostafa badran]

Hi, all

I want linked between all of them when I change file name automatically change

layout tab and text string

[asos2000]

Use field for text but for layout you should use lisp for that see the link in post #4

[mostafa badran]

mdbdesign

I am waiting for your reply

[mdbdesign]

mdbdesign

I am waiting for your reply

 

Good, wait...

 

My suggestion is:

-use rtext (Diesel) for text string, it is old but working like a horse

$(substr,$(getvar,dwgname),1,$(-,$(strlen,$(getvar,dwgname)),4))

 

For changing layout tab need to create button with lisp codes or just type lisp command call and update it manually whenever change file name.

Unless somebody will write reactor to do it.

[mdbdesign]

Mostafa, where are you?

[mostafa badran]

mdbdesign ,Thank you so much I salute you

 

[mostafa badran]

asos2000,thank u for your cooperation