社区 › Auto Lisp › lisp表示面积（平方英尺）

Lee Mac 发表于 2022-7-6 10:06:56

2010年，作为对直肠司令部的模仿。。。
 
(defun c:arec ( / an ar p1 x )
(if
   (and
   (setq p1 (getpoint "\nSpecify first corner point: "))
   (progn (initget 6)
       (setq ar (getreal "\nSpecify Area for Rectangle: "))
   )
   (progn (initget "Length Width")
       (setq an (getkword "\nCalculate rectangle dimensions based on <Length>: "))
       (if (eq "Width" an)
         (setq x (getdist "\nSpecify rectangle width: " p1))
         (setq x (getdist "\nSpecify rectangle length: "p1))
       )
   )
   )
   (command "_.rectang" "_non" p1 "_non"
   (polar
       (polar p1 (if (eq "Width" an) 0. (/ pi 2.)) x)
       (if (eq "Width" an) (/ pi 2.) 0.)
       (/ ar x)
   )
   )
)
(princ)
)

jcalla 发表于 2022-7-6 10:09:14

李·麦克
然而，在正确的路径上，上述常规区域默认为平方英寸。你能把你的魔术改成默认的平方英尺吗？
JPC公司

Lee Mac 发表于 2022-7-6 10:11:44

这
 
编辑：转换出错。。

jcalla 发表于 2022-7-6 10:16:38

李·麦克，
当我调用它时，会出现“畸形列表”错误。
 
JPC公司

Lee Mac 发表于 2022-7-6 10:20:22

你复制了所有代码吗？

jcalla 发表于 2022-7-6 10:24:05

是的，先生，我当然知道。您以前的代码运行良好，但我在这一个中遇到了“错误列表”错误。
 
JPC公司

查看完整版本: lisp表示面积（平方英尺）