问候语。
我一直在做一些非常简单的例行程序。
其中一个用于绘制具有半径增量值的圆序列和z坐标。
不幸的是，在我无法理解（我仍然是基本的）的情况下，例程有时可以正常工作，而不是其他人，绘制圆，但不改变z坐标。
在例行程序希望进行演化以绘制由圆组成的球体之后，但我知道，在这里，要求很复杂，因为每个圆的半径都有一个适当的值。
谢谢你的帮助。
- ;;v1
- (defun c:scir ()
- (setq pnt1 (getpoint "\n Sets center point of 1s circle:"))
- (setq rcir (getreal "\n Sets the radius of circle:"))
- (setq rinc (getreal "\n Sets a radius increment:"))
- (setq incz (getreal "\n Sets z coord increment:"))
- (setq ncir (getint "\n Sets n of circles:"))
- (repeat ncir
- (command "circle" pnt1 rcir)
- (setq xpnt1 (car pnt1))
- (setq ypnt1 (cadr pnt1))
- (setq zpnt1 (+(caddr pnt1)incz))
- (setq pnt1 (list xpnt1 ypnt1 zpnt1))
- (setq rcir (+ rcir rinc))
- );repeat
- (princ)
- );defun
- (prompt "\nType SCIR")
| 
置顶卡
