Over two drawings...
@zph wrote:
....
Drawing 1 has data within that I am pulling from and exporting to a .txt file.
Drawing 2 has entities within that will be modified once the data in the .txt file is imported into Drawing 2.
However, the .lsp routine aborts once I open/activate Drawing 2.
Is this possible to accomplish with one .lsp routine? ....
No, an AutoLisp routine cannot "survive" going from one drawing to another, that is, cannot start in one drawing and continue in another. Separate AutoLisp routines for the exporting to and the importing from the .txt file would be one way to do it, in addition to the possible Script approach [others would have to help you there -- I haven't dealt with Scripts operating over multiple drawings, and there may be limits to what you can do that way].
Hi zph,
what kind of data are you pulling from 'Drawing 1' and exporting to a .txt file?
Probably, with 'Drawing 2' as current, and 'Drawing 1' closed, using ObjectDBX it might be possible to 'open' 'Drawing 1' and export the data to a .txt file (or a list) and use the data in the txt to modify the current dwg 'Drawing 2'...
Hope this helps,
Henrique
or by using vl-propagate transfer the data by creating a list, to other documents and have to run the lisp on Drawing 2.
| 
| 
zph wrote:
I'll check out vl-propagate.
If you are trying with vl-propagate, here is one simple example.
;In Drawing 1 define the list (setq lst '(1 2 3 4)) ;propagate the list to other drawings (vl-propagate 'lst) ;And in Drawing2 (car lst);this should return 1
@zph wrote:
The only data contained in the .txt file (from Drawing 1 are integers) are strings...one string per line.
I have set up a .bat to copy an existing drawing (call it Drawing 3) to a second location, rename it (this is now Drawing 2), and then open Drawing 2. This is also when my .lsp file 'dies'.
I broke the .lsp file into two separate .lsp files (part 1 and 2) and began researching .scr files in the hopes that a script could run over both drawings. I am trying code lisp part1 to run on Drawing 1, then run the .bat file, and finish by running lisp part2 on Drawing 2. In the end both Drawing 1 and 2 are open which is what I want, because then I am going to take data from Drawing 2 and place it in Drawing 1.
Does this help?
With both dwg open, the ObjectDBX route, will error...
With both dwg open, using a .scr file, will error...
Could you please share with us 'part 1' routine?
Henrique
Hi zph,
sorry but I have a deadline to meet today, so I don't have much free time, but just as a starting point...
Run the following demo in Drawing2 (active dwg), to get the text values in Drawing1 (opened and not active)
(defun c:demo (/ allValues docs dwg FindMaxNo txtValue)
(setq docs (vla-get-documents (vlax-get-acad-object)))
(if (and (>= (vla-get-count docs) 2)
(progn (vlax-for doc docs
(if (= (vla-get-name doc) "Drawing1.dwg");change to the correct name
(setq dwg doc)
)
)
dwg
)
(= (vla-get-active dwg) :vlax-false)
(setq FindMaxNo 1)
)
(progn
(vlax-for layt (vla-get-layouts dwg)
(vlax-for blk (vla-get-block layt)
(if (and (= (vla-get-objectname blk) "AcDbText")
(= (vla-get-layer blk) "ONE")
)
(progn
(setq txtValue (vla-get-textstring blk))
(if (>= (atoi txtValue) FindMaxNo)
(setq FindMaxNo (atoi txtValue))
)
(setq allValues (append allValues (list txtValue)))
)
)
)
)
allValues
)
)
)
Hope this helps,
Henrique
