Auto lisp 如何限定 默认输入的是半径，但可以输入D后变为直径输入方式？

lanyf

画圆的时候，输入中心点后
cad的命令会提示：
指定圆的半径 或[直径D]<100>：
如何才程序中实现该功能呢？
用  initget 函数，只能限制输入固定的值，能实现接收的数据要么是数字，要么是D吗？还是有其他的方法呢？


   
  

/db_自贡黄明儒_

initget就是为解决你的这个问题而存在的。
示例
      

1. (initget "S ")
   
2.         (setq d        (getpoint (strcat+ (list "\n正视图线长[测量起点/输入(S)]:<" *HHD* ">:"))))
   
3.         (cond
   
4.           ((= (type d) 'LIST) (setq p1 d))
   
5.           ((= d "S")
   
6.            (initget 6)
   
7.            (setq d (getreal "\n输入正视图线长"))
   
8.            (setq *HHD* d)
   
9.           )
   
10.         )

(initget "S ")<br />         (setq d        (getpoint (strcat+ (list "\n正视图线长[测量起点/输入(S)]:<" *HHD* ">:"))))<br />         (cond<br />           ((= (type d) 'LIST) (setq p1 d))<br />           ((= d "S")<br />            (initget 6)<br />            (setq d (getreal "\n输入正视图线长"))<br />            (setq *HHD* d)<br />           )<br />         )

Lisphk

/db_自贡黄明儒_ 发表于 2017-6-14 15:46

给力，黄总

lanyf

/db_自贡黄明儒_ 发表于 2017-6-14 15:46

提示“no function definition: STRCAT+”
把 STRCAT+ 拆分为  STRCAT   + 也不行

原地踏步

别管strcat+的问题，那是黄总的自定义函数。你用initget就可以了。

Lisphk

lanyf 发表于 2017-6-14 16:11

应该是自定义的函数，看内容，应该是把表里面的元素变成字符串连接起来，试写个

1. (defun strcat+ (lst)
   
2.   (apply 'strcat
   
3.          (mapcar '(lambda (x)
   
4.                     (vl-princ-to-string x)
   
5.                   )
   
6.                  lst
   
7.          )
   
8.   )
   
9. )
   

(defun strcat+ (lst)<br />   (apply 'strcat<br />          (mapcar '(lambda (x)<br />                     (vl-princ-to-string x)<br />                   )<br />                  lst<br />          )<br />   )<br /> )<br />

_$ (setq *HHD* 100.0)
100.0
_$ (setq str (strcat+ (list "\n正视图线长[测量起点/输入(S)]:<" *HHD* ">:")))
"\r\n正视图线长[测量起点/输入(S)]:<100.0>:"
_$

lanyf

/db_自贡黄明儒_ 发表于 2017-6-14 15:46

(initget 6)

什么啊？不能输入0 和 负值 是吗？

lanyf

原地踏步 发表于 2017-6-14 16:17

谢谢各位解答
已经利用其它提示函数了