[LISP程序]：一个非常弱的lisp问题

darkblue

(defun c:star (/ p0 p1)
    (setq p0  (getpoint "\n插入点：")
          x   (car p0)
          y   (cadr p0)
          p0  (list x y)
          len (getdist p0 "\n外接圆半径：")
    )

    (setq p1 (list (+ x (* len (cos (/ pi 10))))
                   (+ y (* len (sin (/ pi 10))))
             )
          p2 (list x (+ y len))
          p3 (list (+ x (* len (cos (* (/ pi 10) 9))))
                   (+ y (* len (sin (* (/ pi 10) 9))))
             )
          p4 (list (+ x (* len (cos (* (/ pi 10) 13))))
                   (+ y (* len (sin (* (/ pi 10) 13))))
             )
          p5 (list (+ x (* len (cos (* (/ pi 10) 17))))
                   (+ y (* len (sin (* (/ pi 10) 17))))
             )
    )
    (command "line" p0 p1 "")
    (command "line" p0 p2 "")
    (command "line" p0 p3 "")
    (command "line" p0 p4 "")
    (command "line" p0 p5 "")
    (command "pline" p1 p3 p5 p2 p4 "C")
    (command "circle" p0 len)
    (princ)
)
这段程序是用来画一个五角星，但有一个问题：如果我把画圆放到画直线的前面，就不能画出直线了，这是为什么？请指点一二，谢谢！

lijiao

最初由 darkblue 发布
[B](defun c:star (/ p0 p1)
    (setq p0  (getpoint "\n插入点：")
          x   (car p0)
          y   (cadr p0)
          p0  (list x y)
          len (getdist p0 "\n外接圆半径：")
    )

    (setq p1 (list (+ x (* len (cos... [/B]

修改了部分语句：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:star (/ p0 p1)
   
5.   (if (and (setq p0 (getpoint "\n插入点："))
   
6.            (setq len (getdist p0 "\n外接圆半径："))
   
7.       )
   
8.     (progn
   
9.       (defun dtor (ang /) (/ (* ang pi) 180.0))
   
10.       (setq p1 (polar p0 (dtor 90) len)
    
11.             p2 (polar p0 (dtor 162) len)
    
12.             p3 (polar p0 (dtor 234) len)
    
13.             p4 (polar p0 (dtor 306) len)
    
14.             p5 (polar p0 (dtor 18) len)
    
15.       )
    
16.       (setq cmdos (getvar "osmode"))
    
17.       (setvar "osmode" 0)
    
18.       (command "circle" p0 len)
    
19.       (command "pline" p0 p1 p3 p0 p2 p4 p0 p3 p5 p0 p4 p1 p0 p5 p2 "C")
    
20.       (setvar "osmode" cmdos)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:star (/ p0 p1)<br />   (if (and (setq p0 (getpoint "\n插入点："))<br />            (setq len (getdist p0 "\n外接圆半径："))<br />       )<br />     (progn<br />       (defun dtor (ang /) (/ (* ang pi) 180.0))<br />       (setq p1 (polar p0 (dtor 90) len)<br />             p2 (polar p0 (dtor 162) len)<br />             p3 (polar p0 (dtor 234) len)<br />             p4 (polar p0 (dtor 306) len)<br />             p5 (polar p0 (dtor 18) len)<br />       )<br />       (setq cmdos (getvar "osmode"))<br />       (setvar "osmode" 0)<br />       (command "circle" p0 len)<br />       (command "pline" p0 p1 p3 p0 p2 p4 p0 p3 p5 p0 p4 p1 p0 p5 p2 "C")<br />       (setvar "osmode" cmdos)<br />     )<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

darkblue

呵呵，对比起来，我的代码太原始了。不过我还是不明白，为什么在我的代码中，为什么不能把画圆放在前面，是由于osmode引起的吗？

david96007

应该是由于osmode引起的!

houxianyong

程序不够健壮，应该有判断，并且保存初始系统变量，程序结束再还原

丹佛

对，我想你得学会控制系统变量，很重要哟

fallrain

看后我也学到不少东西啊，这对初学者很有益

DDQT

最初由 houxianyong 发布
[B]程序不够健壮，应该有判断，并且保存初始系统变量，程序结束再还原 [/B]

恩说的很对

正要学习编程的风格

boboc98

虽然小东东，看看，好多小地方平时都不注意，楼上说得好，好的编程的风格 ，和编程习惯很重要。