AutoCAD 角度精度设置问题和lisp 条件函数问题

xxxooo

Q1：使用AutoCAD时需要角度单位精确到小数秒，但是AutoCAD默认是度，设置无法保存，每次都要重新做，比较麻烦。

那么问题来了：有没有办法更改并保存系统变量，或每次启动时加载用来自动更改设置的小程序？



Q2：本人刚开始学习lisp，关于if、and、or、cond等函数拿不准，特来请教。

     (setq www (getint "\n输入数值：100 150 200 250 300 <默认200>:"))
     (if (and (/= www 100 150 200 250 300)) (setq www 200))
     (if (= www 100)
         (command "insert" "A100" b1 "" "" ""))
     (if (= www 150)
         (command "insert" "A150" b1 "" "" ""))
     (if (= www 200)
         (command "insert" "A200" b1 "" "" ""))
     (if (= www 250)
         (command "insert" "A250" b1 "" "" ""))
     (if (= www 300)
         (command "insert" "A300" b1 "" "" ""))

程序的目的：www变量为100 150 200 250 300时，插入A打头的相应块；如果默认不选择或输入错误，自动选择200。


请问，为达成这个目的，可以怎么简化程序？ 另外if、and、or、cond到底怎么用？


谢谢大佬不吝赐教！

baitang36

(setq www (getint "\n输入数值：100 150 200 250 300 <默认200>:"))
     ;(if (and (/= www 100 150 200 250 300)) (setq www 200))
   
     (cond
     ((= www 100)(command "insert" "A100" b1 "" "" ""))
     ((= www 150)(command "insert" "A150" b1 "" "" ""))
     ((= www 200)(command "insert" "A200" b1 "" "" ""))
     ((= www 250)(command "insert" "A250" b1 "" "" ""))
     ((= www 300)(command "insert" "A300" b1 "" "" ""))
     (T (command "insert" "A200" b1 "" "" ""))                       
     )
；也可以试试下面的：

(setq www (getint "\n输入数值：100 150 200 250 300 <默认200>:"))
    (IF (AND (/= 100 WWW) (/= 150 WWW)(/= 250 WWW)(/= 300 WWW))            
        (setq www 200)
    )
    (SETQ ASTR (STRCAT "A" (VL-PRINC-TO-STRING WWW)))
    (command "insert" ASTR  b1 "" "" "")

xxxooo

baitang36 发表于 2022-5-2 12:23
(setq www (getint "\n输入数值：100 150 200 250 300 :"))
     ;(if (and (/= www 100 150 200 250 300) ...

感谢大佬，运行完美。请问 and函数怎么用，我的码错在哪里呢

baitang36

xxxooo 发表于 2022-5-2 12:34
感谢大佬，运行完美。请问 and函数怎么用，我的码错在哪里呢

（setq www (getint "\n输入数值：100 150 200 250 300 <默认200>:"))
    (IF (AND (/= 100 WWW) (/= 150 WWW)(/= 250 WWW)(/= 300 WWW))            
        (setq www 200)
    )
    (SETQ ASTR (STRCAT "A" (VL-PRINC-TO-STRING WWW)))
    (command "insert" ASTR  b1 "" "" "")

xxxooo

baitang36 发表于 2022-5-2 12:36
（setq www (getint "\n输入数值：100 150 200 250 300 :"))
    (IF (AND (/= 100 WWW) (/= 150 WWW)(/ ...

一样完美通过，感谢赐教，值得我好好学习一阵子了！

baitang36

(if (and (/= www 100 150 200 250 300)) (setq www 200))你这句代码的意思是 www 100 150 200 250 300这几个数不相等时，才让www=200，这条件是永远成立的，结果是永远是200

xxxooo

baitang36 发表于 2022-5-2 12:49
(if (and (/= www 100 150 200 250 300)) (setq www 200))你这句代码的意思是 www 100 150 200 250 300这几 ...

原来如此，感谢