[求助]：编程后的问题

c3a139

正在学习LISP，编了一个小程序，在2006里能正常运行，而在2002里确无法运行，不知是什么原因？我觉得程序还能优化，是不是？
;;;画楼梯
(defun c:7test2a ()
  (setvar "cmdecho" 0)
  (setq pt (getpoint "请输入楼梯基准点"))
  (setq SH (getdist "\n请输入楼梯高:"))
  (setq SW (getdist "\n请输入楼梯宽:"))
  (setq N (getint "\n请输入楼梯阶数:"))
  (initget 1 "L R")
  (setq DI (getkword "\n请输入楼梯方向(L 或 R):"))
  (setq ww (/ SW N))
  (setq hh (/ SH N))
  (setq pp pt)
  (if (eq DI "L")
    (progn
      (setq PW (polar pp 0 SW))
      (setq PH (polar PW (/ pi 2) SH))
      (command "pline" pp PW PH "")
      (repeat N
        (setq ph (polar pp (/ pi 2) hh))
        (setq pw (polar ph 0 ww))
        (command "line" pp ph pw "")
        (setq pp pw)
        (prin1)
      )
    )
    (progn
      (setq PW (polar pp pi SW))
      (setq PH (polar PW (/ pi 2) SH))
      (command "pline" pp PW PH "")
      (repeat N
        (setq ph (polar pp (/ pi 2) hh))
        (setq pw (polar ph pi ww))
        (command "line" pp ph pw "")
        (setq pp pw)
        (prin1)
      )
    )
   )
)
(prompt "<<7test2a>>画楼梯")
(prin1)

xyp1964

2. [FONT=courier new];;;画楼梯
   
3. (defun c:test ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq        pt (getpoint "请输入楼梯基准点: ")
   
6.         SH (getdist "\n请输入楼梯高: ")
   
7.         SW (getdist "\n请输入楼梯宽: ")
   
8.         N  (getint "\n请输入楼梯阶数: ")
   
9.   )
   
10.   (initget 1 "L R")
    
11.   (setq        DI (getkword "\n请输入楼梯方向(L 或 R):")
    
12.         ww (/ SW N)
    
13.         hh (/ SH N)
    
14.         PW (polar pt 0 SW)
    
15.         PH (polar PW (/ pi 2) SH)
    
16.   )
    
17.   (setvar"plinewid"40)
    
18.   (command "pline" pt PW PH "")
    
19.   (command "pline" pt)
    
20.   (repeat N
    
21.     (setq ph (polar pt (/ pi 2) hh))
    
22.     (cond ((= di "L") (setq pw (polar ph 0 ww)))
    
23.           ((= di "R") (setq pw (polar ph pi ww)))
    
24.     )
    
25.     (setq pt pw)
    
26.     (command ph)
    
27.     (command pw)
    
28.   )
    
29.   (command "")
    
30.   (princ)
    
31. )[/FONT]

[FONT=courier new];;;画楼梯<br /> (defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (setq        pt (getpoint "请输入楼梯基准点: ")<br />         SH (getdist "\n请输入楼梯高: ")<br />         SW (getdist "\n请输入楼梯宽: ")<br />         N  (getint "\n请输入楼梯阶数: ")<br />   )<br />   (initget 1 "L R")<br />   (setq        DI (getkword "\n请输入楼梯方向(L 或 R):")<br />         ww (/ SW N)<br />         hh (/ SH N)<br />         PW (polar pt 0 SW)<br />         PH (polar PW (/ pi 2) SH)<br />   )<br />   (setvar"plinewid"40)<br />   (command "pline" pt PW PH "")<br />   (command "pline" pt)<br />   (repeat N<br />     (setq ph (polar pt (/ pi 2) hh))<br />     (cond ((= di "L") (setq pw (polar ph 0 ww)))<br />           ((= di "R") (setq pw (polar ph pi ww)))<br />     )<br />     (setq pt pw)<br />     (command ph)<br />     (command pw)<br />   )<br />   (command "")<br />   (princ)<br /> )[/FONT]

c3a139

请问(setvar"plinewid"40)的作用是什么？用2002运行优化程序结果如图1

hhc_1

楼主的程序在2002里不能运行是因为捕捉功能没关闭,与版本无关:
(setvar "osmode" 0)
(setvar"plinewid"40)是将多段线的宽度设为40

c3a139

提示列表有缺陷，我用工具-----加载编辑器中的文字加载了一次，就可以画了，不知为什么？