Help me... mi code is... but open dialog box and not insert value



(setvar "OSMODE" 0)
(command "_LAYER" "M" "valvulas" "COLOR" "white" "valvulas" ""
"_DONUT" "0.00" diext ptv ""
"_LAYER" "M" Di1 "COLOR" "BLUE" "" ""
"_PLINE" pt1 "W" (* 0.5 g:escala) "" Pt2 ""
"_LAYER" "M" Di2 "COLOR" "RED" "" ""
"_PLINE" Pt2 "W" (* 0.4 g:escala) "" Pt3 ""
"_LAYER" "M" Di3 "COLOR" "GREEN" "" ""
"_PLINE" Pt3 "W" (* 0.3 g:escala) "" Pt4 ""
"_LAYER" "M" "memoria" "COLOR" "WHITE" "memoria" ""
"_.-Insert" "datval" ptt g:escala "" 0
(strcat (rtos (/ area 10000) 2 4))
(strcat (rtos (* gas 1000) 2 2))
(strcat (rtos per 2 2) " mca") ""
"_LAYER" "M" "reducciones" "COLOR" "blue" "reducciones" ""
"_PLINE" pt2 "W" wid 0 p1 ""
"_PLINE" pt3 "W" wid 0 p2 ""
"_LAYER" "M" "diametros" "COLOR" "7" "diametros" ""
"_TEXT" "M" pi1 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx1
"_TEXT" "M" pi2 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx2
"_TEXT" "M" pi3 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx3
)
(setvar "BLIPMODE" oldblp)
(setvar "CMDECHO" oldcmd)
(setvar "OSMODE" oldosm)
(setvar "CLAYER" clay)
(setq *ERROR* olderr)
(princ)
)

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)