[求助]解决圆渐变阵列的问题

cpleo

想做个渐变圆阵列的lisp，但是老是出现问题，请高手看看

(defun c:CircleArr()

 (setq Ychange 0)
 (setq CP '(0 0 0))
 (setq Yleth 0)
(while (<= Ychange 8)
  (setq ridus (getpoint "\n请输入圆的半径")
space (getpoint "\n请输入偏移距离")
Times 0
reduce (getpoint "\n请输入递减半径")
X_Cood 0

  )
(setq Yleth (+ Yleth space))

  ( while (<= Times 0)
     (setq X_Cood (+ X_Cood space))
     (setq CP (list X_Cood Yleth 0))
     (setq ridus (- ridus reduce))
     (command "circle" CP ridus)
     (setq Times (+ Times 1))
)
(setq Ychange (+ Ychange 1))
)
)

ZZXXQQ

将getpoint改成getdist就可以了。

cpleo

拜谢版主了

cpleo

还有个问题，照这个编写了之后，每输入一个圆都是要输入一个数据。有没有什么办法在之前输入好起始圆的大小，改变距离，和递减半径，递减数量后就可以一次成形了。

(defun c:CircleArr()

 (setq Ychange 0)
 (setq CP '(0 0 0))
 (setq Yleth 0)
(while (<= Ychange 1000)
  (setq ridus (getdist "\n请输入圆的半径")
space (getdist "\n请输入偏移距离")
Times 0
reduce (getdist "\n请输入递减半径")
X_Cood 0

  )
(setq Yleth (+ Yleth space))

  ( while (<= Times 0)
     (setq X_Cood (+ X_Cood space))
     (setq CP (list X_Cood Yleth 0))
     (setq ridus (- ridus reduce))
     (command "circle" CP ridus)
     (setq Times (+ Times 1))
)
(setq Ychange (+ Ychange 1))
)
)

cpleo

如何加多一行让距离也可以递增

ZZXXQQ

这样试试：

3. (defun c:CircleArr()
4. (setq Ychange 0)
5. (setq CP '(0 0 0))
6. (setq Yleth 0)
7. (setq ridus (getdist "\n请输入圆的半径 :")
8.        space (getdist "\n请输入偏移距离 :")
9.        Times 0
10.        reduce (getdist "\n请输入递减半径 :")
11.        X_Cood 0
12.     n (getint "\n请输入行数 :")
13.     m (getint "\n请输入列数 :"))
14. (while (<= Ychange n)
15.   (setq Yleth (+ Yleth space))
16.   (while (<= Times m)
17.    (setq X_Cood (+ X_Cood space))
18.    (setq CP (list X_Cood Yleth 0))
19.    (setq ridus (- ridus reduce))
20.    (command "circle" CP ridus)
21.    (setq Times (+ Times 1))
22.   )
23.   (setq yleth (+ yleth space))
24.   (setq Ychange (+ Ychange 1))
25. )
26. (princ)
27. )

(defun c:CircleArr() (setq Ychange 0) (setq CP '(0 0 0)) (setq Yleth 0) (setq ridus (getdist "\n请输入圆的半径 :")        space (getdist "\n请输入偏移距离 :")        Times 0        reduce (getdist "\n请输入递减半径 :")        X_Cood 0     n (getint "\n请输入行数 :")     m (getint "\n请输入列数 :")) (while (<= Ychange n)   (setq Yleth (+ Yleth space))   (while (<= Times m)    (setq X_Cood (+ X_Cood space))    (setq CP (list X_Cood Yleth 0))    (setq ridus (- ridus reduce))    (command "circle" CP ridus)    (setq Times (+ Times 1))   )   (setq yleth (+ yleth space))   (setq Ychange (+ Ychange 1)) ) (princ) )

cpleo

现在基本上可以用了，但是有时出来的圆还是有问题，不是每次都成功，不知道什么原因，哪位大侠可以帮忙看看修改一下，还有个问题是这个程序的距离是不可以渐变的，现在想做个渐变的，但是怎么试都不成功，不知道怎么搞

(defun c:2()
    
 (setq Ychange 0)
 (setq CP '(0 0 0))
 (setq Yleth 0)
  (setq ridus (getdist "\n请输入圆的半径")
space (getdist "\n请输入偏移距离")
Times 0
reduce (getdist "\n请输入递增半径")
X_Cood 0
a (getdist "\n请输入偏移个数")
  )
(while (<= Ychange a )
  (setq X_Cood 0)
     (setq CP (list X_Cood Yleth 0))
     (setq ridus (+ ridus reduce))
     (command "circle" CP ridus)
    
   (setq Yleth (+ Yleth space)
)

 
(setq Ychange (+ Ychange 1))
)
)