社区 › Auto Lisp › 伊藤。。。

Lt Dan's l 发表于 2022-7-6 10:41:35

伊藤。。。

我正在寻找的完美例子是：如果你输入-insert，它将记住你插入的最后一个块，如果你点击回车键，例程将继续该块。
 
我想不出来
 
(defun c:test (/)
(setq prmpt (getstring (strcat "\nWhat would you like to say? <" prmpt "> : ")))
(alert prmpt)
(princ)
)

MSasu 发表于 2022-7-6 10:53:48

我认为这就是您要寻找的（注意，中性答案——对于GETSTRING函数，是一个空字符串）：
 
(defun c:test ( / LastUsed ToUse )
(setq LastUsed "LastUsedBlock")               ;name of last used block

;test is user answer by string or by <ENTER>
(if (= (setq ToUse (getstring (strcat "\nWhat would you like to say? <" LastUsed "> : "))) "")
(setq ToUse LastUsed)                        ;use default value
)

(alert ToUse)
(princ)
)
 
 
当做
 
另外，恐怕线程的标题不适合您的要求…

David Bethel 发表于 2022-7-6 11:03:57

您可能需要查看sysvar“INSNAME”-大卫

Lt Dan's l 发表于 2022-7-6 11:17:32

当我开始写这篇文章时，我正在看李为我做的一个常规动作。计数例行程序
 
也许这就是为什么我没有得到我的结果！
 
谢谢你的回复。我几分钟后查一下

Lt Dan's l 发表于 2022-7-6 11:29:32

其实这就是我要找的。只是需要把我的目光从它身上移开一段时间，回头看看
 
(defun c:test (/ p prmpt)
(if (NOT (setq p prmpt))
   (SETQ P "\NTESTING"))
(setq prmpt (getstring (strcat "\nWhat would you like to say? <" p "> : ")))
(if (eq "" prmpt)
   (setq prmpt p))
(alert prmpt)
(princ)
)

Lt Dan's l 发表于 2022-7-6 11:34:25

 
让我重述一遍，因为听起来我把我的问题归咎于李。。
 
我在看李写的一个Lisp程序的单词，它和数字有关。我在看程序的错误部分来操作它。这就是为什么我的头衔是itoa。
 
 
对不起，李

Lee Mac 发表于 2022-7-6 11:48:35

 
不用担心，伙计
 
另一种编码方法（我不喜欢getstring的空字符串返回）

(defun c:test ( / tmp )
(alert
   (setq *x*
   (cond
       (
         (eq ""
         (setq tmp
             (getstring t
               (strcat "\nAlert with <"
               (setq *x*
                   (cond ( *x* ) ( "LeeMac" ))
               )
               "> : "
               )
             )
         )
         )
      *x*
       )
       ( tmp )
   )
   )
)
(princ)
)

查看完整版本: 伊藤。。。