2014-07-14 12:05 UTC
Gibt es eine Möglichkeit, die Steuerung eines Verlaufsbalken so anzupassen, dass nicht die Meldung "keine Rückmeldung" den Dialog übernimmt?
Das Einbauen von (princ "\rString ....")(princ) hat leider nicht die gewünschte Verbesserung gebracht.
Hier meine Unter-Routine zu diesem Thema:
(defun SUB:xIsDoneOf (IstWert EndWert)
(if (not (dcl_Form_IsActive 2014-07-14-1020-10_D1))
(progn (dcl_project_load (strcat (set-cbaCAD-Dialog-Path "Tools") "2014-07-14-1020-10"))
(dcl_form_show 2014-07-14-1020-10_D1)
)
)
(dcl-Control-SetMaxValue 2014-07-14-1020-10/D1/IsDone EndWert)
(dcl-Control-SetMinValue 2014-07-14-1020-10/D1/IsDone 1)
(dcl-Control-SetValue 2014-07-14-1020-10/D1/IsDone IstWert)
(princ (strcat "\rvon " (itoa EndWert) " sind " (itoa IstWert) " bereits bearbeitet."))
(princ)
(if (>= IstWert EndWert)
(progn (dcl_Form_close 2014-07-14-1020-10_D1) (dcl_project_unload "2014-07-14-1020-10"))
)
(princ)
;;; Ende SUB:xIsDoneOf
)
Das Einbauen von (princ "\rString ....")(princ) hat leider nicht die gewünschte Verbesserung gebracht.
Hier meine Unter-Routine zu diesem Thema:
(defun SUB:xIsDoneOf (IstWert EndWert)
(if (not (dcl_Form_IsActive 2014-07-14-1020-10_D1))
(progn (dcl_project_load (strcat (set-cbaCAD-Dialog-Path "Tools") "2014-07-14-1020-10"))
(dcl_form_show 2014-07-14-1020-10_D1)
)
)
(dcl-Control-SetMaxValue 2014-07-14-1020-10/D1/IsDone EndWert)
(dcl-Control-SetMinValue 2014-07-14-1020-10/D1/IsDone 1)
(dcl-Control-SetValue 2014-07-14-1020-10/D1/IsDone IstWert)
(princ (strcat "\rvon " (itoa EndWert) " sind " (itoa IstWert) " bereits bearbeitet."))
(princ)
(if (>= IstWert EndWert)
(progn (dcl_Form_close 2014-07-14-1020-10_D1) (dcl_project_unload "2014-07-14-1020-10"))
)
(princ)
;;; Ende SUB:xIsDoneOf
)