[讨论]捕捉指定长度的弧终止点

xyz2009xyz · 发表于 2010-8-20 19:31:00

画指定长度的弧

有一个圆半径已知，我想在圆上已知一个起点捕捉指定弧长另一个终止点的LSP程序。

想法是：选取对象圆，再选取圆上第一个点，通过第一个点画一条直线连接圆心，然后根据输入弧长计算角度，把这条直线旋转一个角度与圆有一个交点，这个交点就对应了要捕捉的弧长，但是不知道怎么写，希望有人帮帮忙！谢谢

ZZXXQQ · 发表于 2010-8-20 21:20:00

本帖最后由作者于 2010-8-21 8:39:49 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

xyz2009xyz · 发表于 2010-8-20 22:27:00

本帖最后由作者于 2010-8-20 23:58:06 编辑

版主，我在直径8000圆上画300弧，但量出来是4981，是不是计算公式有问题啊？

仔细读了下好像那个polar角度是不是有问题啊？

xyz2009xyz · 发表于 2010-8-21 00:24:00

谢谢版主，问题解决，里面有一个参数写错了pt1 (polar pc (+ (angle pc pt) (/ rlen pi)) r)) 把pi改为r即可！

传一个完整带了注释版本，创作人：ZZXXQQ 感谢大家，分享快乐！

(defun c:HH ()
(setvar "CMDECHO" 0)
(if (and (setq s1 (entsel "\n选择圆(弧) :"))
(setq ent (entget(car s1)))
(or (= (cdr(assoc 0 ent)) "ARC") (= (cdr(assoc 0 ent)) "CIRCLE"))
)
(progn
(setq pc (cdr(assoc 10 ent))
r (cdr(assoc 40 ent))
);;获取圆心pc坐标和圆的半径r
(if (= (cdr(assoc 0 ent)) "ARC")
(setq len (* (- (cdr(assoc 51 ent)) (cdr(assoc 50 ent))) r))
(setq len (* r 2 pi));获取圆周长或者圆弧长度len
)
(if (< (setq rlen (getdist (strcat "\n输入弧长(小于" (rtos len 2 3) ") :"))) len)
(progn
(setq pt (osnap (cadr s1) "NEAR")
pt1 (polar pc (+ (angle pc pt) (/ rlen r)) r))
;计算相对角度对应的弧度(+ (angle pc pt) (/ rlen r))，再通过polar函数转化为pt1坐标点
(command ".LINE" pt pc pt1 "" ".ARC" pt "C" pc pt1)
;画线与圆弧
)
)
)
)
(princ)
)

xyp1964 · 发表于 2010-8-21 10:43:00

;; 定长弧线绘制
(defun c:tt ()
(setq dist (Udist 1 "" "弧长<输入或鼠标直接量取>" dist nil))
(if (and (setq e1 (entsel "\n选择圆(弧): ")
s1 (car e1)
ent (entget s1)
)
(or (= (cdr (assoc 0 ent)) "ARC")
(= (cdr (assoc 0 ent)) "CIRCLE")
)
)
(progn
(xyp-MkLaCo "TEST" 1)
(setq pc (cdr (assoc 10 ent))
r (cdr (assoc 40 ent))
p1 (osnap (cadr e1) "NEAR")
leng (xyp-get-CurveLength s1)
l1 (XYP-GET-LENGTHATPOINT s1 p1)
l1a (+ l1 dist)
l1b (- l1 dist)
)
(if (<= l1a leng)
(setq p2 (XYP-GET-CURVEPOINTATDIST s1 (+ l1 (* dist 0.5)))
p3 (XYP-GET-CURVEPOINTATDIST s1 l1a)
s2 (XYP-ARC-3PT P1 p2 p3)
s3 (xyp-add-line p1 pc)
s4 (xyp-add-line p3 pc)
)
)
(if (>= l1b 0)
(setq p2 (XYP-GET-CURVEPOINTATDIST s1 (- l1 (* dist 0.5)))
p3 (XYP-GET-CURVEPOINTATDIST s1 l1b)
s5 (XYP-ARC-3PT P1 p2 p3)
s6 (xyp-add-line p3 pc)
s4 (if (= s4 nil)
(xyp-add-line p1 pc)
)
)
)
)
)
(princ)
)

;; 定长弧线绘制
(defun c:tt ()
  (setq dist (Udist 1 "" "弧长<输入或鼠标直接量取>" dist nil))
  (if (and (setq e1  (entsel "\n选择圆(弧): ")
   s1  (car e1)
   ent (entget s1)
    )
    (or (= (cdr (assoc 0 ent)) "ARC")
        (= (cdr (assoc 0 ent)) "CIRCLE")
    )
      )
    (progn
      (xyp-MkLaCo "TEST" 1)
      (setq pc  (cdr (assoc 10 ent))
     r  (cdr (assoc 40 ent))
     p1  (osnap (cadr e1) "NEAR")
     leng (xyp-get-CurveLength s1)
     l1  (XYP-GET-LENGTHATPOINT s1 p1)
     l1a  (+ l1 dist)
     l1b  (- l1 dist)
      )
      (if (<= l1a leng)
 (setq p2 (XYP-GET-CURVEPOINTATDIST s1 (+ l1 (* dist 0.5)))
       p3 (XYP-GET-CURVEPOINTATDIST s1 l1a)
       s2 (XYP-ARC-3PT P1 p2 p3)
       s3 (xyp-add-line p1 pc)
       s4 (xyp-add-line p3 pc)
 )
      )
      (if (>= l1b 0)
 (setq p2 (XYP-GET-CURVEPOINTATDIST s1 (- l1 (* dist 0.5)))
       p3 (XYP-GET-CURVEPOINTATDIST s1 l1b)
       s5 (XYP-ARC-3PT P1 p2 p3)
       s6 (xyp-add-line p3 pc)
       s4 (if (= s4 nil)
     (xyp-add-line p1 pc)
   )
 )
      )
    )
  )
  (princ)
)

xyp1964 · 发表于 2010-8-21 10:57:00

有可能存在正反两个弧线

账号		自动登录	找回密码
密码			注册