getpoint 如何在vlisp程序里面，跳过等待直接返回nil

228378553

请教一下 怎么给getpoint传一个空格命令呢？  就是说：在（getpoint）等待点击的时候，不点击左键而是按下空格，目的是让他返回一个nil

你有种再说一遍

找点开源代码抄吧,例如跃动方程里面

228378553

你有种再说一遍 发表于 2024-6-25 15:28
找点开源代码抄吧,例如跃动方程里面

谢谢大佬指路，模型空间的类型是什么呀？

你有种再说一遍

228378553 发表于 2024-6-25 16:41
谢谢大佬指路，模型空间的类型是什么呀？

模型空间是一个块表记录啊

228378553

你有种再说一遍 发表于 2024-6-25 16:47
模型空间是一个块表记录啊

OK  我去回答加群问题试试

fangmin723

(getpoint)你不点击鼠标左键，直接按空格或者回车就能直接返回nil啊
要跳过等待直接返回nil，那你直接给他个nil不就行了



在AutoLISP（包括VLISP）程序中，如果你希望`getpoint`函数不暂停程序等待用户输入，而是直接返回`nil`，你可以通过设置一个条件来绕过这个函数的执行。一种常见做法是在调用`getpoint`之前检查一个标志变量，根据这个变量的值决定是否执行`getpoint`。如果想要跳过，你可以直接让程序返回`nil`。

下面是一个简单的示例，展示了如何根据一个自定义的标志变量`skip-getpoint`来决定是否跳过`getpoint`：

1. (defun my-getpoint (skip)
   
2.   (if skip
   
3.     (progn
   
4.       (print "Skipping getpoint, returning nil.")
   
5.       nil ; 直接返回nil
   
6.     )
   
7.     (getpoint) ; 正常执行getpoint并等待用户输入
   
8.   )
   
9. )
   
10. 
    
11. (setq skip-getpoint t) ; 设置标志为真，表示要跳过getpoint
    
12. 
    
13. (setq my-point (my-getpoint skip-getpoint)) ; 调用函数
    
14. (print my-point) ; 输出结果，应该是nil

(defun my-getpoint (skip)<br />   (if skip<br />     (progn<br />       (print "Skipping getpoint, returning nil.")<br />       nil ; 直接返回nil<br />     )<br />     (getpoint) ; 正常执行getpoint并等待用户输入<br />   )<br /> )<br /> <br /> (setq skip-getpoint t) ; 设置标志为真，表示要跳过getpoint<br /> <br /> (setq my-point (my-getpoint skip-getpoint)) ; 调用函数<br /> (print my-point) ; 输出结果，应该是nil

在这个例子中，`my-getpoint`函数检查变量`skip-getpoint`。如果其值为真（非NIL），则函数直接打印一条消息并返回`nil`，从而跳过了实际的点获取操作。如果需要正常执行`getpoint`，只需将`skip-getpoint`设置为`nil`即可。