Topic: Return and run lisp

[Jeroen]

Is it possible to create a lisp:
Create a new drawing from an entity in the main-drawing. Next the new drawing is opened and edited. To finish this, the new drawing is closed and you return in the main drawing. The new drawing is inserted in the main-drawing.

My setup so far: I run a lisp, that makes a wblock of the entity. Using vl-bb-set I create a 'trigger'. Next the new drawing, created with wblock, is opened and is edited by the lisp started from acaddoc.lsp and vl-bb-ref...

Now, when I return to the main-drawing I want to automatically insert the new drawing, but is that possible? With Lisp? Or do I need to do some other programming???

Can some-one help me or point me in the right direction....? Please?!

Jeroen

[roy_043]

You can use a reactor to respond to a 'document became current' event.
Something like this:

Code - Auto/Visual Lisp: [Select]

1. (if (not *mainDwgDocmanagerReactor*)
2.   (setq *mainDwgDocmanagerReactor*
3.     (vlr-docmanager-reactor
4.       nil ; No data.
5.       '((:vlr-documentbecamecurrent . YourCallBackFunction))
6.     )
7.   )
8. )
9.  
10. (defun YourCallBackFunction (obj lst)
11.   (if (= (vl-bb-ref 'YourTrigger) 1)
12.     (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "(YourPostProcess) ")
13.   )
14.   (vl-bb-set 'YourTrigger 0)
15.   (if *mainDwgDocmanagerReactor*
16.     (progn
17.       (vlr-remove *mainDwgDocmanagerReactor*)
18.       (setq *mainDwgDocmanagerReactor* nil)
19.     )
20.   )
21. )
22.  
23. (defun YourPostProcess ()
24.   (print "PostProcess")
25.   (princ)
26. )

An alternative would be do use the ObjectDBX approach for the entire process you have described.

Note that you can also programmatically create a new block defintion in the main drawing without creating a wblock.

[Lee Mac]

Note that you can also programmatically create a new block defintion in the main drawing without creating a wblock.

^^ This.

I'm not sure what operations you are performing on the new drawing via your acaddoc.lsp, but I should imagine they could be performed directly on a new block definition in the active drawing, saving a lot of trouble.

Lee

[Jeroen]

The operations are:
create a 3DSOLID from a closed Polyline, add text, add dimensions, add attributes, create a new layout, fill in the drawing properties...