(dcl_project_saveas

Does anyone have a small sample using (dcl_project_saveas ....

I'm getting an error:No object Instance
when I try to use it , so I'm obviously doing something wrong.

I'm trying to save ALL the current settings in a fairly complex project so they can be restored at the next invocation without the need for complicated writing and translation to and from a memory construct or data file

Regards
Kerry

This seems to work ..

(kdub:SaveTheProjectFile)

(defun kdub:SaveTheProjectFile (/ FNAME PROJECT)

  (if (setq fname (findfile "C:\\KDUB_TestSave.Modified.odcl"))

    (setq project (dcl_project_load fname))

    ;; else

    (setq project (dcl_project_load "C:\\KDUB_TestSave.odcl"))

  )

  (dcl_form_show kdub_pipeflanges_main)

  ;;

  ;; do mojo

  ;; then close

  ;;

  (dcl_project_saveas project "C:\\KDUB_TestSave.Modified.odcl" nil)

  (princ)

)

Though the Option List Values don't seem to be saved ?? Can anyone check this please ?

Regards
Kerry

author=Kerry Brown link=topic=390.msg1745#msg1745 date=1217560477 wrote:
Though the Option List Values don't seem to be saved ??

Hmm, they should be.  What you're doing is exactly the same thing that happens when you open the file in the editor, modify it, then save it.

Owen , Do you want this reported as a bug ?

Yes, along with a small sample.

Done ..

For anyone wanting to follow up on this ..
This issue is being resolved.
https://sourceforge.net/tracker/index.php?func=detail&aid=2037360&group_id=187950&atid=923363

Thanks Owen

Regards
Kerry