Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
File path in acad 2000 1
- Thread starter zliazmei
- Start date
Dear zliazmei,
The below VisualLISP code inserts a text object containing
the filename and filepath of the current drawing at the position 0,0 . Just follow the constructions.
1. Copy the below expressions and paste them into a text
file.
2. Save the file with the name FF.LSP .
3. Enter the AutoCAD environment and load the saved file
using the command "APPLOAD".
4. Enter FF at the command line.
(defun c:FF(/ acadObject acadDocument
documentPath documentName)
(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq documentPath (vla-get-Path acadDocument))
(setq documentName (vla-get-Name acadDocument))
(command "._TEXT" '(0 0) "" ""
(strcat documentPath "\\" documentName))
(princ)
)
Notice: If the current text style has a default height not equal to zero, the above program will interrupt and has no output.
If you want to run the program automatically every time you open a drawing, you can add the above code in file acaddoc.lsp (in the function s::startup).
In case of any doubt don't hesitate to be in touch with me using the present web page.
Farzad
The below VisualLISP code inserts a text object containing
the filename and filepath of the current drawing at the position 0,0 . Just follow the constructions.
1. Copy the below expressions and paste them into a text
file.
2. Save the file with the name FF.LSP .
3. Enter the AutoCAD environment and load the saved file
using the command "APPLOAD".
4. Enter FF at the command line.
(defun c:FF(/ acadObject acadDocument
documentPath documentName)
(vl-load-com)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq documentPath (vla-get-Path acadDocument))
(setq documentName (vla-get-Name acadDocument))
(command "._TEXT" '(0 0) "" ""
(strcat documentPath "\\" documentName))
(princ)
)
Notice: If the current text style has a default height not equal to zero, the above program will interrupt and has no output.
If you want to run the program automatically every time you open a drawing, you can add the above code in file acaddoc.lsp (in the function s::startup).
In case of any doubt don't hesitate to be in touch with me using the present web page.
Farzad
-
1
- Thread starter
- #3
In your Autocad 2000 if you have express tools loaded you should have RTEXT. RTEXT will allow you to use coding to make this happen.
At the command propmt type in RTEXT and return, type D for deisel. When the dialog box pops up type in the following code.
$(getvar, "dwgprefix"
$(getvar, "dwgname" $(edtime, 0, MONTH DD"," YYYY - HH:MMam/pm) Printed By: $(getvar, "loginname"
This should be all on one line. I place this in my border, it will update even if you do a save as.
I hope this helps.
At the command propmt type in RTEXT and return, type D for deisel. When the dialog box pops up type in the following code.
$(getvar, "dwgprefix"
$(getvar, "dwgname" $(edtime, 0, MONTH DD"," YYYY - HH:MMam/pm) Printed By: $(getvar, "loginname"This should be all on one line. I place this in my border, it will update even if you do a save as.
I hope this helps.
- Status
Similar threads
- Locked
- Question
- Locked
- Question
