IF语句

TunzaGibbo · 发表于 2022-7-5 15:46:33

我有一个小问题，让这个工作。它就快到了，但我认为IF语句和我一样困惑。我可能理解，可能还有其他方法来编写这个程序，但请容忍我
任何帮助都将不胜感激

当做

托尼
B-L.pdf

FranknBeans · 发表于 2022-7-5 16:04:50

在第一个circle命令之后有一个额外的“”可能会把事情搞砸。您可以去掉opt1和opt2函数以及deltadtr，因为您只需要转换0度和180度。

(defun c:qqq ( / p1 p2 pp1 pp2 )
 (setvar "osmode"  (setvar "orthomode" 0)
 (initget 1)
 (setq p1 (getpoint "\nCenter of Detail Bubble:"))
 (command "_.circle" p1 PAUSE)
 (initget 1)
 (setq p2 (getpoint p1 "\nCenter of Text Bubble:"))
 (command "_.circle" p2 6.5)
 (if (< (car p1) (car p2))
     (setq pp1 (polar p2 0 6.5) pp2 (polar p2 pi 9.5))
     (setq pp1 (polar p2 pi 6.5) pp2 (polar p2 0 9.5))
 )
 (command "_.line" "_none" pp1 "_none" pp2 "")
 (princ)
)