了解'；如果

Reu · 发表于 2022-7-6 07:00:10

(defun gp:getPointInput        (/ StartPt EndPt HalfWidth) 
  (if (setq StartPt (getpoint "\nStart point of path: "))
  (if (setq EndPt (getpoint StartPt "\nEndpoint of path: ")) 
  (if (setq HalfWidth (getdist EndPt "\nhalf-width of path: ")) 
T
) 
) 
) 
)

我认为if函数的语法是：

（if（测试表达式）
（表达式）（可选表达式）

)

在上述代码中使用“if”的目的是什么？

Lee Mac · 发表于 2022-7-6 07:18:54

如果压痕更好，意图可能更清楚：

copy

(defun gp:getPointInput ( / StartPt EndPt HalfWidth )
   (if (setq StartPt (getpoint "\nStart point of path: "))
       (if (setq EndPt (getpoint StartPt "\nEndpoint of path: "))
           (if (setq HalfWidth (getdist EndPt "\nhalf-width of path: "))
               T
           )
       )
   )
)

这里，第一个和第二个if语句的“then”表达式分别是第二个和第三个if语句；尽管如此，由于最终if语句的“then”表达式只是返回布尔真值，而不使用收集的点和距离值，因此代码是毫无意义的。

Reu · 发表于 2022-7-6 07:26:27

copy

;;; Function gp:getPointInput will get path location and size
(defun gp:getPointInput        (/ StartPt EndPt HalfWidth)
 (if (setq StartPt (getpoint "\nStart point of path: "))
   (if        (setq EndPt (getpoint StartPt "\nEndpoint of path: "))
     (if (setq HalfWidth (getdist EndPt "\nhalf-width of path: "))
(list StartPt EndPt HalfWidth)
     )
   )
 )
)

这样更好？我最近发现了AutoLISP教程（代码就是从这里来的）。我问过上面所示的“如果”，因为我以前见过它这样做，并想知道为什么。当我寻找类似以下内容时，它没有意义：

（如果（本声明属实）
（这样做）
（否则请执行此操作）

因此，从本质上讲，第一个“if”的“test expression”是“（getpoint”\n路径的起始点：“）”，如果“test expression”返回非零值，则要计算的“expression”是“（setq StartPt）”，“else”表达式是用户执行的任何返回零值的操作（例如按“Enter”）。

我说得对吗？

MSasu · 发表于 2022-7-6 07:37:50

Lee Mac刚刚格式化了您的代码摘录，以帮助您理解逻辑顺序。我会尝试添加评论，也许这会对您有更多帮助：

copy

(defun gp:getPointInput ( / StartPt EndPt HalfWidth)
(if (setq StartPt (getpoint "\nStart point of path: "))           ;1
 (if (setq EndPt (getpoint StartPt "\nEndpoint of path: "))       ;2
  (if (setq HalfWidth (getdist EndPt "\nhalf-width of path: "))   ;3
   (list StartPt EndPt HalfWidth)                                 ;4
  )
 )
)
)

[列表=1]

测试用户是否选择了一个点或输入了一组坐标；如果成功，请转至下一个测试。

测试用户是否选择了另一个点或输入了一组坐标；如果成功，请转至下一个测试。

测试用户是否拾取了点（AutoCAD返回第二个点和当前拾取之间的测量距离）或输入了距离（数值）。

如果上述三个输入均有效（所有测试均通过），则例程返回一个列表，其中第一点和第二点分别为数值。
[/列表]

这种格式对你更有意义吗？

copy

(defun gp:getPointInput ( / StartPt EndPt HalfWidth)
(if (and (setq StartPt (getpoint "\nStart point of path: "))
         (setq EndPt (getpoint StartPt "\nEndpoint of path: "))
         (setq HalfWidth (getdist EndPt "\nhalf-width of path: ")))
 (list StartPt EndPt HalfWidth)
)
)

MSasu · 发表于 2022-7-6 07:40:50

我还注释了您的代码分析：
因此，第一个“if”的“test expression”本质上是“（getpoint”\n路径的起始点：”）“[true]，如果“test expression”返回非nil值，则要计算的“expression”是“（setq StartPt）”，新的输入测试和“else”表达式可以是用户执行的任何返回nil值的操作（例如按“回车”）。不存在于这段代码中；如果输入无效或被取消，它什么也不做（更准确地说，例程将返回nil）。

Reu · 发表于 2022-7-6 07:59:56

是的，谢谢。

因此，当您执行多个“if”语句时，它与具有多个“and”测试表达式的单个“if”语句是一样的。

MSasu · 发表于 2022-7-6 08:04:31

存在差异；使用嵌套IF将能够为每个无效输入定义一个特定的操作，同时将测试与和操作相结合将是常见的。请在VLISP控制台中测试以下两段代码：

copy

(if (setq var1st (getint "\nFirst number: "))
(if (setq var2nd (getint "\nSecond number: "))
 (alert "All inputs valid!")
 (alert "No 2nd input!")
)
(alert "No 1st input!")
)

copy

(if (and (setq var1st (getint "\nFirst number: "))
        (setq var2nd (getint "\nSecond number: ")))
(alert "All inputs valid!")
(alert "No inputs!")
)

[编程交流] 了解'；如果

发表回复

精选推荐