请教ACAD命令Offse命令实现的代码

Humanway

AutoCAD命令Offset输入后

有两种状态，即可以输入数字给定偏移距离，也可以用鼠标在图纸上选取

请问这是怎么实现的？
尝试用getpoint函数，但无法得到输入的数字，请帮忙解决，谢谢。

Humanway

找到方法了

1. (defun c:test ()
   
2.   (setq        a (progn
   
3.             (initget 128 "S A")
   
4.             (getpoint "指定阵列间距和角度[间距(S) 角度(A)]<通过>")
   
5.             )
   
6.         )
   
7.   (cond
   
8.     ((= a "A")
   
9.      (setq a (getreal "输入角度:"))
   
10.      )
    
11.     ((= a "S")
    
12.      (setq a (getreal "输入间距:"))
    
13.      )
    
14.     (T
    
15.      (print a)
    
16.      )
    
17.     )
    
18.   )

(defun c:test ()<br />   (setq        a (progn<br />             (initget 128 "S A")<br />             (getpoint "指定阵列间距和角度[间距(S) 角度(A)]<通过>")<br />             )<br />         )<br />   (cond<br />     ((= a "A")<br />      (setq a (getreal "输入角度:"))<br />      )<br />     ((= a "S")<br />      (setq a (getreal "输入间距:"))<br />      )<br />     (T<br />      (print a)<br />      )<br />     )<br />   )

muwind

自用的 (getdist "" ) ，和偏移o的后的一样“即可以输入数字给定偏移距离，也可以用鼠标在图纸上选取”

Humanway

muwind 发表于 2020-9-15 21:35
自用的 (getdist "" ) ，和偏移o的后的一样“即可以输入数字给定偏移距离，也可以用鼠标在图纸上选取”

谢谢
其实真实的目的是要获得1 个矢量，可以用两种方式获得，1是给出两个点，2量给出距离和角度，我自己修改后完整代码如下：

1. (setq a (progn
   
2.                                                 (initget 128 "S")
   
3.                                                 (getpoint "指定间距[间距(S)]:")
   
4.                                         )
   
5.         )
   
6.         (cond
   
7.                 ((= a "S")
   
8.                         (while (not space)
   
9.                                 (setq space (getreal "输入间距:"))
   
10.                         )
    
11.                         (if (setq Aangle (getreal "输入角度<0>:"))
    
12.                                 T
    
13.                                 (setq Aangle 0)
    
14.                         )                       
    
15.                 )
    
16.                 (T
    
17.                         (if (= (type a) 'STR)
    
18.                                 (progn
    
19.                                         (setq space (read a))                                       
    
20.                                         (if (setq Aangle (getreal "输入角度<0>:"))
    
21.                                                 T
    
22.                                                 (setq Aangle 0)
    
23.                                         )
    
24.                                 )
    
25.                                 (progn
    
26.                                         (setq p0 a)
    
27.                                         (setq p1 (getpoint p0 "指定第2点"))
    
28.                                         (setq Aangle (angle p0 p1))
    
29.                                         (setq space (distance p0 p1))
    
30.                                 )
    
31.                         )
    
32.                 )
    
33.         )

(setq a (progn<br />                                                 (initget 128 "S")<br />                                                 (getpoint "指定间距[间距(S)]:")<br />                                         )<br />         )<br />         (cond<br />                 ((= a "S")<br />                         (while (not space)<br />                                 (setq space (getreal "输入间距:"))<br />                         )<br />                         (if (setq Aangle (getreal "输入角度<0>:"))<br />                                 T<br />                                 (setq Aangle 0)<br />                         )                        <br />                 )<br />                 (T<br />                         (if (= (type a) 'STR)<br />                                 (progn<br />                                         (setq space (read a))                                        <br />                                         (if (setq Aangle (getreal "输入角度<0>:"))<br />                                                 T<br />                                                 (setq Aangle 0)<br />                                         )<br />                                 )<br />                                 (progn<br />                                         (setq p0 a)<br />                                         (setq p1 (getpoint p0 "指定第2点"))<br />                                         (setq Aangle (angle p0 p1))<br />                                         (setq space (distance p0 p1))<br />                                 )<br />                         )<br />                 )<br />         )