已知 圆弧的半径 起始角 终止角 圆心坐标 求凸度（正负）

slw7310

谢谢高手指点！！

cdinten

看这两个博文：
http://379910987.blog.163.com/bl ... 797201011184552167/
http://379910987.blog.163.com/bl ... 797201011114612110/

slw7310

谢谢指导！

yjtdkj

1. ;取圆弧凸度-------------yjtdkj by 2021.06
   
2. (defun c:tt ()
   
3.   (progn
   
4.   (defun yj-dxf (key ename) (cdr (assoc key (entget ename))))
   
5.   (defun mid (p1 p2)
   
6.       (mapcar (function (lambda (e1 e2) (* (+ e1 e2) 0.5))) p1 p2)
   
7.     )
   
8.     )
   
9.   (setq en (car (entsel)))
   
10.   (setq  
    
11.   r     (dxf 40 en)
    
12.   pt1   (vlax-curve-getstartPoint en)
    
13.   pt2   (vlax-curve-getEndPoint en)
    
14.   ptm   (mid pt1 pt2)
    
15.   len   (vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))
    
16.   cpm   (vlax-curve-getpointAtdist en (/ len 2))
    
17.   dis   (distance pt1 pt2)   
    
18.   h     (distance ptm cpm)
    
19.   )
    
20.   (setq tu (/ h (* dis 0.5)))
    
21.   (setq
    
22.     a (-(cadr pt2) (cadr pt1))
    
23.     b (-(car pt1)(car pt2))
    
24.     c (-(* -1 a (car pt1))(* b (cadr pt1)))
    
25.     d1 (-(* -1 a (car cpm))(* b (cadr cpm)))
    
26.   )
    
27.   (cond
    
28.     ((= d1 c)
    
29.       (* tu 0)
    
30.   )
    
31.   ((> d1 c)
    
32.       (* tu -1)
    
33.   )
    
34.   ((< d1 c)
    
35.       (* tu 1)
    
36.   )
    
37. )
    
38. )
    
39. 
    

;取圆弧凸度-------------yjtdkj by 2021.06<br /> (defun c:tt ()<br />   (progn<br />   (defun yj-dxf (key ename) (cdr (assoc key (entget ename))))<br />   (defun mid (p1 p2)<br />       (mapcar (function (lambda (e1 e2) (* (+ e1 e2) 0.5))) p1 p2)<br />     )<br />     )<br />   (setq en (car (entsel)))<br />   (setq  <br />   r     (dxf 40 en)<br />   pt1   (vlax-curve-getstartPoint en)<br />   pt2   (vlax-curve-getEndPoint en)<br />   ptm   (mid pt1 pt2)<br />   len   (vlax-curve-getDistAtPoint en (vlax-curve-getEndPoint en))<br />   cpm   (vlax-curve-getpointAtdist en (/ len 2))<br />   dis   (distance pt1 pt2)    <br />   h     (distance ptm cpm)<br />   )<br />   (setq tu (/ h (* dis 0.5)))<br />   (setq <br />     a (-(cadr pt2) (cadr pt1))<br />     b (-(car pt1)(car pt2))<br />     c (-(* -1 a (car pt1))(* b (cadr pt1)))<br />     d1 (-(* -1 a (car cpm))(* b (cadr cpm)))<br />   )<br />   (cond <br />     ((= d1 c)<br />       (* tu 0)<br />   )<br />   ((> d1 c)<br />       (* tu -1)<br />   )<br />   ((< d1 c)<br />       (* tu 1)<br />   )<br /> )<br /> )<br /> <br />

成精的熊大

插个眼