[LISP程序]：向高手请教--如何画任意三角形的内切园

liuqian0204

我是lsp的初学者,如何用lsp解决上述问题?

eachy

最初由 liuqian0204 发布
[B]我是lsp的初学者,如何用lsp解决上述问题? [/B]

找两个角平分线，求交点得圆心，然后求点到任意边的距离为半径。这是基本的几何问题。

如果是已知直线，在CAD的绘制菜单中有绘制相切圆方法。

liuqian0204

多谢斑竹回复,请问这两种方法用lsp如何表达?

f5612140

用畫圓"3p" tan tan tan 的觀念較快

limingqian

多从几何关系方面去总结，得出方法之后再去编程。

LUCAS

2. 
   
3. ;;By LUCAS
   
4. ;;如何画任意三角形的内切圆
   
5. (defun C:TT (/ N PT1 PT2 PT3)
   
6.   (defun MIDPOINT (PT1 PT2)
   
7.     (mapcar
   
8.       '(lambda (X Y)
   
9.          (* 0.5 (+ X Y))
   
10.        )
    
11.       PT1
    
12.       PT2
    
13.     )
    
14.   )
    
15.   (setq N 1)
    
16.   (command "_.line")
    
17.   (repeat 3
    
18.     (prompt (strcat "\n任意三角形第" (rtos N) "点:"))
    
19.     (command PAUSE)
    
20.     (set (read (strcat "PT" (rtos N))) (getvar "lastpoint"))
    
21.     (setq N (1+ N))
    
22.   )
    
23.   (command PT1 "")
    
24.   (command "_.CIRCLE"
    
25.            "3P"
    
26.            "TAN"
    
27.            (MIDPOINT PT1 PT2)
    
28.            "TAN"
    
29.            (MIDPOINT PT2 PT3)
    
30.            "TAN"
    
31.            (MIDPOINT PT3 PT1)
    
32.   )
    
33.   (princ)
    
34. )
    

<br /> ;;By LUCAS<br /> ;;如何画任意三角形的内切圆 <br /> (defun C:TT (/ N PT1 PT2 PT3)<br />   (defun MIDPOINT (PT1 PT2)<br />     (mapcar<br />       '(lambda (X Y)<br />          (* 0.5 (+ X Y))<br />        )<br />       PT1<br />       PT2<br />     )<br />   )<br />   (setq N 1)<br />   (command "_.line")<br />   (repeat 3<br />     (prompt (strcat "\n任意三角形第" (rtos N) "点:"))<br />     (command PAUSE)<br />     (set (read (strcat "PT" (rtos N))) (getvar "lastpoint"))<br />     (setq N (1+ N))<br />   )<br />   (command PT1 "")<br />   (command "_.CIRCLE"<br />            "3P"<br />            "TAN"<br />            (MIDPOINT PT1 PT2)<br />            "TAN"<br />            (MIDPOINT PT2 PT3)<br />            "TAN"<br />            (MIDPOINT PT3 PT1)<br />   )<br />   (princ)<br /> )<br />

liuqian0204

感谢六楼高手的赐教,以后还请多多指教。谢谢!

sxlxf

很简单的几何做图方法,初中"几何"有讲的