计算三角形面积。错误为参数类型错误: numberp: nil

sanalpha

(defun c:8test2()
  (setq line1 (entsel "Select line1:"))
  (setq line2 (entsel "Select line2:"))
  (setq line3 (entsel "Select line3:"))
  (setq l1 (getlen line1))
  (setq l2 (getlen line2))
  (setq l3 (getlen line3))
  (setq test (area3 l1 l2 l3))
  (princ "\n The area is:" )(princ test)
)
(defun area3(a b c)
  (setq s (* (+ a b c) 0.5))
  (sqrt (* s (- s a) (- s b) (- s c)))
)
(defun getlen(ent)
  (command "lengthen" ent "")
  (getvar "perimater")
)
哪位帮忙看下，函数是想实现计算三角形的面积，显示错误为参数类型错误: numberp: nil

Andyhon

http://bbs.mjtd.com/thread-82274-1-1.html

sanalpha

Andyhon 发表于 2012-6-30 14:45
http://bbs.mjtd.com/thread-82274-1-1.html

多谢。已经找到错误了。
一个单词的问题。

VBALISPER

(princ test)
好象是这里不对吧.后面的不是字符型,要转换