动态initget getkword that

Jef! · 发表于 2022-7-5 23:56:34

我做了一个LSP，它工作得很好，要求用户做出选择，这是一件经典的事情。
正在工作


(initget "American Canadianmetric")
(setq GRADE (getkword "\nGRADE:[American/Canadianmetric]: "))
(cond
((= GRADE "American")
 (setq *LASTGRADE* "American")
)
((= GRADE "Canadianmetric")
 (setq *LASTGRADE* "Canadianmetric")
) 
); cond

*LASTGRADE*（全局变量）如下所示，是我的变量，用于动态提供最后一个年级的输入作为默认答案（如果还不存在，则为美式）。除此之外，不能再点击选择（这正常吗？），这似乎有效，但如果我点击“回车”（而不是写“A”“American”等），它将分数定义为零（并返回零）
这是错误代码

copy


(defun c:gg ()
(setq OLDCMD (getvar "cmdecho"))
(setq OLDLAY (getvar "clayer"))
(setq OLDATTREQ (getvar "attreq"))
(setvar "cmdecho" 0)
;;;; SET INEXISTING COUNTERS TO 1
(if (not *PCOUNT*) (setq *PCOUNT* 1))
(if (not *WCOUNT*) (setq *WCOUNT* 1))
(if (not *ICOUNT*) (setq *ICOUNT* 1))
(if (not *CCOUNT*) (setq *CCOUNT* 1))
; initialize variables
(setq ITEM_TYPE ""
      GRADE ""
      NUMB ""
      ITEM_ATT ""
      DESC_ATT ""
      MAT_ATT ""
      QTY_ATT ""
); setq
;; query # 1 - GRADE
(if (not *LASTGRADE*) (setq *LASTGRADE* "American"))
(initget "American Canadianmetric")
(setq GRADE (getkword (strcat "\nChoose grade:[American/Canadianmetric]:< " *LASTGRADE* " >:")))
(cond
((= GRADE "American")
  (setq *LASTGRADE* "American")
)
((= GRADE "Canadianmetric")
  (setq *LASTGRADE* "Canadianmetric")
)
); cond
);defun

有人能看到并指出我的（可能是明显的）缺陷是什么吗？
干杯
杰夫！

jammie · 发表于 2022-7-6 00:15:50

嗨，杰夫！

您的逻辑似乎很好，如果您不希望通过按enter键而不是键入a或C来返回等级的nil值，则可以使用以下方法

copy

(cond
((= GRADE "American")
  (setq *LASTGRADE* "American")
)
((= GRADE "Canadianmetric")
  (setq *LASTGRADE* "Canadianmetric")
)
(T (setq GRADE *LASTGRADE*))
)

jvillarreal · 发表于 2022-7-6 00:22:27

这里有一种方法：

copy

(initget "American Canadianmetric")
(setq GRADE (if (setq GRADE (getkword "\nGRADE:[ American / Canadianmetric ]: <American>")) GRADE "American") *LASTGRADE* GRADE)

我更喜欢使用函数来简化过程：

copy

(defun list->kword ( l2k_lst l2k_prompt / nospace_lst initgk_lst spos kword)
(setq nospace_lst
(mapcar
'(lambda (x / txt)
  (setq txt x spos 0)
  (while (setq spos (vl-string-position (ascii " ") txt spos))
    (setq txt (vl-string-subst "" " " txt spos))) txt) 
 l2k_lst))
(initget
(setq i -1 initgk_lst
 (apply 'strcat
  (mapcar
  '(lambda (x)
    (if (nth (1+ (setq i (1+ i))) nospace_lst) (strcat x " ") (strcat x)))
  nospace_lst))))
(setq spos -3)
(while (setq spos (vl-string-position (ascii " ") initgk_lst (+ spos 3)))
(setq initgk_lst (vl-string-subst " / " " " initgk_lst spos)))
(setq kword
(if
 (setq kword
  (getkword
   (strcat "\n" l2k_prompt " [ " initgk_lst " ]:<" (nth 0 nospace_lst) ">")))
  kword (nth 0 nospace_lst)))
(nth (vl-position kword nospace_lst) l2k_lst)
)

示例用法：

copy


(list->kword '("American" "Canadian Metric") "Grade:")

如您所见，该函数也占用了空间。
希望这有帮助，

胡安

jvillarreal · 发表于 2022-7-6 00:30:53

对不起，我误读了你的帖子。
这应该做到：

copy


(initget "American Canadianmetric")
(setq GRADE (if (setq GRADE (getkword "\nGRADE:[ American / Canadianmetric ]:")) GRADE (if *LASTGRADE* *LASTGRADE* "American")) *LASTGRADE* GRADE)

jvillarreal · 发表于 2022-7-6 00:43:39

如果这是您仅有的两个选择，那么使用动态提示功能会更好：

copy


(or *LASTGRADE* (setq *LASTGRADE* "American"))
(initget "American Canadianmetric")
(setq *LASTGRADE* (if (setq GRADE (getkword (strcat "\nGRADE:[ American / Canadianmetric ]:<" *LASTGRADE* ">"))) GRADE *LASTGRADE*))

Jef! · 发表于 2022-7-6 00:53:20

首先，感谢您的回复和宝贵的时间！
@Juan（Jvillarreal）：我现在有两个选择，但我最终会添加“canadianImperial”，这就是为什么我使用cond而不是ifs。我还希望能够创建更通用的结构，使我有2个或更多的选择，以后再次使用它。

我试了一下你的“list->kword”lsp，太棒了！
不过，我不会用它来选择等级，因为一旦我们为客户开始工作，我们希望在整个工作过程中坚持他的偏好。。。（我之所以选择*LASTGRADE*，是为了动态地提供最后一个条目作为默认选项）假设他们的工程师想要美国等级，我想“设置”它，使其保持不变。不必每次都选择，可以减少出错的风险。
我目前正在制作的lisp使用了一些全局变量（目前），但我认为稍后我会从全局变量转移到绘制自定义属性，这样，如果其他设计师或绘图员打开文件添加零件，在插入新信息气泡时，CAD将动态提供正确的选择。

现在我已经添加了这句话（根据jammie的回复，谢谢！）（T（setq GRADE*LASTGRADE*），它起作用了。因此，如果我理解得很好，我的问题是，通过点击提示符的“return”，从而使用动态提供的值，它不是返回“American”或“Canadianmetric”，而是返回“true”？

如果你回到那个线程，我很想知道你是否有其他getxxx函数的lisp，比如list->int，list->real，等等？

jammie · 发表于 2022-7-6 00:59:49

事实恰恰相反。使用您最初的示例，在getkword上点击enter键而不键入实际上会返回一个nil值。为了确保为等级分配了一个值，如图所示，将t添加到cond只会确保在没有找到其他匹配项的情况下设置defaut值。该函数可以按如下方式编写函数

copy

(cond
((= GRADE "American")
  (setq *LASTGRADE* "American")
)
((= GRADE "Canadianmetric")
  (setq *LASTGRADE* "Canadianmetric")
)
((= GRADE nil)  (setq GRADE *LASTGRADE*))
)

但正如您将看到的那样，最终条件总是通过点击return返回t，而不使用getkword键入，因为GRADE的值将为零（除非您在initget中设置了位代码）

copy

(= GRADE nil)

[编程交流] 动态initget getkword that

发表回复

精选推荐