[求助]：请哪位高手帮我写一下这个程序。先谢过啦

czg09180274

有一个习题要求是这样的。
点选任意三角形的三边，自动计算出这个三角形的面积，并在此三角形内画一个内切圆。

我写了两个子程序如下：
  （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 "perimeter")
  )

主程序写出来后总是提示有错误，还请哪位高手帮忙写一个完整的程序，并在里面引用上面的这两个子程序。（想比对来学习的）

谢谢啦。

zxq0220

2. 
   
3. (defun area3 (a b c) ;;;返回三角形的面积
   
4. (setq s (* (+ a b c) 0.5))
   
5. (sqrt (* s (- s a) (- s b) (- s c)))
   
6. )
   
7. 
   
8. (defun getlen (ent) ;;;返回对象长度
   
9. (command "lengthen" ent "")
   
10. (getvar "perimeter")
    
11. )
    
12. 
    
13. (DEFUN C:TRIANGLE ()
    
14. (INITGET 1)
    
15. (SETQ LINE1 (ENTSEL "\nSelect first line : "))
    
16. (INITGET 1)
    
17. (SETQ LINE2 (ENTSEL "\nSelect second line : "))
    
18. (INITGET 1)
    
19. (SETQ LINE3 (ENTSEL "\nSelect third line : "))
    
20. (SETQ S (AREA3 (GETLEN (CAR LINE1)) (GETLEN (CAR LINE2)) (GETLEN (CAR LINE3))))
    
21. (COMMAND "CIRCLE" "3P" "TAN" (CADR LINE1) "TAN" (CADR LINE2) "TAN" (CADR LINE3))
    
22. (PRINC "\nLength = ") (PRINC S)
    
23. (PRINC)
    
24. )
    

<br /> (defun area3 (a b c) ;;;返回三角形的面积<br /> (setq s (* (+ a b c) 0.5))<br /> (sqrt (* s (- s a) (- s b) (- s c)))<br /> )<br /> <br /> (defun getlen (ent) ;;;返回对象长度<br /> (command "lengthen" ent "")<br /> (getvar "perimeter")<br /> )<br /> <br /> (DEFUN C:TRIANGLE ()<br /> (INITGET 1)<br /> (SETQ LINE1 (ENTSEL "\nSelect first line : "))<br /> (INITGET 1)<br /> (SETQ LINE2 (ENTSEL "\nSelect second line : "))<br /> (INITGET 1)<br /> (SETQ LINE3 (ENTSEL "\nSelect third line : "))<br /> (SETQ S (AREA3 (GETLEN (CAR LINE1)) (GETLEN (CAR LINE2)) (GETLEN (CAR LINE3))))<br /> (COMMAND "CIRCLE" "3P" "TAN" (CADR LINE1) "TAN" (CADR LINE2) "TAN" (CADR LINE3))<br /> (PRINC "\nLength = ") (PRINC S)<br /> (PRINC)<br /> )<br />

lsjjm

最初由 czg09180274 发布
[B]...自动计算出这个三角形的面积，并在此三角形内画一个内切圆...[/B]

试试这个: 框选三角形程序画内切圆并返回三角形周长和面积.
[PHP]
(defun c:test ()
  ;(vl-load-com)
  (setq ss (ssget))
  (setq p1 (cdr (assoc 10 (entget (ssname ss 0)))))
  (setq p2 (cdr (assoc 11 (entget (ssname ss 0)))))  
  (vl-cmdf "region" ss "")
  (setq obj (vlax-ename->vla-object (entlast)))
  (setq pc (vlax-get obj "Centroid"))
  (setq pv (inters p1 p2 pc (polar pc (- (angle p1 p2)(/ pi 2)) 1) nil))
  (vl-cmdf "circle" pc (distance pc pv))
  (list (vla-get-Perimeter obj)(vla-get-Area obj))
)
[/PHP]

czg09180274

非常感谢楼上高手提供的源程序。
我试试看。

sdwy19691229

请问，这样的问题在画图中什么地方能用到啊？

czg09180274

2楼高手，为什么我照你的程序写出之后，加载运行时，会出现：参数错误FIXNUMP=XXXXX的提示呀？（第一次运行时，=后面的数值是所求三角形的面积，但第二次运行时，出来的却是另一个值，以后运行时出来的都是错的）不知这是怎么会事呢。

另：
3楼长老：你的那个程序应该是还有引用子程序的吧。我运行时总提示“函数XXX”未定义。