两点画弧，求高手帮忙加一个循环。
本帖最后由 cq4920 于 2020-6-22 16:27 编辑[*](defun C:ac(/ p1 p2 p3 os cm hh)
[*] (setq cm (getvar "cmdecho")
[*] os (getvar "osmode"))
[*](setvar "CMDECHO" 0)
[*](command "color" "bylayer")
[*] (command "_undo" "be")
[*]
[*](setq p1 (getpoint "指定一点: "))
[*](setq p2 (getpoint "指定下一点: "))
[*](setq hh (distance p1 p2))
[*](setq p3 (polar p1 (+ (angle p1 p2) (/ pi 6)) (/ hh 2)))
[*](command "arc" p1 p3 p2 "")
[*]
[*](command "_undo" "e")
[*](setvar "OSMODE" os)
[*](setvar "cmdecho" cm)
[*](princ)
[*])
两点画弧的命令，用来做个灯具连线！帮忙给加个循环，使我能依次点击下一个点，来连续画弧！
(defun C:ac()(command "arc" "@"pause pause))
这个是我现在用的，
缺点1.第一个圆弧需要用“ARC”来画，
缺点2.相同间距弧的弧度大小不统一！
页:
[1]
2