topic Re: START LISP SCRIPT ON QNEW in Visual LISP, AutoLISP and General Customization Forum

START LISP SCRIPT ON QNEW

AIR_123 — Thu, 02 Mar 2023 09:40:07 GMT

Hi Guys,

I have this little lisp to set author to dwgprops. How can I automate it such that when I start new drawing this lisp runs. I've tried to add it to ACADDOC, but there is no effect. Does there need to be some kind of timer to send data to DWGPROPS after drawing started and everything is loaded? Thx

(defun c:setauthorprop () (vl-load-com) (setq acadObject (vlax-get-acad-object)) (setq acadDocument (vla-get-ActiveDocument acadObject)) ;;Get the SummaryInfo (setq dProps (vlax-get-Property acadDocument 'SummaryInfo)) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq propvalue (vla-get-summaryinfo doc "Author")) (setq name (strcat propvalue ", " (getenv "USERNAME"))) (vla-put-summaryinfo doc "Author" name) (princ) )

Re: START LISP SCRIPT ON QNEW

TomBeauford — Thu, 02 Mar 2023 12:34:12 GMT

You've defined the function in Acaddoc.lsp but the function isn't executed.

Instead of defining a function simply execute the code you need by adding

(vl-load-com)(vla-put-Author(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object)))(getenv "USERNAME"))

to the start of Acaddoc.lsp instead.

Re: START LISP SCRIPT ON QNEW

Moshe-A — Thu, 02 Mar 2023 13:45:57 GMT

@AIR_123 ת

the lisp maybe load but the function is not execute cause it must be called 😀

add this line to bottom of your lisp file

(c:SetupAuthorProp)

Moshe

Re: START LISP SCRIPT ON QNEW

TomBeauford — Thu, 02 Mar 2023 14:14:41 GMT

Consider a different approach. Our title blocks display the username of the last person who saved the drawing with the Field expression %<\AcVar LastSavedBy>%. More useful than the name of the person who just plotted the drawing.

We add %<\AcVar SaveDate \f "M/d/yyyy">% to the title blocks to show when they were last modified as well.

Re: START LISP SCRIPT ON QNEW

AIR_123 — Thu, 02 Mar 2023 17:12:14 GMT

I knew it should be something simple 😉 Thx

Re: START LISP SCRIPT ON QNEW

AIR_123 — Thu, 02 Mar 2023 17:13:36 GMT

Thanks. Yes we have that. But I also need to know the author at initiation of the drawing and it should stay always the same.

Re: START LISP SCRIPT ON QNEW

TomBeauford — Thu, 02 Mar 2023 17:53:21 GMT

Only set the current user if author is blank in properties so once it's set it should stay always the same with:

(if(=(vla-get-Author(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object))))"")(vla-put-Author(vla-get-summaryInfo(vla-get-activeDocument(vlax-get-acad-object)))(getenv "USERNAME")))

Re: START LISP SCRIPT ON QNEW

TomBeauford — Fri, 03 Mar 2023 12:43:15 GMT

Your code would overwrite "Author" anytime it's run which isn't what you want to autorun.

The code in my last post would only set the current user if author is blank so it would stay always the same which is what you asked for wasn't it?

Add it to acaddoc.lsp and you're done.

It would still add current "USERNAME" when editing template files which would leave that "USERNAME" in all drawings created with those templates.

I could modify it to check the file extension so it would only add "Author" to DWG files not DWT template files if that's what you want.