请 [院长] 看下这个程序,有小小出入,不知为什么

429014673

请大家帮忙看下下面的程序有什么问题

1)图三是编程用的,我用这个命令画图一时,但不知为什么图二的尺寸14和图一的12对不上.
2)学院派的这两行看不明呀
aaa (/ (+ (* a a) (* b b) (* c c -1.)) (* 2. a b))
aa  (XYP-TF-ACOS aaa)



(defun c:4L ( / p1 a d e c b p2 aaa aa dd p4 bbb bb cc p3)
  (setq
p1  (getpoint "\n四边形初始位置:")
a   (getreal "\n四边形一条边: ")
d   (getreal "\n四边形二条边: ")
e   (getreal "\n四边形三条边: ")
c   (getreal "\n四边形四条边: ")
b   (getreal "\n四边形左对角线: ")
p2  (polar p1 0 a)
aaa (/ (+ (* a a) (* b b) (* c c -1.)) (* 2. a b))
aa  (XYP-TF-ACOS aaa)
dd  (- pi aa)
p4  (polar p2 dd b)
bbb (/ (+ (* b b) (* e e) (* d d -1.)) (* 2. b e))
bb  (XYP-TF-ACOS bbb)
cc  (- pi (+ aa bb))
p3  (polar p2 cc d)
  )
  (command "pline" "non" p1 "non" p2 "non" p3 "non" p4 "c")
  (princ)
)

429014673

各位老大帮忙呀

crazylsp

自己输对角线多麻烦啊，还要先算

429014673

回复 crazylsp 的帖子

我也没有办法,由于要画这样的四边形多了,想编一个,但不知在哪里出现了问题,可以帮我看下吗?

429014673

danxingpen

因为你缺少条件，根据你提供的四边一个对角线，根本就不足以画出唯一的四边形！

429014673

回复 danxingpen 的帖子

两个三角形组成的四边形怎么画不出来呀???/???

xyp1964

(defun c:4L (/ p1 a d e c b p2 aa p4 bb p3)
  (setq        p1 (getpoint "\n四边形初始位置: ")
        a  (getreal "\n四边形一条边: ")
        d  (getreal "\n四边形二条边: ")
        e  (getreal "\n四边形三条边: ")
        c  (getreal "\n四边形四条边: ")
        b  (getreal "\n四边形左对角线: ")
        p2 (polar p1 0 a)
        aa (xyp-TF-yxdl-3Side a b c)
        p4 (polar p2 (- pi aa) b)
        bb (xyp-TF-yxdl-3Side b d e)
        p3 (polar p2 (- pi (+ aa bb)) d)
  )
  (command "pline" "non" p1 "non" p2 "non" p3 "non" p4 "c")
  (princ)
)

xyp1964

(defun c:tt (/ ilst l1 l2)
  (cmdla0)
  (defun main-pro (/ p1 p2 s1)
    (while (setq p1 (getpoint "\n四边形初始位置<退出>: "))
      (setq p2 (polar p1 0 a))
      (if (setq s1 (XYP-ACUTE-2PT2SIDE P1 P2 c b))
(XYP-ACUTE-2PT2SIDE (cadr s1) P2 e d)
      )
    )
  )
  (xyp-initSet '(a d e c b) '(30. 40. 40. 30. 50.))
  (setq ilst '(("a" "第一条边长" "real" "8")
        ("d" "第二条边长" "real" "8")
        ("e" "第三条边长" "real" "8")
        ("c" "第四条边长" "real" "8")
        ("b" "左对角线长" "real" "8")
        (nil nil "spacer;")
       )
  )
  (if (= (xyp-Dcl-Init Ilst "【测试】" t) 1)
    (main-pro)
  )
  (cmdla1)
)

429014673

xyp1964 发表于 2010-12-30 21:06
(defun c:4L (/ p1 a d e c b p2 aa p4 bb p3)
  (setq        p1 (getpoint "\n四边形初始位置: ")
        a  (getrea ...

院长,你的程序我试了下,但提示有问题....我想要的就是这个,下面那个工作起来不够快
命令: 4L
四边形初始位置:
四边形一条边: 41
四边形二条边: 47
四边形三条边: 57
四边形四条边: 49
四边形左对角线: 64
; 错误: no function definition: XYP-TF-YXDL-3SIDE