h199101 发表于 2013-4-21 22:18:02

假如有很多点 怎么连接呢

代码如下(setq xx 0 yy 0)
(setq p0 (list xx yy))
(repeat 500
(setq xx (+ xx 0.2))
(setq yy (* xx 0.2))
(setq p1 (list xx yy))
(command "line" p0 p1 "")
(setq p0 p1)
)
(command "")当n=1,(x1,y1)
    n=2,(x2,y2)
   n=3,(x3,y3)
      ......
   n=n,(xn,yn)
现在我需要将这些点连起来 （假如循环500次）
运行的提示是
"指定下一点或 [放弃(U)]:
INTERSECT 所选对象太多"
而且画出来的线不是从（0 0）开始的 这是为什么

h199101 发表于 2013-4-21 22:18:43

对了 是依次连接

cie0588 发表于 2013-4-22 08:30:22

(defun c:tt ()
(setq        xx 0
        yy 0
)
(setq p0 (list xx yy))
(command "line" p0)
(repeat 500
    (setq xx (+ xx 0.2))
    (setq yy (* xx 0.2))
    (setq p1 (list xx yy))
    (command p1)
)
(command "")
(prin1)
)
页: [1]
查看完整版本: 假如有很多点 怎么连接呢