今天完成的题目，请各位入内指导

lead009

这是我今天完成的题目
"点选图面的三角形，自动算出面积、画出内外接圆"

虽然对各位来说很简单，但是我为了这一题花了好多的功夫
完成之后，我觉得自己的程式好像太过冗长了
不知道哪边还可以进行修改的，请各位指导一下



---------------------------------------------------

3. (defun C:t1()
4.   (setq lineen01(entsel "select a line"));;0物件
5.   (setq lineen02(entsel "select a line"));;0物件
6.   (setq lineen03(entsel "select a line"));;0物件
7.   (setq line01(distline lineen01));;呼叫副程式
8.   (setq line02(distline lineen02));;呼叫副程式
9.   (setq line03(distline lineen03));;呼叫副程式
10.   (setq AA(area3 line01 line02 line03))
11.   (princ "\n 面積= \n")(princ AA)
12. ;;---------------算面積------------------------------;;
13.   
14.   (setq a (cadr lineen01));y物件
15.   (setq b (cadr lineen02));y物件
16.   (setq c (cadr lineen03));y物件
17.   (command "circle" "3p" "tan" a "tan" b "tan" c)
18. ;;---------------畫內切圓------------------------------;;
19.   (setq linedata (entget(car lineen01)));x物件>資料
20.   (setq p1(cdr(assoc 10 linedata)));子串列析出座標
21.   (setq p2(cdr(assoc 11 linedata)));子串列析出座標
22.   (setq p3(getpoint"選取第三點"))
23.   (command "circle" "3P" p1 p2 p3)
24. ;;---------------畫內切圓------------------------------;;
25.   (prin1)
26. )
28. ------------------------vc-----------------------
29. ;;得長度(點選線段)
30. (defun distline(xline)
31.   (setq p10(cdr(assoc 10 (entget (car xline)))));;析出起點座標
32.   (setq p11(cdr(assoc 11 (entget (car xline)))));;析出終點座標
33.   (setq ldist(distance p10 p11));;回傳值為數值，非直線
34. )
36. ;;;得三角形面積(輸入三邊長度)
37. (defun area3(a b c)
38.   (setq s(* (+ a b c) 0.5))
39.   (sqrt (* s (- s a) (- s b) (- s c)))
40. )

(defun C:t1()   (setq lineen01(entsel "select a line"));;0物件   (setq lineen02(entsel "select a line"));;0物件   (setq lineen03(entsel "select a line"));;0物件   (setq line01(distline lineen01));;呼叫副程式   (setq line02(distline lineen02));;呼叫副程式   (setq line03(distline lineen03));;呼叫副程式   (setq AA(area3 line01 line02 line03))   (princ "\n 面積= \n")(princ AA) ;;---------------算面積------------------------------;;      (setq a (cadr lineen01));y物件   (setq b (cadr lineen02));y物件   (setq c (cadr lineen03));y物件   (command "circle" "3p" "tan" a "tan" b "tan" c) ;;---------------畫內切圓------------------------------;;   (setq linedata (entget(car lineen01)));x物件>資料   (setq p1(cdr(assoc 10 linedata)));子串列析出座標   (setq p2(cdr(assoc 11 linedata)));子串列析出座標   (setq p3(getpoint"選取第三點"))   (command "circle" "3P" p1 p2 p3) ;;---------------畫內切圓------------------------------;;   (prin1) ) ------------------------vc----------------------- ;;得長度(點選線段) (defun distline(xline)   (setq p10(cdr(assoc 10 (entget (car xline)))));;析出起點座標   (setq p11(cdr(assoc 11 (entget (car xline)))));;析出終點座標   (setq ldist(distance p10 p11));;回傳值為數值，非直線 ) ;;;得三角形面積(輸入三邊長度) (defun area3(a b c)   (setq s(* (+ a b c) 0.5))   (sqrt (* s (- s a) (- s b) (- s c))) )

masterlong

1.

distline的形参定义的方式不好

你用到的形参是(entsel)的返回值

它实际上是一个双元表

这会限制主程序的编写

简单说就是你要用到(distline)

就必须按双元表的格式提供参数

比如说用(entsel)

如果是已知图元名的情况

你不能直接传递给(distline)

必须先(list 图元名 任意点坐标)

2.

按你的要求最后要画外接圆

那就意味着三直线均为首尾相连

所以你可以直接计算出外接圆的坐标

而不是手动选取

你可以任选第二线求两端点

将其与P1,P2比较后得出P3

3.

参数名不需要如此复杂

不是特别重要的参数

就用a、b、c又如何

4.

还是上次说的

函数库里的通用子程序里的参数

一定要写成内部参数

随着你水平的提高

你的程序会越来越复杂

有时候程序明明调试通过了

换个时间运行就是会出错

最奇怪的是怎么查都查不出错误....

 

ZZXXQQ

未对选择的目标进行判断。如果选择的不是LINE，程序会出错。

lead009

ZZXXQQ发表于2010-9-12 8:46:00未对选择的目标进行判断。如果选择的不是LINE，程序会出错。

什麼是為對選擇的目標進行判斷??   是用判斷式去判斷所選的圖形是不是直線嗎??

lead009

1.你第一點的意思是說，為了要讓副程式能夠接受的函數，所以(entsel)得到的形參，還要再經過 entget、car、cdr、等繁複的手續才能讓(distline)接受。你是說這樣的過程太複雜、也讓主程式為了要配合，而限制太多嗎??

可是目前我能想到的方式只有這個耶，有什麼比較好的的方式嗎? 

 

4.第四點的意思是說，副程式後面的括號()，distline來說，要填入(/xline)<----這樣子嗎??

xyp1964

lead009

真厲害，高手寫的就是不一樣

masterlong

关于1，4点你的理解基本正确

(car (entsel))比(entsel)适合参数传递

写个统计多条直线总长的程序练习一下

你就会明白了

形参、内参不是( / xline ... )这样写

而是( xline / ... )这样写

关于这个还是看那个帖子的范例吧

 

 

lead009

嗯嗯，我把它找相反了，哈哈

(自變量/內部變量)

 

等我學習到後面一點的章節，再來用你說的那個多條長線統計的方式

另外，我發現CAD中就有內建算面積的指令了"AREA"

好像就不用再另外用LISP寫海龍公式的程式出來，

這樣程式就可以再縮得更短了

 

謝謝你給我這麼多觀念，哈哈