检查输入字段是否已读取

yonderbob · 发表于 2022-7-5 18:27:05

大家好，

我有一个问题，我似乎无法通过谷歌来解决。
我是一个非常基本的autocad程序员，所以请容忍我。

我有一个简单的小代码来填充DWGPROPS的作者，以自动填充我的标题栏。就像一个符咒，但我想添加一个检查，看看它是否已经填写，这样我可以自动打开一个绘图，这样当其他人打开它时，它不会覆盖原始作者。

我没有收到任何错误信息或反馈，所以我不知道如何继续，所以希望你们中的任何人都能帮助我。

这是代码：

copy

(defun C:Author (/ doc db si author)
(vl-load-com)
               (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
               (setq db (vla-get-Database doc))
               (setq si (vla-get-SummaryInfo db))
               (setq ath (getenv "username"))
               (setq ath_first(substr ath 1 2))
               (setq ath_last(substr ath 3))
                              (setq Hath (strcat (strcase ath_first) ath_last))
        (while (setq Ennt 0)
          (cond
            ((= Entt 0)
             (vla-put-author si Hath)
             (setq Ennt 1+)
             )
           );cond
          );while

BIGAL · 发表于 2022-7-5 18:41:24

put的对面是get（vla get author si），然后检查是否为空。

yonderbob · 发表于 2022-7-5 18:48:28

我用你的“get”试过了，但我的知识有限
仍然没有显示任何错误

copy

(while 
          (cond (setq check (vla-get-author si))
            ((= check "")
             (vla-put-author si Hath)
             )
           );cond
          );while

yonderbob · 发表于 2022-7-5 19:01:46

谢谢Bigal，

发现问题

将变量放置在错误的位置。
如果有人能用的话，给你

copy


(defun C:Author (/ doc db si author)
(vl-load-com)
               (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
               (setq db (vla-get-Database doc))
               (setq si (vla-get-SummaryInfo db))
               (setq ath (getenv "username"))
               (setq ath_first(substr ath 1 2))
                (setq check (vla-get-author si))
               (setq ath_last(substr ath 3))
                              (setq Hath (strcat (strcase ath_first) ath_last))
        (while 
          (cond 
            ((= check "")
             (vla-put-author si Hath)
             )
           );cond
          );while
 
);defun

上下快速移动

BIGAL · 发表于 2022-7-5 19:09:15

您的（while）

copy

(while 
          (cond 
            ((= check "")
             (vla-put-author si Hath)
             )
           );cond
          );while
mine
(if (= check "")(vla-put-author si Hath))

yonderbob · 发表于 2022-7-5 19:21:59

哦，真的，

我在一些Autocad lisp库中读到，当使用“If”函数时，它需要一个“else”。
如果没有“else”，则使用“while”函数。

很高兴知道，谢谢

BIGAL · 发表于 2022-7-5 19:36:30

你还使用了while和cond进行了双重检查

[编程交流] 检查输入字段是否已读取

发表回复

精选推荐