vlr-dwg-reactor or vlr-docmana

lfe011969 · 发表于 2022-7-6 10:41:02

Ok so nothing I do works

I added this to my acaddoc.lsp:

(if (and c:load_dwg_props (= *TEST* "YES")) (c:load_dwg_props))

I also added these two lines to the new_project.lsp right before the command is invoked to open the selected template:

copy

(setq *TEST* "YES")(vl-propagate '*TEST)

Finally at the end of the load_dwg_props.lsp, I reset the *TEST* variable to nil:

copy

(setq *TEST* nil)(vl-propagate '*TEST)

So after the new template is loaded, the load_dwg_props.lsp doesn't execute. However when I type:

copy

Command: load_dwg_props

at the command line, the routine runs. I tested for the value of my test variable both before and after running the load_dwg_props.lsp and the values are as they should be: "YES" before running the lisp and "nil" after.

Now my head hurts

Lee Mac · 发表于 2022-7-6 10:43:37

I wouldn't use the Global, as the namespace is wiped when the drawing is closed and the global won't appear in the new drawing namespace (I know you have used vl-propagate, but this won't work as the drawing is opened when it is executed).

Perhaps using setenv/getenv to store the value in the registry under:

copy

(strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\FixedProfile\\General")

I would rely on the Globals keeping their value between drawings with so many codes running at different times.

lfe011969 · 发表于 2022-7-6 10:45:45

Thanks Lee. I will try out your suggestion later tonight and let you know tomorrow.

lfe011969 · 发表于 2022-7-6 10:49:26

Thanks Lee, your suggestion to use a registry key as the test works the way I want. I added this to my acaddoc.lsp:

copy

(setq reg_key (strcat "HKEY_CURRENT_USER\" (vlax-product-key) \\Fixed Profile\\General"))(setq read_reg_key (vl-registry-read reg_key "TEST"))(if (= read_reg_key "YES")   (c:load_dwg_props))

Then in my new_project.lsp, right before the command to open the template, I added:

copy

(vl-registry-write reg_key "TEST" "YES")

Finally, in the load_dwg_props.lsp I added this line to the top of the code:

copy

(vl-registry-write reg_key "TEST" "NO")

I've tested this over and over and it works now but I'm sure there will be some situation or configuration where this code might not work. Is there anything you would suggest to improve this code?

Thanks again.

Lee Mac · 发表于 2022-7-6 10:53:53

Glad it works Lonnie!

There may have been some confusion over my earlier post, you could replace:

copy

(setq reg_key (strcat "HKEY_CURRENT_USER\" (vlax-product-key) \\Fixed Profile\\General"))(setq read_reg_key (vl-registry-read reg_key "TEST"))

With just:

copy

(getenv "TEST")

Similarly:

copy

(vl-registry-write reg_key "TEST" "YES")

With:

copy

(setenv "TEST" "YES")

In my earlier post, I was noting that these functions (getenv/setenv) will read/write the key to this location:

copy

(strcat "HKEY_CURRENT_USER\" (vlax-product-key) \\Fixed Profile\\General")

Apologies for the confusion - of course, both solutions would function identically.

I would suggest that you use a little more unique registry key (instead of "TEST"), such as "IFE_Test" or something that would be less likely to already appear in the registry - since, there is the slight chance that existing entries could be overwritten.

Other than that, good job!

Lee

lfe011969 · 发表于 2022-7-6 10:58:33

Ahhh...."I see," said the code-blind man....

I had read about reading and writing to the registry through vlisp but I don't remember seeing anything about getenv / setenv. So thanks for the tip. I've found the hardest thing for me is not knowing what all the available options are to code any one thing so I find myself stuck in one or two mindsets on trying to accomplish what I'm thinking. I'm glad we have forums to educate me such as this one, The Swamp, the Autodesk forums and the AUGI....oops.....LOL

Lee Mac · 发表于 2022-7-6 11:00:12

Now you have a few more tools in your toolbox

[编程交流] vlr-dwg-reactor or vlr-docmana

发表回复

精选推荐