[求助]：如何将计算的点连接

gxynd

如何将计算的点用pline一次性连接,一位仁兄提供了个函数"(command "pline" (foreach i ptlist (command i)) "") "
可我还是不知如何用它,,现将计算的点过程书写如下，还望给以指教，拜托拜托

(defun c:hh()
(setq Ls (getreal"Ls:"))
(setq R (getreal"R:"))
(setq c (* Ls R))
(setq i -1)
(setq L 1)
(while (< i (- Ls 1))
(setq i (c:cal "i+L"))
(setq x (c:cal "i-i^5/(40*c*c)"))
(setq y (c:cal "i^3/(6*c)-i^7/(336*c^3)"))
(setq p1 (list x y))
(setq x+dx (c:cal "(i+L)-(i+L)^5/(40*c*c)"))
(setq y+dy (c:cal "(i+L)^3/(6*c)-(i+L)^7/(336*c^3)"))
(setq pt (list x+dx y+dy))
(command "point" pt "")
)
)

Free-Lancer

2. 
   
3. (defun c:hh (/ ls r c r l i x y p1 x+dy y+dy pt)
   
4.   (setq Ls (getreal "\nLs = "))
   
5.   (setq R (getreal "\nR = "))
   
6.   (setq c (* Ls R))
   
7.   (setq i -1)
   
8.   (setq L 1)
   
9.   (while (< i (- Ls 1))
   
10.     (setq i (c:cal "i+L"))
    
11.     (setq x (c:cal "i-i^5/(40*c*c)"))
    
12.     (setq y (c:cal "i^3/(6*c)-i^7/(336*c^3)"))
    
13.     (setq p1 (list x y))
    
14.     (setq x+dx (c:cal "(i+L)-(i+L)^5/(40*c*c)"))
    
15.     (setq y+dy (c:cal "(i+L)^3/(6*c)-(i+L)^7/(336*c^3)"))
    
16.     (setq pt (cons (list x+dx y+dy) pt))
    
17.   )
    
18.   (apply 'command (cons ".pline" pt))
    
19.   (command)
    
20.   (princ)
    
21. )

<br /> (defun c:hh (/ ls r c r l i x y p1 x+dy y+dy pt)<br />   (setq Ls (getreal "\nLs = "))<br />   (setq R (getreal "\nR = "))<br />   (setq c (* Ls R))<br />   (setq i -1)<br />   (setq L 1)<br />   (while (< i (- Ls 1))<br />     (setq i (c:cal "i+L"))<br />     (setq x (c:cal "i-i^5/(40*c*c)"))<br />     (setq y (c:cal "i^3/(6*c)-i^7/(336*c^3)"))<br />     (setq p1 (list x y))<br />     (setq x+dx (c:cal "(i+L)-(i+L)^5/(40*c*c)"))<br />     (setq y+dy (c:cal "(i+L)^3/(6*c)-(i+L)^7/(336*c^3)"))<br />     (setq pt (cons (list x+dx y+dy) pt))<br />   )<br />   (apply 'command (cons ".pline" pt))<br />   (command)<br />   (princ)<br /> )

baichi

用excel导入是不是可以

gxynd

你是说复制粘贴功能吗？那样好象不是很方便，我有用过，可以是可以，只是不如以上程序的方便啊，如果我理解有误，望指教！

dtabbs

直接计算，很简单，

gxynd

如何直接计算而达到目的呢？还望能够明示，或者举个例子可以吗？