Beste helpers,
Ik ben al een tijdje opzoek naar een antwoord op mijn vraag maar ik kom er zelf niet uit.
Ik wil graag een dialog in autocad dat vraagt of ik de tekening wil aanpassen of dat ik alleen wil bekijken.
De reden hiervan is dat mijn collega's en ik vaak vergeten een tekening op te slaan als nieuwe versie.
Ik ben al zover dat de tekening opent met de dialog met ok/cancel maar nu weet kom ik er niet uit hoe ik de command: SaveAs aan de knop OK koppel.
De versie.lsp:
Hopelijk kan iemand mij hierbij helpen?
Alvast hartelijk dank!
Ik ben al een tijdje opzoek naar een antwoord op mijn vraag maar ik kom er zelf niet uit.
Ik wil graag een dialog in autocad dat vraagt of ik de tekening wil aanpassen of dat ik alleen wil bekijken.
De reden hiervan is dat mijn collega's en ik vaak vergeten een tekening op te slaan als nieuwe versie.
Ik ben al zover dat de tekening opent met de dialog met ok/cancel maar nu weet kom ik er niet uit hoe ik de command: SaveAs aan de knop OK koppel.
De versie.lsp:
Code:
(defun C:versie () ;define function
(setq dcl_id (load_dialog "versie.dcl")) ;load dialog
(if (not (new_dialog "versie2" dcl_id) ;test for dialog
);not
(exit) ;exit if no dialog
);if
(setq w (dimx_tile "im") ;*get image tile width
h (dimy_tile "im") ;*get image tile height
);setq
(start_image "im") ;*start the image
(fill_image 0 0 w h 5) ;*fill it with blue
(end_image) ;*end image
(action_tile
"cancel" ;if cancel button pressed
"(done_dialog) (setq userclick nil)" ;close dialog, set flag
);action_tile
(action_tile
"accept" ;if O.K. pressed
" (done_dialog)(setq userclick T))" ;close dialog, set flag
);action tile
(start_dialog) ;start dialog
(unload_dialog dcl_id) ;unload
(princ)
);defun C:versie
(princ)
Hopelijk kan iemand mij hierbij helpen?
Alvast hartelijk dank!