slw7310 发表于 2014-5-21 16:29:06

谢谢高手指点！！

cdinten 发表于 2014-5-22 14:39:18

看这两个博文：
http://379910987.blog.163.com/blog/static/33523797201011184552167/
http://379910987.blog.163.com/blog/static/33523797201011114612110/

slw7310 发表于 2014-5-22 22:23:18

谢谢指导！

yjtdkj 发表于 2021-6-28 11:20:27

本帖最后由 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)
)
)
)

成精的熊大 发表于 2021-12-11 19:46:55

插个眼:lol
页: 1 [2]
查看完整版本: 已知 圆弧的半径 起始角 终止角 圆心坐标 求凸度（正负）