[LISP程序]：请教一个问题，急等回复！！！

xiaoyue663

我用lisp读取点坐标时，位数一多程序就用科学计数法计数，把我想要的精确位数都搞没了，请问有没有一个不用移动图纸就能解决的办法啊！！！原代吗如下
(defun c:dzb ()
  (setq nu (getstring "\n输入点号前缀:"))
  (setq n (getint "\n输入起点号序数:"))
  (setq f (open "f:\\Rush\\dzb.txt" "a"))
  (while
    (setq p0 (getpoint "\n指定点:"))
    (setq x0  (car p0))
    (setq y0 (nth 1 p0))
    (princ nu f)
    (princ n f)
    (princ "," f)
    (princ y0 f)
    (princ "," f)
    (princ x0 f)
    (princ "\n" f)
    (setq n(+ n 1))
  )
  (close f)
)

21cn

(rtos (car pt) 2 4))

Underway

RtoS Function

Converts a number into a string

(rtos number [mode [precision]])

The rtos function returns a string that is the representation of number according to the settings of mode, precision, and the system variables UNITMODE, DIMZIN, LUNITS, and LUPREC.

Arguments

number

A number.

mode

An integer specifying the linear units mode. The mode corresponds to the values allowed for the LUNITS AutoCAD system variable. The mode can be one of the following numbers:

1  Scientific

2  Decimal

3  Engineering (feet and decimal inches)

4  Architectural (feet and fractional inches)

5  Fractional

precision

An integer specifying the precision.

The mode and precision arguments correspond to the system variables LUNITS and LUPREC. If you omit the arguments, rtos uses the current settings of LUNITS and LUPREC.

Return Values

A string. The UNITMODE system variable affects the returned string when engineering, architectural, or fractional units are selected (mode values 3, 4, or 5).

Examples

Set variable x:

Command: (setq x 17.5)

17.5

Convert the value of x to a string in scientific format, with a precision of 4:

Command: (setq fmtval (rtos x 1 4))

"1.7500E+01"

Convert the value of x to a string in decimal format, with 2 decimal places:

Command: (setq fmtval (rtos x 2 2))

"17.50"

xiaoyue663

谢谢各位！！！果然有效果！！！