关于记忆GETPOINT ----求助

ysq101

2. (defun C:ar()
   
3. (SETQ ss (SSGET ))
   
4.   (setvar "cmdecho" 0);指令执行过程不响应
   
5.       (setq arr1 (getpoint"\n请指定阵列基点:"))
   
6.   (if (= arr1 nil) (quit) )
   
7.      (if (null $fs) (setq $fs 2))
   
8.    (setq tmp (getint (strcat "\n-->请输入阵列数量<" (itoa $fs) ">:")))
   
9.   (if tmp (setq $fs tmp))
   
10.       (command "array" ss "" "p" "_none" arr1 $fs "" "y")   
    
11.    (PRINC)
    
12. )
    
13. ;以上是能正常运行的程序
    
14. 
    
15. ;下面我先告诉大家我要做些什么
    
16. ;上面的程序是免对话框的简化阵列命令
    
17. ;其中不足的是不能 记忆阵列基点   下面我试了很多IF都没成功
    
18. ;望高手指点一下,谢谢了
    
19. 
    
20. 我要的结果:
    
21. 让用户指定基点时 按  空格键   默认为上次指定的基点
    
22. 如果上次没有基点   则指点基点
    
23. 
    
24. (defun C:ar()
    
25. (SETQ ss (SSGET ))
    
26.   (setvar "cmdecho" 0);指令执行过程不响应
    
27. (setq L1 (car(grread 2)))
    
28. 
    
29.      (if (null $fs) (setq $fs 2))
    
30.    (setq tmp (getint (strcat "\n-->请输入阵列数量<" (itoa $fs) ">:")))
    
31.   (if tmp (setq $fs tmp))
    
32. 
    
33. (IF (= nil *ar*)
    
34.     (setq *ar* (getpoint"\n请指定阵列基点:"))
    
35.   )
    
36. 
    
37. 
    
38. ;--------------分割线------------以下是是我实验用的-----
    
39. (IF (/= nil *ar*)
    
40.     (setq pt1 *ar* )
    
41.   )
    
42. 
    
43.   (cond
    
44.    
    
45.     (
    
46.      (/= nil *ar*)
    
47.      (setq *ar* (getpoint"\n请指定阵列基点:"))
    
48.     (command "array" ss "" "p" "_none" *ar* $fs "" "y")
    
49.      )
    
50.    
    
51.     (
    
52.      (= 32 (cadr(grread)))
    
53.         (command "array" ss "" "p" "_none" pt1  $fs "" "y")
    
54.      )   
    
55.       )
    
56.       
    
57.   ;--------------分割线------------以上是是我实验用的-----
    
58.   (command "array" ss "" "p" "_none" *ar* $fs "" "y")   
    
59.    (PRINC)
    
60. )

(defun C:ar() <br /> (SETQ ss (SSGET ))<br />   (setvar "cmdecho" 0);指令执行过程不响应<br />       (setq arr1 (getpoint"\n请指定阵列基点:"))<br />   (if (= arr1 nil) (quit) )<br />      (if (null $fs) (setq $fs 2))<br />    (setq tmp (getint (strcat "\n-->请输入阵列数量<" (itoa $fs) ">:")))<br />   (if tmp (setq $fs tmp))<br />       (command "array" ss "" "p" "_none" arr1 $fs "" "y")   <br />    (PRINC)<br /> )<br /> ;以上是能正常运行的程序<br /> <br /> ;下面我先告诉大家我要做些什么<br /> ;上面的程序是免对话框的简化阵列命令<br /> ;其中不足的是不能 记忆阵列基点   下面我试了很多IF都没成功<br /> ;望高手指点一下,谢谢了<br /> <br /> 我要的结果:<br /> 让用户指定基点时 按  空格键   默认为上次指定的基点<br /> 如果上次没有基点   则指点基点<br /> <br /> (defun C:ar() <br /> (SETQ ss (SSGET ))<br />   (setvar "cmdecho" 0);指令执行过程不响应<br /> (setq L1 (car(grread 2)))<br /> <br />      (if (null $fs) (setq $fs 2))<br />    (setq tmp (getint (strcat "\n-->请输入阵列数量<" (itoa $fs) ">:")))<br />   (if tmp (setq $fs tmp))<br /> <br /> (IF (= nil *ar*)<br />     (setq *ar* (getpoint"\n请指定阵列基点:"))<br />   )<br /> <br /> <br /> ;--------------分割线------------以下是是我实验用的-----<br /> (IF (/= nil *ar*)<br />     (setq pt1 *ar* )<br />   )<br /> <br />   (cond<br />     <br />     (<br />      (/= nil *ar*)<br />      (setq *ar* (getpoint"\n请指定阵列基点:"))<br />     (command "array" ss "" "p" "_none" *ar* $fs "" "y")<br />      )<br />    <br />     (<br />      (= 32 (cadr(grread)))<br />         (command "array" ss "" "p" "_none" pt1  $fs "" "y")<br />      )    <br />       )<br />       <br />   ;--------------分割线------------以上是是我实验用的-----<br />   (command "array" ss "" "p" "_none" *ar* $fs "" "y")   <br />    (PRINC)<br /> )

试过找论坛的程序,,,还是看不懂啊万望高手指点

newer

回车就是NIL，那么

(if (not (setq pt (getpoint "\npick point:")))
    (setq pt #global_pt)
    (setq #golbalpt pt)
)

#golbalpt全局变量

HLCAD

[原创][源码]整合多个GetXXX用户输入函数在一块
http://bbs.mjtd.com/forum.php?mo ... 0&fromuid=62689

ysq101

newer 发表于 2013-10-22 17:09
回车就是NIL，那么

(if (not (setq pt (getpoint "\npick point:")))

版主可能还没明白我的意思

                               
登录/注册后可看大图

我要的结果
让用户指定基点时 按  空格键   默认为上次指定的基
如果上次没有基点   则指点基点

ysq101

HLCAD 发表于 2013-10-22 20:06
[原创][源码]整合多个GetXXX用户输入函数在一块
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=10201 ...

谢谢你的回复..可惜我看不懂啊

newer

ysq101 发表于 2013-10-23 00:00
版主可能还没明白我的意思我要的结果
让用户指定基点时 按  空格键   默认为上次指定的基
如果上次没有 ...

你运行我的代码了吗？

就是你要的，你空格，pt就是你上次的点。


给你修改直观下：

第一次执行时候，提示你 拾取点，
你点过，再运行，括号里面就是上次的点，空格或者回车就直接使用，选第二点

2. 
   
3. (defun c:tt ()
   
4.   (if (setq pt (getpoint (strcat "\npick point:<" (if  #global_pt
   
5.                                                     (vl-princ-to-string  #global_pt)
   
6.                                                     "拾取点"
   
7.                                                   ) ">"
   
8.                          )
   
9.                )
   
10.       )
    
11.     (setq #global_pt pt)
    
12.     (setq pt #global_pt)
    
13.   )
    
14.   (setq p2 (getpoint pt "\n第二点"))
    
15.   (princ)
    
16. )
    
17. 
    

<br /> (defun c:tt ()<br />   (if (setq pt (getpoint (strcat "\npick point:<" (if  #global_pt<br />                                                     (vl-princ-to-string  #global_pt)<br />                                                     "拾取点"<br />                                                   ) ">"<br />                          )<br />                )<br />       )<br />     (setq #global_pt pt)<br />     (setq pt #global_pt)<br />   )<br />   (setq p2 (getpoint pt "\n第二点"))<br />   (princ)<br /> )<br /> <br />

ysq101

newer 发表于 2013-10-23 00:15
你运行我的代码了吗？

就是你要的，你空格，pt就是你上次的点。

哈哈。。。。关于原来GETPOINT还可以这样记忆。。。
学习到了。。。谢谢了。。。。

还有优化空间，如果一开始那个全局变量没值。。。。我再研究下怎么IF

题外话：基本上我每一贴都有你的热心回答。。实在是谢谢你的帮助。。
为了报答你，，，请报上你的手机号码吧。。。我给你充点话费吧。。意思意思好吗？
如果不方便公开的话，可以加我QQ：120389613      验证码：NEWER

ysq101

newer 发表于 2013-10-23 00:15
你运行我的代码了吗？

就是你要的，你空格，pt就是你上次的点。

生气了???

qq1254582201

这个全局变量怎么实现的？关闭文档再次打开是否会有记忆？