IF语句
我有一个小问题，让这个工作。它就快到了，但我认为IF语句和我一样困惑。我可能理解，可能还有其他方法来编写这个程序，但请容忍我任何帮助都将不胜感激
当做
托尼
B-L.pdf 在第一个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)
) 谢谢，Frank很好，现在告诉我“无”有什么作用 _“无”仅为以下点设置当前捕捉设置。
通过将其置为零，它不会与现有实体冲突。 这看起来是属性化动态块的完美应用。 在类似主题中，正方形和圆形以及alpha或数字的效果可能会更好。请随时修改。
pt num气泡。lsp
页:
[1]