yeekun 发表于 2005-9-3 07:54:00

[求助]非常感谢“ZZXXQQ”。（样图）

就是由有x、y、z坐标点围成的三角形的面积。

ZZXXQQ 发表于 2005-9-3 22:42:00

<P>同一问题发起N个主题，为什么不去看看旧的主题？</P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=41508" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=41508</A></P>

ZZXXQQ 发表于 2005-9-4 08:47:00

根据样图改写的程序。

(DEFUN C:3PA ()
(IF (SETQ SS (SSGET "X" (LIST (CONS 0 "POLYLINE") (CONS 8 "SJW")))) (PROGN
(SETQ I 0 SAREA 0)
(REPEAT (SSLENGTH SS)
   (SETQ SN (ENTNEXT (SSNAME SS I)) I (1+ I)
         PT1 (CDR (ASSOC 10 (ENTGET SN)))
         SN (ENTNEXT SN)PT2 (CDR (ASSOC 10 (ENTGET SN)))
         SN (ENTNEXT SN)PT3 (CDR (ASSOC 10 (ENTGET SN))))
   (SETQ SAREA (+ (AREA3 PT1 PT2 PT3) SAREA))
)
))
(PRINC SAREA)
(PRINC)
)
(DEFUN AREA3 (P1 P2 P3) ;;;三点求面积
(SETQ A (DISTANCE P1 P2)
       B (DISTANCE P2 P3)
       C (DISTANCE P3 P1)
       S (/ (+ A B C) 2))
(SQRT (* S (- S A) (- S B) (- S C)))
)

yeekun 发表于 2005-9-5 08:00:00

<STRONG>“ZZXXQQ”,你好，</STRONG>根据样图改写后，面积计算有误。

zara 发表于 2005-9-5 10:18:00

没有问题的. 倒是你图像中的文字内容是面积的吗, 是的话那才奇怪的
页: [1]
查看完整版本: [求助]非常感谢“ZZXXQQ”。（样图）