如何更改句中的常数值??????

叶文军

(defun c:zdt8( / pts pt pti ptn ptc ang params)
(init)
(setq h 3.5)
(setq Scale (getstring "\n请输入比例尺<1:200>:"))
(if (= Scale "")
(progn
(setq Scale "1:200")
(setq nScale 1)
)
(progn
(setq nScale (/ (atof scale) 200))
(setq scale (strcat "1:" scale))
)
)
(setq ent (car (entsel "\n请选择图形...")))
(setq pts (getpl ent))
(if (cadr (setq pt (Order (reverse pts))))
(setq pts (reverse pts))
)
(setq pt (car pt))
(command "_.pedit" ent "w" 0.7 "")
(setcolor ent 1)
(OpPts pts pt h nscale)
(getEnter ent h nscale scale "8kh" (* nscale 154) (* nscale 92))
(princ "\n\nEnd!")
(restore)
(princ)
) 句中红色部分是一个常数，确定H的值为3.5，我现在想要把H值改成一个变量，使得H值随(setq Scale (getstring "\n请输入比例尺<1:200>:"))句中输入的值而改变，如用户输入一个400的时候，H=400/200*3.5，请问该怎么去改？谢谢！

王咣生

part code: (initget 6 "200 400 800")
(setq Scale (getkword "\n请输入比例尺[200/400/800]<200>:"))
(if (not Scale)
(progn
(setq Scale "200")
)
)
(setq h (* (/ (atoi Scale) 200) 3.5))

雷

(setq h (* 3.5 (/ (atof scale) 200) )) 放在的(setq Scale (getstring "\n请输入比例尺<1:200>:"))下一行