求助起点端点拱高画圆

hbxymx

求助，1指定圆弧起点，2输入A到B之间距离（或鼠标指定第二端点），3输入圆弧拱高，画圆的LISP代码。

夏生生

瞎写的，试试

1. (defun c:tt  (/ en1 en2 h pt1 pt2 pt3 pt4 x y)
   
2. (command "undo""be")
   
3. 
   
4. (setq pt1 (getpoint "\n拱起点：")
   
5.        pt2 (getpoint pt1 "\n拱终点：")
   
6.        pt3 (mapcar '(lambda (x y) (* 0.5 (+ x y))) pt1 pt2)
   
7.        pt4 (polar pt3 (* 0.5 pi) (* 0.5 (distance pt1 pt2))))
   
8. (command "line" "none" pt1 "none" pt2 "")
   
9. (setq en1 (entlast))
   
10. (command "line" "none" pt3 "none" pt4 "")
    
11. (setq en2 (entlast))
    
12. (setq h   (getreal "\n矢高:")
    
13.        pt3 (polar pt3
    
14.                   (* 0.5 pi)
    
15.                   h))
    
16. (command "arc" "none" pt1 "none" pt3 "none" pt2)
    
17. (entdel en1)
    
18. (entdel en2)
    
19. (command "undo" "e")
    
20. (princ))

(defun c:tt  (/ en1 en2 h pt1 pt2 pt3 pt4 x y)<br /> (command "undo""be")<br /> <br /> (setq pt1 (getpoint "\n拱起点：")<br />        pt2 (getpoint pt1 "\n拱终点：")<br />        pt3 (mapcar '(lambda (x y) (* 0.5 (+ x y))) pt1 pt2)<br />        pt4 (polar pt3 (* 0.5 pi) (* 0.5 (distance pt1 pt2))))<br /> (command "line" "none" pt1 "none" pt2 "")<br /> (setq en1 (entlast))<br /> (command "line" "none" pt3 "none" pt4 "")<br /> (setq en2 (entlast))<br /> (setq h   (getreal "\n矢高:")<br />        pt3 (polar pt3<br />                   (* 0.5 pi)<br />                   h))<br /> (command "arc" "none" pt1 "none" pt3 "none" pt2)<br /> (entdel en1)<br /> (entdel en2)<br /> (command "undo" "e")<br /> (princ))

kozmosovia

这不就是3点画圆弧。几行代码的事，让AI写一个。

hbxymx

夏生生 发表于 2025-10-29 12:51
瞎写的，试试

输入拱高后，后面出现红框里的内容。麻烦你看一下可以去掉这个提示吗

夏生生

hbxymx 发表于 2025-10-29 16:27
输入拱高后，后面出现红框里的内容。麻烦你看一下可以去掉这个提示吗

板凳改了下，加个princ即可

hbxymx

夏生生 发表于 2025-10-29 16:36
板凳改了下，加个princ即可

谢谢！