[LISP程序]：给定两点和弦长画圆弧

wkai

给定两点和弦长画圆弧

2. 
   
3. (defun C:TT  (/ P1 P2 DS DI A1 A2 AM RE N)
   
4.   (defun MKARC_SEA  (P1 P2 ANG / E)
   
5. (vl-load-com)
   
6.   (command "arc" "non" P1 "e" "non" P2 "d" "non" (polar P1 (+ ANG (angle P1 P2)) 1000))
   
7.   (setq E (entlast))
   
8.   (list (vlax-curve-getdistatparam E (vlax-curve-getendparam E)) E))
   
9.   (setq        P1 (getpoint "\圆弧起点：")
   
10.         P2 (getpoint "\圆弧终点：")
    
11.         DS (distance P1 P2))
    
12.   (princ (strcat "\n弦长:" (rtos DS 2 4)))
    
13.   (while (not (and (setq DI (getreal "\n输入弧长：")) (> DI DS)))(princ "\n无效输入！"))
    
14.   (setq        A1 0        A2 3.1415926        N  0)
    
15.   (while (and (setq RE (MKARC_SEA P1 P2 (setq AM (/ (+ A1 A2) 2.0))))
    
16.               (not (equal DI (car RE) 1e-10)))
    
17.     (if        (> (car RE) DI)
    
18.       (setq A2 AM)
    
19.       (setq A1 AM))
    
20.     (entdel (cadr RE))
    
21.     (setq N (1+ N)))
    
22.   (print N)
    
23.   (if (getpoint "\n反向?")(command "mirror" (cadr re) "" "non" p1 "non" p2 "y"))
    
24.   (princ))
    
25. (princ "\n给定两点和弦长画圆弧 by wkai from XDCAD.net")
    
26. (princ "\n命令:TT")
    

<br /> (defun C:TT  (/ P1 P2 DS DI A1 A2 AM RE N)<br />   (defun MKARC_SEA  (P1 P2 ANG / E)<br /> (vl-load-com)<br />   (command "arc" "non" P1 "e" "non" P2 "d" "non" (polar P1 (+ ANG (angle P1 P2)) 1000))<br />   (setq E (entlast))<br />   (list (vlax-curve-getdistatparam E (vlax-curve-getendparam E)) E))<br />   (setq        P1 (getpoint "\圆弧起点：")<br />         P2 (getpoint "\圆弧终点：")<br />         DS (distance P1 P2))<br />   (princ (strcat "\n弦长:" (rtos DS 2 4)))<br />   (while (not (and (setq DI (getreal "\n输入弧长：")) (> DI DS)))(princ "\n无效输入！"))<br />   (setq        A1 0        A2 3.1415926        N  0)<br />   (while (and (setq RE (MKARC_SEA P1 P2 (setq AM (/ (+ A1 A2) 2.0))))<br />               (not (equal DI (car RE) 1e-10)))<br />     (if        (> (car RE) DI)<br />       (setq A2 AM)<br />       (setq A1 AM))<br />     (entdel (cadr RE))<br />     (setq N (1+ N)))<br />   (print N)<br />   (if (getpoint "\n反向?")(command "mirror" (cadr re) "" "non" p1 "non" p2 "y"))<br />   (princ))<br /> (princ "\n给定两点和弦长画圆弧 by wkai from XDCAD.net")<br /> (princ "\n命令:TT")<br />

雨箭风刀

好像它山之石还是谁以前做过一个，思路大概差不多。逼近法