[求助]子程序调用不成功

ahhfthdl

之前的程序就不写了:

(setq p3 (get_v3))   ----*****可能不对

以下是调用的程序,请高手指点为什么调用后p3的坐标值出不来,多谢拉!

(defun get_v3(/ ct1 x1 h1 tht1_1 tht1 ang21 ct2 x2 h2 tht2 ang32 l28 ca33_1 x3 h3 ang33_1 ang33 l23 ca34 x4 h4 ang34 xv3 yv3 p3)*****不在括号里面的都是已知值
  (setq ct1 (/ (- (+ (* l5 l5) (* l7 l7)) (* y1 y1)) (* 2.0 l5 l7)))
  (setq x1 (* ct1 l7))                                                 
  (setq h1 (/ (* 2.0 (area3 l5 l7 y1)) l5))                             
  (setq tht1_1 (atan (/ h1 x1)))
  (setq tht1 (+ pi tht1_1))
  (setq ang21 (- tht1 ang2 ang11))
  ;;;
  (setq ct2 (/ (- (+ (* l8 l8) (* l9 l9)) (* y2 y2)) (* 2.0 l9 l8)))
  (setq x2 (* ct2 l9))
  (setq h2 (/ (* 2.0 (area3 l8 l9 y2)) l8))
  (setq tht2 (atan (/ h2 x2)))
  ;;;
  (setq ang32 (- (* 2.0 pi) ang3 tht2 ang4 ang6))
  (setq l28 (sqrt (- (+ (* l16 l16) (* l1 l1)) (* 2.0 l16 l1 (cos ang32)))))
  ;;;
  (setq ca33_1 (/ (- (+ (* l16 l16) (* l28 l28)) (* l1 l1)) (* 2.0 l16 l28)))
  (setq x3 (* ca33_1 l16))                                                 
  (setq h3 (/ (* 2.0 (area3 l16 l28 l1)) l28))                             
  (setq ang33_1 (atan (/ h3 x3)))
  (setq ang33 (- pi ang33_1 ang7 ang8))
  ;;;
  (setq l23 (sqrt (- (+ (* l28 l28) (* l21 l21)) (* 2.0 l28 l21 (cos ang33)))))
  (setq ca34 (/ (- (+ (* l1 l1) (* l23 l23)) (* l2 l2)) (* 2.0 l1 l23)))
  (setq x4 (* ca34 l1))
  (setq h4 (/ (* 2.0 (area3 l1 l23 l2)) l23))
  (setq ang34 (atan (/ h4 x4)))
  (setq xv3 (+ l30 (* l23 (cos (- ang21 ang34)))))
  (setq yv3 (+ 1311.443 (* l23 (sin (- ang21 ang34)))))
  (list xv3 yv3)
  (princ)

hb_xiaofen

子程序最后去掉（Princ)函数，

AMTONNY

(setq p3 (get_v3)) 不用这样调用呀；

。。。。

(get_v3) 

（PRINC））

(defun get_v3(/ ct1 x1 h1 tht1_1 tht1 ang21 ct2 x2 h2 tht2 ang32 l28 ca33_1 x3 h3 ang33_1 ang33 l23 ca34 x4 h4 ang34 xv3 yv3 p3)

。。。。这样看看