自动绘制圆弧切线，适合总图用－by eachy

XDSoft

2. ;|
   
3.   命令：get_tan
   
4. 
   
5.   功能：绘制圆弧线
   
6. 
   
7.   请配合XDRX_API Build1208以上版本使用
   
8. |;
   
9. (defun c:get_tan (/ e sp cp ep mp cp pt ang)
   
10.   (xdrx_begin)
    
11.   (xdrx_ucson)
    
12.   (if (and
    
13.     (setq e (car (xdrx_entsel "\n选择圆弧: " '((0 . "arc")))))
    
14.     (setq sp  (car (xdrx_curve_GetPoint e))
    
15.           ep  (last (xdrx_curve_GetPoint e))
    
16.           cp  (xdrx_getentdxf 10)
    
17.           mp  (polar sp (angle sp ep) (/ (distance sp ep) 2))
    
18.           ang (car (xdrx_getperpline e sp))
    
19.           pt  (inters cp mp sp (polar sp ang 1) nil)
    
20.     )
    
21.       )
    
22.     (progn
    
23.       (setvar "clayer" (xdrx_getentdxf 8))
    
24.       (xdrx_line1 sp pt)
    
25.       (xdrx_line1 pt ep)
    
26.     )
    
27.   )
    
28.   (xdrx_ucsoff)
    
29.   (xdrx_end)
    
30.   (princ)
    
31. )

;| <br />   命令：get_tan <br /> <br />   功能：绘制圆弧线 <br /> <br />   请配合XDRX_API Build1208以上版本使用 <br /> |; <br /> (defun c:get_tan (/ e sp cp ep mp cp pt ang) <br />   (xdrx_begin) <br />   (xdrx_ucson) <br />   (if (and <br />     (setq e (car (xdrx_entsel "\n选择圆弧: " '((0 . "arc"))))) <br />     (setq sp  (car (xdrx_curve_GetPoint e)) <br />           ep  (last (xdrx_curve_GetPoint e)) <br />           cp  (xdrx_getentdxf 10) <br />           mp  (polar sp (angle sp ep) (/ (distance sp ep) 2)) <br />           ang (car (xdrx_getperpline e sp)) <br />           pt  (inters cp mp sp (polar sp ang 1) nil) <br />     ) <br />       ) <br />     (progn <br />       (setvar "clayer" (xdrx_getentdxf 8)) <br />       (xdrx_line1 sp pt) <br />       (xdrx_line1 pt ep) <br />     ) <br />   ) <br />   (xdrx_ucsoff) <br />   (xdrx_end) <br />   (princ) <br /> )