zzz8662 发表于 2004-7-17 11:09:00

[求助]多段线的凸度和弧半径有什么关系？

多段线的凸度和弧半径有什么关系？


我只知道两个点以及他们之间的弧半径，能确定这部分的凸度吗？

雪山飞狐_lzh 发表于 2004-7-17 11:19:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4022" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4022</A>

yjtdkj 发表于 2021-6-28 11:22:56

本帖最后由 yjtdkj 于 2021-6-28 11:40 编辑

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

wuyunpeng888 发表于 2021-7-10 13:01:19

对象模型帮助上有详细的解释
页: [1]
查看完整版本: [求助]多段线的凸度和弧半径有什么关系？