Colorare i campi di input in DCL

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
vorrei colorare i campi di input della maschera scritta in DCl ma non ottengo alcun risultato.
Questo è il codice che ho scritto :
Codice:
PF : dialog {

      label = "Immissione dati Punto Fiduciale";

      : edit_box {
        label = "Nome del Punto Fiduciale";
        key = "PF";
        edit_width = 11;
        color = 1;
        allow_accept = true;
      }

      : edit_box {
        label = "Coordinata X";
        key = "CX";
        edit_width = 11;
        allow_accept = true;
      }
      : edit_box {
        label = "Coordinata Y";
        key = "CY";
        edit_width = 11;
        allow_accept = true;
      }

     ok_cancel ;
     :text_part {
         label = "Designed and Created";
      }
     :text_part {
         label = "by Angelo";
      }
     }
L'istruzione "color = 1;" nella prima dichiarazione non funziona, allego anche il relativo file .lsp

Codice:
(defun C:PF (/ NomePF CooX CooY PuntoIns PuntoIns1 Raggio)

  (setq dcl_id (load_dialog "PF.dcl"))
  (if (not (new_dialog "PF" dcl_id))
    (exit)
  );if

  (set_tile "PF" "PF")
  (set_tile "CX" "")
  (set_tile "CY" "")

  (mode_tile "PF" 2)
  (action_tile
    "cancel"
    "(done_dialog) (setq userclick nil)"
  )

  (action_tile
    "accept"
    (strcat
      "(progn (setq NomePF (get_tile \"PF\"))"
      "(setq CooX (get_tile \"CX\"))"
      "(setq CooY (get_tile \"CY\"))"
      " (done_dialog)(setq userclick T))"
    )

  )
  (start_dialog)
  (unload_dialog dcl_id)

  (if userclick
      (progn
          (setq SPF (strcat NomePF " - " CooX "," CooY)) 
          (setq PuntoIns (getpoint "\nPunto di inserimento >> "))
          (setq PuntoIns1 (list (car PuntoIns) (- (cadr PuntoIns) 1.00)))

          (command "_circle" PuntoIns1 10 "")
          (command "_change" "_last" "" "_p" "_c" "_red" "")
          (command "_circle" PuntoIns1 0.50 "")
          (command "_text" PuntoIns 0.30 0.00 SPF "")
      )
  )
Grazie.