新手求教，请问如何做到按一下a就直接执行某命令，不需要回车

caocaosasd

比如我有个操作是按一下a就让刚才画的直线偏移50，再按a回到原位置，应该怎么操作呀……
我自己写出来的是，按一下a还要回车一下，才执行，用起来很不流畅

start4444

码发上来看看

caocaosasd

start4444 发表于 2021-6-14 13:39
码发上来看看

       
前面的操作是画线。顺便我还没有想好再按a就移动回初始位置该怎么弄
(setq shuru (getstring "\n输入左中右 a左/b中/c右"))
        (cond
          ((= shuru "a")
          
           (command "move" ENT13 ENT24 ZX "" PT1  Pz2 )

          )

paulpipi

start4444

grread函数可以实现，论坛有很多相关搜索看看

(defun c:tt5 (/ code d loop ss)
(setq ss (ssget) loop T D 50)       
(prompt "\n 偏移(A)/退出(空格)]：")
(while loop
  (setq code (grread T 8))
  (cond
       ((equal code '(2 97)) (command "move" ss "" "non" '(0 0) "non" (list (setq D (* D -1)) 0)))               
                   ((equal code '(2 32)) (setq loop nil))
        )               
        )
(princ)
)

caocaosasd

start4444 发表于 2021-6-14 15:54
grread函数可以实现，论坛有很多相关搜索看看

(defun c:tt5 (/ code d loop ss)

非常感谢大佬的指点！其实我想做一个把刚画出来的两条平行线，按A就偏一下，再按A偏回来这样~这就学习一下！

caocaosasd

start4444 发表于 2021-6-14 15:54
grread函数可以实现，论坛有很多相关搜索看看

(defun c:tt5 (/ code d loop ss)

大佬可否再帮忙看一下……
我想让新画的三线达到这种效果，自己改了一下发现并不能正常运作，因为确实没有看明白代码里的一些内容，比如'(2 97)   '(2 32)这种，还有grread T 8 的返回值是啥也没明白……

2. ;;;
   
3. (defun C:cxz1 (/ code d loop ss)
   
4.   (setq OLD_CMDECHO (getvar "CMDECHO"))
   
5.   (setq CL (getvar "clayer"))
   
6.   (setq plwidth (getvar "PLINEWID"))
   
7.   (setvar "CMDECHO" 0)
   
8.   (setvar "EDGEMODE" 1)
   
9.   (setvar "PLINEWID" 30)
   
10.   (command "-layer" "m" "fjgj" "C" "1" "" "")
    
11. 
    
12.   (setq L1 (getpoint))
    
13.   (setq L2 (getpoint L1))
    
14.   (setq KU (angle L1 L2))
    
15.   (setq PT1 (polar L1 (+ KU (* 0.5 pi)) 75))
    
16.   (setq PT2 (polar L1 (+ KU (* 1.5 pi)) 75))
    
17.   (setq PT3 (polar L2 (+ KU (* 0.5 pi)) 75))
    
18.   (setq PT4 (polar L2 (+ KU (* 1.5 pi)) 75))
    
19. 
    
20.   (command "_.Pline" "non" L1 "non" L2 "")
    
21.   (setq ZX (entlast))
    
22.   (command "_.Pline" "non" PT1 "non" PT3 "")
    
23.   (setq ENT13 (entlast))
    
24.   (command "_.Pline" "non" PT2 "non" PT4 "")
    
25.   (setq ENT24 (entlast))
    
26. 
    
27.   (setq  loop T
    
28.   D 50
    
29.   )
    
30.   (prompt "\n 偏移(A)/退出(空格)]：")
    
31.   (while loop
    
32.     (setq code (grread T 8))
    
33.     (cond
    
34.       ((equal code '(2 97))
    
35.        (command  "move"
    
36.     ZX
    
37.     ENT13
    
38.     ENT24
    
39.     ""
    
40.     "non"
    
41.     '(0 0)
    
42.     "non"
    
43.     (list (setq D (* D -1)) 0)
    
44.        )
    
45.       )
    
46.       ((equal code '(2 32))
    
47.        (setq loop nil)
    
48.       )
    
49.     )
    
50.   )
    
51. 
    
52.   (setvar "clayer" CL)
    
53.   (setvar "CMDECHO" OLD_CMDECHO)
    
54.   (setvar "PLINEWID" plwidth)
    
55.   (princ)
    
56. )
    
57. ;;;  

;;;<br /> (defun C:cxz1 (/ code d loop ss)<br />   (setq OLD_CMDECHO (getvar "CMDECHO"))<br />   (setq CL (getvar "clayer"))<br />   (setq plwidth (getvar "PLINEWID"))<br />   (setvar "CMDECHO" 0)<br />   (setvar "EDGEMODE" 1)<br />   (setvar "PLINEWID" 30)<br />   (command "-layer" "m" "fjgj" "C" "1" "" "")<br /> <br />   (setq L1 (getpoint))<br />   (setq L2 (getpoint L1))<br />   (setq KU (angle L1 L2))<br />   (setq PT1 (polar L1 (+ KU (* 0.5 pi)) 75))<br />   (setq PT2 (polar L1 (+ KU (* 1.5 pi)) 75))<br />   (setq PT3 (polar L2 (+ KU (* 0.5 pi)) 75))<br />   (setq PT4 (polar L2 (+ KU (* 1.5 pi)) 75))<br /> <br />   (command "_.Pline" "non" L1 "non" L2 "")<br />   (setq ZX (entlast))<br />   (command "_.Pline" "non" PT1 "non" PT3 "")<br />   (setq ENT13 (entlast))<br />   (command "_.Pline" "non" PT2 "non" PT4 "")<br />   (setq ENT24 (entlast))<br /> <br />   (setq  loop T<br />   D 50<br />   )<br />   (prompt "\n 偏移(A)/退出(空格)]：")<br />   (while loop<br />     (setq code (grread T 8))<br />     (cond<br />       ((equal code '(2 97))<br />        (command  "move"<br />     ZX<br />     ENT13<br />     ENT24<br />     ""<br />     "non"<br />     '(0 0)<br />     "non"<br />     (list (setq D (* D -1)) 0)<br />        )<br />       )<br />       ((equal code '(2 32))<br />        (setq loop nil)<br />       )<br />     )<br />   )<br /> <br />   (setvar "clayer" CL)<br />   (setvar "CMDECHO" OLD_CMDECHO)<br />   (setvar "PLINEWID" plwidth)<br />   (princ)<br /> )<br /> ;;;  

caocaosasd

caocaosasd 发表于 2021-6-14 19:58
大佬可否再帮忙看一下……
我想让新画的三线达到这种效果，自己改了一下发现并不能正常运作，因为确实没 ...

就是刚把线画出来（点完L1,L2两个点以后），然后询问用户是否要偏移，要就按A，按一下就偏移一下，再按一下A又偏移回来，这样的……但是我不知道怎么才能对刚画出来的线进行操作

start4444

caocaosasd 发表于 2021-6-14 21:11
就是刚把线画出来（点完L1,L2两个点以后），然后询问用户是否要偏移，要就按A，按一下就偏移一下，再按一 ...

你那个代码已经实现啦，只是不知道偏移方向是怎么定的

caocaosasd

start4444 发表于 2021-6-14 21:25
你那个代码已经实现啦，只是不知道偏移方向是怎么定的

其实我抄也没抄明白偏移方向是怎么定的

确实不理解为啥code和 '(2 97)一相等了，就移动；和 '(2 32)相等为啥loop就为nil了
这种也不太明白要怎么查，因为我刚开始学嘛，就只知道vlisp函数说明里，括号括起来的俩数表示一个表，但是这里为啥这么用就不理解了

我希望的偏移方向是垂直于直线的方向，

是不是我command move 的格式有问题呀……command命令常用，但是操作不同的cad命令花样太多了，还没有掌握好