伊藤。。。

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函数，是一个空字符串）：

copy

(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

其实这就是我要找的。只是需要把我的目光从它身上移开一段时间，回头看看

copy

(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的空字符串返回）

copy


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

[编程交流] 伊藤。。。

发表回复

精选推荐