[LISP程序]：大家帮看看哪错了...

ZHJ0034

这是我用来给平面图加图框和图签的,但是在2004上参数类型错误..
大侠看看哪有错..

(DEFUN C:APM ( / PA1 PA2 PA3 PA4 XLL XRR
PT4 PT3 PT2 PT1 PTL PTR XX YY MO)
(setq g (open "99size.dat" "r"))
(setq xx(read(read-line g)))
(setq yy(read(read-line g)))
(close g)
(SETQ YY (- (* YY -1.0) 5.0))
(SETQ XX (+ XX 10.0))
(SETQ MO (GETSTRING "\n          R ? D ? "))
(command "color" 2 \r)
(COMMAND "ZOOM" "E")
(setq ptl (getvar "extmin"))
(setq ptr (getvar "extmax"))
(IF (OR (= MO "R") (= MO "r"))
    (PROGN
      (setq pt1 (mapcar '+ (LIST -10.0 -10.0) ptl))
      (setq pt3 (mapcar '+ (list XX 10.0) ptr))
    )
)

(IF (OR (= MO "d") (= MO "D"))
    (PROGN
     (setq pt1 (mapcar '+ (LIST -10.0 YY) ptl))
     (setq pt3 (mapcar '+ (list 10.0 10.0) ptr))
    )
)

(setq x1 (car pt1) y1 (cadr pt1))
(setq x3 (car pt3) y3 (cadr pt3))
(SETQ DX (- X3 X1) DY (- Y3 Y1))

(setq pt2 (list x3 y1) pt4 (list x1 y3))
(setq xc (+ x1 (* (- x3 x1) 0.5)))
(command "PLINE" pt1 pt2 pt3 pt4 "c" \r)
(command "insert" "*pmtq" pt2 1 0 \r)

(setq ptC (LIST XC (+ Y3 1.0)))

(SETQ U2 (RTOS DY 2 0) U1 (RTOS DX 2 0))
(setq uu (strcat u1 " X " u2))

(COMMAND "TEXT" "C" PTC 20 0 uu \r)
(COMMAND "ZOOM" "E")
(command "color" 5 \r)
)

似水无痕

99size.dat是什么文件！

ZHJ0034

99size.dat用记事本打开如下
145
50
168
10

似水无痕

改成99size.txt并加上路径试试！