(dcl_project_saveas

[Kerry]

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

[Kerry]

This seems to work ..

(kdub:SaveTheProjectFile)

Code Select Expand


(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

[owenwengerd]

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.

[Kerry]

Owen , Do you want this reported as a bug ?

[owenwengerd]

Yes, along with a small sample.

[Kerry]

Done ..

[Kerry]

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