[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来实现这个功能也可以。
希望有高人帮帮我！小弟感激不尽啊！！

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.200600404
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. (defun C:test (/ p0 p1 tl)
    
15.   (setq        p0   (getpoint "\n指定起点: ")
    
16.         il   (UREAL 7 "" "\n输入起始长度" il)
    
17.         el   (UREAL 7 "" "\n输入终点长度" el)
    
18.         unit (UREAL 7 "" "\n输入格距" unit)
    
19.         base (UREAL 7 "" "\n输入基底" 2)
    
20.         p1   (polar p0 0 (/ (log il) (log base)))
    
21.         tl   il
    
22.   )
    
23.   (setvar "osmode" 0)
    
24.   (while (<= tl el)
    
25.     (setq p2 (polar p1 (/ pi 2.0) 5.0))
    
26.     (command "line" p1 p2 "")
    
27.     (setq tl (+ tl unit)
    
28.           p1 (polar p1 0 (/ (log tl) (log base)))
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.200600404<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun C:test (/ p0 p1 tl)<br />   (setq        p0   (getpoint "\n指定起点: ")<br />         il   (UREAL 7 "" "\n输入起始长度" il)<br />         el   (UREAL 7 "" "\n输入终点长度" el)<br />         unit (UREAL 7 "" "\n输入格距" unit)<br />         base (UREAL 7 "" "\n输入基底" 2)<br />         p1   (polar p0 0 (/ (log il) (log base)))<br />         tl   il<br />   )<br />   (setvar "osmode" 0)<br />   (while (<= tl el)<br />     (setq p2 (polar p1 (/ pi 2.0) 5.0))<br />     (command "line" p1 p2 "")<br />     (setq tl (+ tl unit)<br />           p1 (polar p1 0 (/ (log tl) (log base)))<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

851226

谢谢您！！非常感谢！！