怎样不按回车直接使用默认值？

qazxswk

rocking2008 发表于 2022-6-21 09:27
他的意思应该是设置一个常用值例如20，使用命令后，直接按20进行偏移，同时有一个选项子命令C做为修改这个 ...

是这个意思，不过Bao_lai大神的方案也不错，可能是个人习惯问题吧。

hhh454

用dcl记录数值，是不是要简单一点

qazxswk

hhh454 发表于 2022-6-22 00:48
用dcl记录数值，是不是要简单一点

做成对话框形式？好像没有必要，就一个值

hhh454

对话框取值，好处可以多值一次取，也可以记忆，没有那么多的确定，单个数值也是一样的，可视化也比较直接，不用看左下角

baitang36

弄一个全局变量，如果为nil就用默认值。改全局变量值很简单

masterlong

ssget换成entsel，就可以加参数了，当然，程序流程大不同

qazxswk

baitang36 发表于 2022-6-22 13:07
弄一个全局变量，如果为nil就用默认值。改全局变量值很简单

我原代码中的newdist、dist就是全局变量吧。

qazxswk

masterlong 发表于 2022-6-22 13:56
ssget换成entsel，就可以加参数了，当然，程序流程大不同

我写了个用getpoint函数的，这样就强制是要框选了，用entsel，那就是点选了，都没有ssget可框可点方便。

vitalgg

grread

https://atlisp.cn/function/example:grread

1. (defun example:grread (/ flag r)
   
2.   "grread 编程示例，当按下键盘时，弹窗提示按的什么键，否则显示光标的坐标"
   
3.   (setq r 100.0)
   
4.   (setq flag t)
   
5.   (while flag (setq gr (grread t 16))
   
6.     "处理输入"
   
7.     (cond ((= 2 (car gr))
   
8.         "按下了键盘按键"
   
9.         (cond ((= "x"
   
10.               (chr (cadr gr)))
    
11.             (alert (strcat "按下了"
    
12.                 (chr (cadr gr))))
    
13.             "设置条件退出循环"
    
14.             (setq flag nil))
    
15.           ((= "S"
    
16.               (strcase (chr (cadr gr))))
    
17.             "以下进行 按了 S的后处理程序"
    
18.             (setq r (cdr (assoc "半径"
    
19.                   (ui:input "设置"
    
20.                     (list (list "半径"
    
21.                         r)))))))
    
22.           ((= "C"
    
23.               (strcase (chr (cadr gr))))
    
24.             "以下进行 按了 C 的后处理程序-画圆"
    
25.             (entity:make-circle (cadr (grread t 0))
    
26.               r))
    
27.           (t (alert (vl-prin1-to-string gr)))))
    
28.       ((= 3 (car gr))
    
29.         "按下鼠标左键"
    
30.         (alert "click left"))
    
31.       ((or (= 25 (car gr))
    
32.           (= 11 (car gr)))
    
33.         "按下鼠标右键"
    
34.         (alert "click right"))
    
35.       ((= 5 (car gr))
    
36.         "移动鼠标"
    
37.         (princ "当前光标的坐标: ")
    
38.         (princ gr))
    
39.       (t "其它情况"
    
40.         (princ gr)))
    
41.     (princ "\n输入[ 退出x | 设置s | 画圆c ]"))
    
42.   (princ))
    

(defun example:grread (/ flag r)<br />   "grread 编程示例，当按下键盘时，弹窗提示按的什么键，否则显示光标的坐标"<br />   (setq r 100.0)<br />   (setq flag t)<br />   (while flag (setq gr (grread t 16))<br />     "处理输入"<br />     (cond ((= 2 (car gr))<br />         "按下了键盘按键"<br />         (cond ((= "x"<br />               (chr (cadr gr)))<br />             (alert (strcat "按下了"<br />                 (chr (cadr gr))))<br />             "设置条件退出循环"<br />             (setq flag nil))<br />           ((= "S"<br />               (strcase (chr (cadr gr))))<br />             "以下进行 按了 S的后处理程序"<br />             (setq r (cdr (assoc "半径"<br />                   (ui:input "设置"<br />                     (list (list "半径"<br />                         r)))))))<br />           ((= "C"<br />               (strcase (chr (cadr gr))))<br />             "以下进行 按了 C 的后处理程序-画圆"<br />             (entity:make-circle (cadr (grread t 0))<br />               r))<br />           (t (alert (vl-prin1-to-string gr)))))<br />       ((= 3 (car gr))<br />         "按下鼠标左键"<br />         (alert "click left"))<br />       ((or (= 25 (car gr))<br />           (= 11 (car gr)))<br />         "按下鼠标右键"<br />         (alert "click right"))<br />       ((= 5 (car gr))<br />         "移动鼠标"<br />         (princ "当前光标的坐标: ")<br />         (princ gr))<br />       (t "其它情况"<br />         (princ gr)))<br />     (princ "\n输入[ 退出x | 设置s | 画圆c ]"))<br />   (princ))<br />

`中微子

初学者，这个看不懂
(setq ss(ssget ":s"))
(vlax-for ss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   (mapcar '(lambda (x)  (vla-offset ss x))(list newdist (- newdist)) )(vla-delete ss)  )
这样是偏移线，有大佬解释一下吗？谢谢！
我都用重新生成线来做类似操作，写起来很麻烦。