关于副程式引数的问题

lead009

我在书上有看到一段副程式的引数例题

我就学着改

但是出现了这样的错误，连副程式都读不到=.=

怎么会这样，我是哪边错了呢?

; 錯誤: no function definition: LENGTH0

 

 

(书本例题)

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

(setq mp1(get_midpt pa pb))

(setq mp2(get_midpt pb pa))

(setq mp3(get_midpt pc pd))

(setq mp4(get_midpt pd pa))

 

(defun get_midpt(pt1 pt2))

 (setq mx(/ (+ car pt1) (car pt2)) 2))

 (setq my(/ (+ cadr pt1) (cadr pt2)) 2))

 (list mx my)

)

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

 

 

 

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

我就学着改

 

(defun C:test01()
  (setq line01 (length0 a))

  (setq line02 (length0 b))

  (setq line03 (length0 c))

  (setq line04 (length0 d))

)

 

(defun C:length0(xline)
  (setq xline(entsel"選取一直線"))
  (setq xlinedata(entget(car xline)))
  (setq xlinelist10(cdr(assoc 10 xlinedata)))
  (setq xlinelist11(cdr(assoc 11 xlinedata)))
  (setq c(distance xlinelist10 xlinelist11))
  (princ "\n 線段長度= ")(princ c)
 
  (prin1)
)

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

 

 

 

 

masterlong

1.多了n个右括号

2.多了c:

3.其它看另外那个贴

lead009

我還有一個問題

 

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

(defun c:getdistline( / xline )
 (setq xline (car (entsel "选取直线:")))
 (princ "\n 线段长度 = ")
 (princ (distline xline))
(princ)
)

;计算直线的长度
(defun distline( line / p10 p11 )
 (setq p10 (cdr (assoc 10 (entget line))))
 (setq p11 (cdr (assoc 11 (entget line))))    ;取直线两端点坐标
 (distance p10 p11)
)

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

 

--------

p11

p10

 

--------

副程式最後是怎麼決定傳回去的數???

是最後被計算得來的值嗎??

還有你的副程式中有這麼一行 "( line / p10 p11 )"<*-------

能為我解釋一下這是什麼意思嗎???

這個東西我書上沒見到

 

 

ZZXXQQ

1、使用函数（副程式）的返回值将计算结果送回主函数（程式）；

2、返回的是最后计算出的值；

3、这一行写的是自变量与内部变量。/前的是自变量，就是调用函数（程式）时用的变量。后面两个是内部变量，就是本函数内使用的变量。退出函数时清空。

lead009

恩，謝謝，這樣我懂了。