How to get the number of opening drawing and its name in Lisp ?

[nfyu]

Hi,

I want to ask here:

1. How can I create a new drawing with a name instead of the default name, "drawing1", "drawing2", ...
2. Where I can get the total number of the drawings openned actually and how to get their name by lisp rouine ?

Thanks

Felix

[rkmcswain]

1. Save the drawing with the desired name right after you create it.

2.

(vl-load-com)
(setq *doc* (vla-get-Documents (vlax-get-acad-object)))
;;; next line returns document count
(vla-get-Count *doc*)
;;; next line echoes each document name to the command line
(vlax-for d *doc* (princ (strcat "\n" (vla-get-Name d))))

[nfyu]

Thanks.

It works very well.

Thanks again !

[BeKirra]

1. Save the drawing with the desired name right after you create it.

2.

(vl-load-com)
(setq *doc* (vla-get-Documents (vlax-get-acad-object)))
;;; next line returns document count
(vla-get-Count *doc*)
;;; next line echoes each document name to the command line
(vlax-for d *doc* (princ (strcat "\n" (vla-get-Name d))))

Sorry, I might change the subject - from the dwg name inquiry to dwg identification.

Could LISP also be able to identify the person who created/modified the drawing?
If so, how?

Thanks.

[irneb]

From the document object, you obtain the SummaryInfo object, which has a LastSavedBy property. E.g.

(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) ;Get the current drawing
(setq si (vla-get-SummaryInfo doc)) ;Get the summary info object
(princ "Last saved by: ")
(princ (vla-get-LastSavedBy si)) ;Prints login name of user last saved

I don't know how you'll get the creator, unless he's saved his name manually (File --> Drawing Properties), or through a custom lisp, to something like the Author property of the SummaryInfo object.

[BeKirra]

From the document object, you obtain the SummaryInfo object, which has a LastSavedBy property. E.g.

(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) ;Get the current drawing
(setq si (vla-get-SummaryInfo doc)) ;Get the summary info object
(princ "Last saved by: ")
(princ (vla-get-LastSavedBy si)) ;Prints login name of user last saved

I don't know how you'll get the creator, unless he's saved his name manually (File --> Drawing Properties), or through a custom lisp, to something like the Author property of the SummaryInfo object.

Thanks.

Instead of the owner's name, can I find the PC's ID, or the autocad license' code ,which the drawing was created/saved on?
If it is possible, how to do with a LISP?

Thanks again.

[rkmcswain]

Thanks.

Instead of the owner's name, can I find the PC's ID, or the autocad license' code ,which the drawing was created/saved on?
If it is possible, how to do with a LISP?

Thanks again.

You can probably find the PC ID and/or the AutoCAD S/N, but only the current version - not the version that last saved the drawing - since this information is not stored in the DWG file.

[BeKirra]

You can probably find the PC ID and/or the AutoCAD S/N, but only the current version - not the version that last saved the drawing - since this information is not stored in the DWG file.

How to find the PC ID, and auotcad S/N with a routine?

Thanks.

[rkmcswain]

;;; Hostname
(getenv "COMPUTERNAME")

;;; AutoCAD S/N
(getvar "_PKSER")

[Opie]

Depending on your security permissions, you might be able to find out the owner of the file using the file system object. Of course, this is dependent on your IT not changing file permissions recently as well.