悬赏求一个画圆的小功能

664571221

如题，有轴网，选择两条轴线，在轴线处画一个直径1000的红色的圆，如图片，选了b轴线和3轴线，就在他们交点处画一个圆形

664571221

相当于两直线的交点处画一个红色的直径1000的圆形

vectra

1. (defun c:tt (/ l1 l2 p)
   
2.   (if (and (princ "选择第一条直线:")
   
3.            (while (not l1)
   
4.              (setq l1 (ssget ":E:S" '((0 . "LINE"))))
   
5.            )
   
6.            (princ "选择第二条直线:")
   
7.            (while (not l2)
   
8.              (setq l2 (ssget ":E:S" '((0 . "LINE"))))
   
9.            )
   
10.            (setq l1 (ssname l1 0)
    
11.                  l2 (ssname l2 0)
    
12.                  p  (inters (cdr (assoc 10 (entget l1)))
    
13.                             (cdr (assoc 11 (entget l1)))
    
14.                             (cdr (assoc 10 (entget l2)))
    
15.                             (cdr (assoc 11 (entget l2)))
    
16.                             t
    
17.                     )
    
18.            )
    
19.       )
    
20.     (entmake
    
21.       (list (cons 0 "CIRCLE") (cons 10 p) (cons 40 500.) (cons 62 1))
    
22.     )
    
23.     (princ "无效选择或无交点。")
    
24.   )
    
25.   (princ)
    
26. )

(defun c:tt (/ l1 l2 p)<br />   (if (and (princ "选择第一条直线:")<br />            (while (not l1)<br />              (setq l1 (ssget ":E:S" '((0 . "LINE"))))<br />            )<br />            (princ "选择第二条直线:")<br />            (while (not l2)<br />              (setq l2 (ssget ":E:S" '((0 . "LINE"))))<br />            )<br />            (setq l1 (ssname l1 0)<br />                  l2 (ssname l2 0)<br />                  p  (inters (cdr (assoc 10 (entget l1)))<br />                             (cdr (assoc 11 (entget l1)))<br />                             (cdr (assoc 10 (entget l2)))<br />                             (cdr (assoc 11 (entget l2)))<br />                             t<br />                     )<br />            )<br />       )<br />     (entmake<br />       (list (cons 0 "CIRCLE") (cons 10 p) (cons 40 500.) (cons 62 1))<br />     )<br />     (princ "无效选择或无交点。")<br />   )<br />   (princ)<br /> )