Topic: How can autorun file ?

[new_mem]

Hello

Can someone tell me: autorun this file following attach then ACAD_DGNLINESTYLECOMP, and purge via lisp.
I mean:
(defun purge_pdi (/ fna)
  (vl-load-com)
  (if (setq fna (findfile "@PurgeDictionaryItems[PDI].fas"))
    (load fna)
    );if
  (C:PDI)
  (command "ACAD_DGNLINESTYLECOMP")
  (command "-purge" "all" "*" "N" "")
  ;(command "PDI" "ACAD_DGNLINESTYLECOMP")
  )
It not graphis screen text in command line to PDI command. How can fix it !

Thank you.

[kdub_nz]

Sorry, I don't understand your questionn.
Can you ask in a different way ?

//------------

What is (C:PDI) ??

//------------

I don't think many people will load your .fas file without knowing exactly what's in it ...  I won't.

//------------

What do you mean by 'autorun' ... do you want it to load and run for each new drawing ??
Or to run each time it is loaded ??

//------------

Regards,

[new_mem]

Okey thanks for answer.

For all drawing open i mean

1. Load PDI.fas
2. Command PDI
3. Select ACAD_DGNLINESTYLECOMP
4. Purge.
5. Save
6. Close

[new_mem]

Heiz , Lee Mac

I found your code: ObjectDBXWrappe

And modify with purge.

(defun c:test2 (/ remove_dict1 doc)
  (defun remove_dict1 ()
  (if (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP")
    (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
    )
  (setq doc (vla-get-activedocument (vlax-get-acad-object))) 
  (repeat 3 (vla-purgeall doc))
  (vla-saveas doc)
  );;
  (LM:ODBX 'remove_dict1 nil t)
  (princ)
  )

But still error.
Can you fix it.?
Thanks

[ChrisCarlson]

See your other thread.

[new_mem]

Hi, i am trying learn use code browse.

I fixed my problem by write to acaddoc.lsp line "remove_dict".

So i post code: (LM:ODBX 'remove_dict1 nil t) and ask how to fix.

I think ask to faster to fix problem. Do you think so ?

[ChrisCarlson]

You're passing too many arguments somewhere. Setup breakpoints and see what line is erroring out.

Based on the description of lee's object wrapper, I don't think it should be used in this case.

Provides a shell through which a user may evaluate a supplied function on every drawing in a given list of drawing filenames or on all drawings residing within a selected directory.

[Lee Mac]

Heiz , Lee Mac

I found your code: ObjectDBXWrappe

And modify with purge.

(defun c:test2 (/ remove_dict1 doc)
  (defun remove_dict1 ()
  (if (dictsearch (namedobjdict) "ACAD_DGNLINESTYLECOMP")
    (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
    )
  (setq doc (vla-get-activedocument (vlax-get-acad-object))) 
  (repeat 3 (vla-purgeall doc))
  (vla-saveas doc)
  );;
  (LM:ODBX 'remove_dict1 nil t)
  (princ)
  )

But still error.
Can you fix it.?
Thanks

Firstly, note that the function argument (in your case this argument is 'remove_dict1') for my ObjectDBX Wrapper should accept a single argument corresponding to the ActiveX Document object for each drawing processed. However, as noted within the program description for my ObjectDBX Wrapper, the supplied function must also be 'compatible' with ObjectDBX, as such, all operations must be derived from the ActiveX Document object.

[new_mem]

Okey Lee,

1. I mean use ActiveX to learn, my problem fixed by script.
2.I changed ename to vla object
(defun remove_dict (/ dicts dict)
  (setq dicts (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'dictionaries))
  (setq dict (vlax-invoke dicts 'item "ACAD_DGNLINESTYLECOMP"))
  (vla-delete dict)
  (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
  (vla-save (vla-get-activedocument (vlax-get-acad-object)))
)

3. What is single argument corresponding to the ActiveX Document object  .?
Maybe single command in one drawing ?

[Lee Mac]

Code: [Select]

(defun remove_dict (/ dicts dict)
  (setq dicts (vlax-get (vla-get-activedocument (vlax-get-acad-object)) 'dictionaries))
  (setq dict (vlax-invoke dicts 'item "ACAD_DGNLINESTYLECOMP"))
  (vla-delete dict)
  (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
  (vla-save (vla-get-activedocument (vlax-get-acad-object)))
)
3. What is single argument corresponding to the ActiveX Document object  .?

Your code is referencing the ActiveDocument - this should be replaced with a parameter which is supplied to the function by my ObjectDBX Wrapper function for each drawing processed, for example:

Code - Auto/Visual Lisp: [Select]

1. (defun remove_dict ( doc / dic )
2.     (if (setq dic (catchapply 'vla-item (list (vla-get-dictionaries doc) "acad_dgnlinestylecomp")))
3.         (catchapply 'vla-delete (list dic))
4.     )
5.     (repeat 3 (vla-purgeall doc))
6. )
7. (defun catchapply ( fun arg / rtn )
8.     (if (not (vl-catch-all-error-p (setq rtn (vl-catch-all-apply fun arg)))) rtn)
9. )

The above is untested however.

Note that the save operation should be excluded as my ObjectDBX Wrapper function will perform this operation if the last argument is non-nil.

[new_mem]

Ahhh, i understood

single argument: ( doc / dic ) --->dic

Through your code I was learning more about. That is clear.

Thank you so much Lee. 

[Lee Mac]

single argument: ( doc / dic ) --->dic

Through your code I was learning more about. That is clear.

Thank you so much Lee. 

You're welcome -

But just to clarify, 'doc' is the argument which is assigned the ActiveX Document object when the function is evaluated by my ObjectDBX Wrapper; 'dic' is the local variable which stores the acad_dgnlinestylecomp dictionary.

[new_mem]

But just to clarify, 'doc' is the argument which is assigned the ActiveX Document object when the function is evaluated by my ObjectDBX Wrapper; 'dic' is the local variable which stores the acad_dgnlinestylecomp dictionary.

Okey Lee,

I already understand. Alway 'doc' and creat funtion assigned the ActiveX Document object (layer, layout, dim, or bla bla............)

Thanks.

[new_mem]

Lee,

i am trying example with you funtion:

(defun c:test ( / doc clyt paper StyleSheet ConfigName)
  (vl-load-com)
  (setq   doc  (vla-get-activedocument (vlax-get-acad-object)))
  (setq clyt  (vla-get-activelayout doc))
  (setq paper (vla-get-CanonicalMediaName clyt))
  (setq StyleSheet  (vla-get-StyleSheet clyt))
  (setq ConfigName  (vla-get-ConfigName clyt))
 
  (LM:ODBX 'put_configPLT nil t)
 
  (defun put_configPLT (doc / ) ;
    (vlax-for layout (vla-get-layouts doc)
      (if (/= (getvar "ctab") "Model")
   (progn
     (vla-put-CanonicalMediaName layout paper)
     (vla-put-StyleSheet layout StyleSheet)
     (vla-put-ConfigName layout ConfigName)
     );progn
   );if
      );
    );defun1

Question:
1.Why drawing 1 ok, but drawing 2 not run.
2. Where is area plot current layout in drawing opening ? or copy all setting cur layout to all drawing .