AutoCAD LISP 循环选择语句cond

最新推荐文章于 2024-07-16 08:11:01 发布

转载最新推荐文章于 2024-07-16 08:11:01 发布 · 1.8k 阅读

本文介绍了一段使用AutoCADLISP编写的代码，通过循环选择语句cond实现根据不同图纸大小绘制矩形的功能。代码首先获取用户输入的图纸大小，默认为A3，然后根据输入的大小设置矩形的两个顶点坐标，并最终绘制出相应的矩形。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

AutoCAD LISP 循环选择语句cond，相比if语句更加简洁，代码如下。

(defun c:test()
(initget "A0 A1 A2 A3 A4")
(setq size (getkword "请输入图纸大小A0，A1，A2，A3，A4<A3>:"))
(if (= size nil) (setq size "A3"))
    (setq size (strcase size))
    (cond ((= size "A0") (setq p2 '(1189 841)))
           ((= size "A1") (setq p2 '(841 594)))
           ((= size "A2") (setq p2 '(594 420)))
           ((= size "A3") (setq p2 '(420 297)))
           ((= size "A4") (setq p2 '(297 210)))
           (t             (setq p2 '(420 297)))
      )
    (setq p1 '(0 0))
    (command "rectang" p1 p2)
    (command "zoom" "A")
    (prin1)
    )