[求助]如何画出圆弧的两个切线

duotu007

修改了下6楼的程序，单只能选择圆弧，单常用的多段线，哪位大侠能把多段线里的圆弧也加进去呢？

 

 

(defun C:XNJD (/ p1 p2 p3 p4 p5)
  (setq p1 (entsel "\n选取一段圆弧: ")) ;获取图元名
  (if p1
    (progn
      (setq p0 (entget (car p1)))  ;获取图元表
      (setq p1 (cdr (assoc 0 p0)))        ;获取表的0位置元素即类型ARC
    )
  )
  (if (/= p1 "ARC")
    (prompt "\n选择的不是圆弧,请再试...")
  )
  (setq CEN (cdr (assoc 10 p0)))         ;获取圆弧圆心
  (setq RAD (cdr (assoc 40 p0)))         ;获取圆弧半径
  (setq JDQ (cdr (assoc 50 p0)))         ;获取起始角度
  (setq JDZ (cdr (assoc 51 p0)))         ;获取终止角度

  (setq p1 (polar CEN JDQ RAD)         ;获取圆弧起始点
        p2 (polar CEN JDZ RAD)         ;获取圆弧终止点
        p3 (polar p1 (+ (/ pi 2) JDQ) RAD)  ;获取起始点切线方向的半径点
        p4 (polar p2 (+ (/ pi 2) JDZ) RAD)  ;获取终止点切线方向的半径点
        p5 (inters p1 p3 p2 p4 nil)          ;切线交点
  )
  (if (not p5)
    (prompt "\n没有交点...")
   )
 (command "_.line" p1 p5 "")
 (command "_.line" p2 p5 "")

  (princ)
)

sailorcwx

你的图是比较理想的情况，实际上圆弧段的两个点不一定是切点。如果是求两个圆弧端点的切线的交点，那么只需要圆心和切点连接，然后转个90°可以求了。如果不是，那如何确定这个切点呢？

狂刀无痕

方法1：

根据凸度段参数求圆心，由圆心与凸段两个端点求切线交点

方法2：

求凸度段前后两段直段端点，4个端点求交点（可以用数学方法，也可以用 lisp函数 inters)

方法 3：

(vlax-curve-getFirstDeriv curve-obj param)

 

linshiyin2

duotu007已经解决了多余的切线部分，哪位大侠能修改成多段线的圆弧。

gufeng

2. (defun c:test (/ LAST_OBJ LAST_SE OBJ OBJ_DATA OBJ_DATA_LIST OBJ_I OBJ_NAME)
3.   (defun XNJD (p0 / CEN JDQ JDZ P1 P2 P3 P4 P5 RAD)
4.     (setq CEN (cdr (assoc 10 p0))) ;获取圆弧圆心
5.     (setq RAD (cdr (assoc 40 p0))) ;获取圆弧半径
6.     (setq JDQ (cdr (assoc 50 p0))) ;获取起始角度
7.     (setq JDZ (cdr (assoc 51 p0))) ;获取终止角度
8.     (setq p1 (polar CEN JDQ RAD) ;获取圆弧起始点
9.    p2 (polar CEN JDZ RAD) ;获取圆弧终止点
10.    p3 (polar p1 (+ (/ pi 2) JDQ) RAD)
11.      ;获取起始点切线方向的半径点
12.    p4 (polar p2 (+ (/ pi 2) JDZ) RAD)
13.      ;获取终止点切线方向的半径点
14.    p5 (inters p1 p3 p2 p4 nil) ;切线交点
15.     )
16.     (if (not p5)
17.       (prompt "\n没有交点...")
18.     )
19.     (command "_.line" p1 p5 "")
20.     (command "_.line" p2 p5 "")
21.   )
22.   
23.   (setq obj (ssget '((0 . "*POLYLINE"))))
24.   (if obj
25.     (progn
26.       (setq last_obj (ssget "p"))
27.       (setq obj_data_list '())
28.       (command "_undo" "mark")
29.       (command "_explode" obj)
30.       (setq last_se (ssget "p"))
31.       (if (not (eq last_se last_obj))
32. (progn
33.    (setq obj_i -1)
34.    (repeat (sslength last_se)
35.      (setq obj_name (ssname last_se (setq obj_i (1+ obj_i))))
36.      (setq obj_data (entget obj_name))
37.      (if (= (cdr (assoc 0 obj_data)) "ARC")
38.        (progn
39.   (setq obj_data_list
40.          (append (list obj_data) obj_data_list)
41.   )
42.        )
43.      )
44.      )
45.    )
46. )
47.       (command "_undo" "back")
48.       (if obj_data_list
49. (progn
50.    (foreach i obj_data_list
51.      (XNJD i)
52.      )
53.    )
54. )
55.       )
56.     )
57.   (princ)
58.   )

(defun c:test (/ LAST_OBJ LAST_SE OBJ OBJ_DATA OBJ_DATA_LIST OBJ_I OBJ_NAME)   (defun XNJD (p0 / CEN JDQ JDZ P1 P2 P3 P4 P5 RAD)     (setq CEN (cdr (assoc 10 p0))) ;获取圆弧圆心     (setq RAD (cdr (assoc 40 p0))) ;获取圆弧半径     (setq JDQ (cdr (assoc 50 p0))) ;获取起始角度     (setq JDZ (cdr (assoc 51 p0))) ;获取终止角度     (setq p1 (polar CEN JDQ RAD) ;获取圆弧起始点    p2 (polar CEN JDZ RAD) ;获取圆弧终止点    p3 (polar p1 (+ (/ pi 2) JDQ) RAD)      ;获取起始点切线方向的半径点    p4 (polar p2 (+ (/ pi 2) JDZ) RAD)      ;获取终止点切线方向的半径点    p5 (inters p1 p3 p2 p4 nil) ;切线交点     )     (if (not p5)       (prompt "\n没有交点...")     )     (command "_.line" p1 p5 "")     (command "_.line" p2 p5 "")   )      (setq obj (ssget '((0 . "*POLYLINE"))))   (if obj     (progn       (setq last_obj (ssget "p"))       (setq obj_data_list '())       (command "_undo" "mark")       (command "_explode" obj)       (setq last_se (ssget "p"))       (if (not (eq last_se last_obj)) (progn    (setq obj_i -1)    (repeat (sslength last_se)      (setq obj_name (ssname last_se (setq obj_i (1+ obj_i))))      (setq obj_data (entget obj_name))      (if (= (cdr (assoc 0 obj_data)) "ARC")        (progn   (setq obj_data_list          (append (list obj_data) obj_data_list)   )        )      )      )    ) )       (command "_undo" "back")       (if obj_data_list (progn    (foreach i obj_data_list      (XNJD i)      )    ) )       )     )   (princ)   )

linshiyin2

楼上的可用，我刚想把我的写出来呢，你比我快

zwf100

不错，炸开之后，获取圆弧的属性

技术工作室

正是我想要的，赞一个