[LISP程序]：求助vlisp！

851226

我是小菜鸟，自己看了两天书编了一个程序，希望实现这样一个功能：输入实际起始点，输入实际终点，输入底数，输入实际要间隔的距离，回车后，电脑自动在这两个点之间画一条条的竖线，使这些竖线的横坐标成对数。比如说，我指定了0为起始点，200为终点，2为底数，10为实际要间隔的距离，然后一回车，图上给我画出一系列的竖线：这些竖线距离起始点的距离分别是log2(10)(以二为底十的对数)，log2(20)(以二为底20的对数)，log2(30)，log2(40)，log2(50)，log2(60)，log2(70)……
但是不知道怎么回事，总是画不出来，不知道程序错在什么地方，希望有高人给我指点一下下~~
这是我的程序：
(defun C:plotlog ( / il el unit offhead)
(setq p0 (getpoint"\n指定起点: "))
(setq il (getreal"\n输入起始长度: "))
(setq el (getreal"输入终点长度: "))
(setq unit (getreal"输入格距: "))
(setq base (getreal"输入基底: "))
(setq tl il)
(setq p1 (polar p0 0 (log il)))
(while ( <= tl el)
  (setq p2 (polar p1 ( / pi 2.0) 5.0))
  (command "line" p1 p2 "" )
  (setq tl ( + tl unit))
  (setq offhead ( / (log tl) (log base)))
  (setq p1 (polar p0 0 offhead))
)
)
我本来想用offset，但是不会用command 函数调用~，如果有哪位ggjj可以用offset来实现这个功能也可以。
希望有高人帮帮我！小弟感激不尽啊！！

ZZXXQQ

3. (defun C:plotlog ( / il el unit offhead)
4. (setq p0 (getpoint"\n指定起点: "))
5. (setq il (getreal"\n输入起始长度: "))
6. (setq el (getreal"输入终点长度: "))
7. (setq unit (getreal"输入格距: "))
8. (setq base (getreal"输入基底: "))
9. (setq be (log base))
10. (setq tl il p1 (polar p0 (/ (log il) be))
11. (setvar "OSMODE" 0)
12. (while (<= tl el)
13.   (command "line" p1 (POLAR P1 (/ PI 2) 5) "")
14.   (setq tl (+ tl unit)  p1 (polar p0 0 (/ (log tl) be)))
15. )
16. (PRINC)
17. )

(defun C:plotlog ( / il el unit offhead) (setq p0 (getpoint"\n指定起点: ")) (setq il (getreal"\n输入起始长度: ")) (setq el (getreal"输入终点长度: ")) (setq unit (getreal"输入格距: ")) (setq base (getreal"输入基底: ")) (setq be (log base)) (setq tl il p1 (polar p0 (/ (log il) be)) (setvar "OSMODE" 0) (while (<= tl el)   (command "line" p1 (POLAR P1 (/ PI 2) 5) "")   (setq tl (+ tl unit)  p1 (polar p0 0 (/ (log tl) be))) ) (PRINC) )

ljpnb

3. (defun C:plotlog (/ il el unit offhead)
4.   (setq p0 (getpoint "\n指定起点: "))
5.   (setq il (getreal "\n输入起始长度: "))
6.   (setq el (getreal "输入终点长度: "))
7.   (setq unitt (getreal "输入格距: "))
8.   (setq base (getreal "输入基底: "))
9.   (if (/= il 0.0)
10.     (setq p1 (polar p0 0 (log il)))
11.     (setq p1 p0)
12.   )
13.   (setq os (getvar "osmode"))
14.   (setvar "osmode" 0)
15.   (while (<= il el)
16.     (setq p2 (polar p1 (/ pi 2.0) 5.0))
17.     (command "line" p1 p2 "")
18.     (setq il (+ il unitt))
19.     (setq offhead (/ (log il) (log base)))
20.     (setq p1 (polar p0 0 offhead))
21.   )
22.   (setvar "osmode" os)
23.   (princ)
24. )

(defun C:plotlog (/ il el unit offhead)   (setq p0 (getpoint "\n指定起点: "))   (setq il (getreal "\n输入起始长度: "))   (setq el (getreal "输入终点长度: "))   (setq unitt (getreal "输入格距: "))   (setq base (getreal "输入基底: "))   (if (/= il 0.0)     (setq p1 (polar p0 0 (log il)))     (setq p1 p0)   )   (setq os (getvar "osmode"))   (setvar "osmode" 0)   (while (<= il el)     (setq p2 (polar p1 (/ pi 2.0) 5.0))     (command "line" p1 p2 "")     (setq il (+ il unitt))     (setq offhead (/ (log il) (log base)))     (setq p1 (polar p0 0 offhead))   )   (setvar "osmode" os)   (princ) )

851226

谢谢两位大哥！我的问题已经解决了！真的非常感谢！！！！