autolisp绘制金刚石图案

zcmzz0511

第一次运行时，绘制出的图形是正确的，再次运行时图形就不完整了，不知怎么回事？下面是源代码
(defun c:stone ()
  (setq a 500   b 500   r 100)
  (setq n 25   angl (/ (* pi 2) n))
  (setq i 0)   
  (while (< i n)
    (setq j (1+ i))
    (while (< j n)
      (command "pline" (list (+ a (* r (sin (* i angl)))) (- b (* r (cos (* i angl)))))
               (list (+ a (* r (sin (* j angl)))) (- b (* r (cos (* j angl)))))
               "c")
      (setq j (1+ j))
    )
    (setq i (1+ i))
   )
)

zyhandw

运行结果挺壮观的！

仲文玉

把变量置为局部变量，生成图元建议用entmake，速度会快n倍

1. (defun c:tt (/ a b r n angl i j)
   
2.   (setq pt (getpoint "\n请指定绘图中点："))
   
3.   (if pt
   
4.     (progn
   
5.       (setq r (getreal "\n请输入图形半径<100>："))
   
6.       (if (null r)(setq r 100.))
   
7.       (setq a (car pt) b (cadr pt))
   
8.       (setq n 25 angl (/ (* pi 2) n))
   
9.       (setq i 0)
   
10.       (while (< i n)
    
11.   (setq j (1+ i))
    
12.   (while (< j n)
    
13.     (entmake (list '(0 . "LINE")
    
14.        '(100 . "AcDbEntity")
    
15.        '(100 . "AcDbLine")
    
16.        (cons 10
    
17.              (list (+ a (* r (sin (* i angl))))
    
18.              (- b (* r (cos (* i angl))))
    
19.              )
    
20.        )
    
21.        (cons 11
    
22.              (list (+ a (* r (sin (* j angl))))
    
23.              (- b (* r (cos (* j angl))))
    
24.              )
    
25.        )
    
26.        '(210 0. 0. 1.)
    
27.        )
    
28.     )
    
29.     (setq j (1+ j))
    
30.   )
    
31.   (setq i (1+ i))
    
32.       )
    
33.     )
    
34.   )
    
35. )

(defun c:tt (/ a b r n angl i j)<br />   (setq pt (getpoint "\n请指定绘图中点："))<br />   (if pt<br />     (progn<br />       (setq r (getreal "\n请输入图形半径<100>："))<br />       (if (null r)(setq r 100.))<br />       (setq a (car pt) b (cadr pt))<br />       (setq n 25 angl (/ (* pi 2) n))<br />       (setq i 0)<br />       (while (< i n)<br />   (setq j (1+ i))<br />   (while (< j n)<br />     (entmake (list '(0 . "LINE")<br />        '(100 . "AcDbEntity")<br />        '(100 . "AcDbLine")<br />        (cons 10<br />              (list (+ a (* r (sin (* i angl))))<br />              (- b (* r (cos (* i angl))))<br />              )<br />        )<br />        (cons 11<br />              (list (+ a (* r (sin (* j angl))))<br />              (- b (* r (cos (* j angl))))<br />              )<br />        )<br />        '(210 0. 0. 1.)<br />        )<br />     )<br />     (setq j (1+ j))<br />   )<br />   (setq i (1+ i))<br />       )<br />     )<br />   )<br /> )

zcmzz0511

仲文玉 发表于 2012-12-29 11:05
把变量置为局部变量，生成图元建议用entmake，速度会快n倍

用entmake速度就是快，不知我出错的原因是否就没把变量设为局部变量的原因？

zyhandw

是的，楼上正解。
正如楼上所说，用entmake好得多，我比较了下快近20倍！