[求助]求通過一點與兩線相切的圓[已解決]

chiou-wy

求助各位大俠：

如圖求通過一點並和兩線相切的圓（僅計算得半徑值即可） 程序（或計算程序）

先謝過各位大俠！

ZZXXQQ

;试试看

3. (defun c:tt ()
4. (setvar "CMDECHO" 0)
5. (setq oldos (getvar "OSMODE"))
6. (setvar "OSMODE" 0)
7. (if (and (setq s1 (entsel "\n选择圆弧 :"))
8.           (setq en (car s1))
9.           (setq ent (entget en))
10.           (= (cdr(assoc 0 ent)) "ARC")
11.       ) (progn
12.   (setq pc (cdr(assoc 10 ent))
13.         r  (cdr(assoc 40 ent))
14.         st (cdr(assoc 50 ent))
15.         ed (cdr(assoc 51 ent))
16.         ps (polar pc st r)
17.         pe (polar pc ed r)
18.         pm (osnap (cadr s1) "MID")
19.         ang (angle pm pc)
20.         pn (polar pm ang 0.5))
21.   (command "erase" en "")
22.   (command "circle" "3p" "tan" ps pn "tan" pe)
23.   (command "trim" "" "f" pc (polar pc ang (+ r r)) "" "")
24. ))
25. (setvar "OSMODE" oldos)
26. (setvar "CMDECHO" 1)
27. (princ)
28. )

(defun c:tt () (setvar "CMDECHO" 0) (setq oldos (getvar "OSMODE")) (setvar "OSMODE" 0) (if (and (setq s1 (entsel "\n选择圆弧 :"))           (setq en (car s1))           (setq ent (entget en))           (= (cdr(assoc 0 ent)) "ARC")       ) (progn   (setq pc (cdr(assoc 10 ent))         r  (cdr(assoc 40 ent))         st (cdr(assoc 50 ent))         ed (cdr(assoc 51 ent))         ps (polar pc st r)         pe (polar pc ed r)         pm (osnap (cadr s1) "MID")         ang (angle pm pc)         pn (polar pm ang 0.5))   (command "erase" en "")   (command "circle" "3p" "tan" ps pn "tan" pe)   (command "trim" "" "f" pc (polar pc ang (+ r r)) "" "") )) (setvar "OSMODE" oldos) (setvar "CMDECHO" 1) (princ) )

chiou-wy

感謝各位大俠關心

問題已解決