[求助]请求编制不规则的四边形程式

蓝星

求画不规则的四边形的程式,已知四边和一条对角线的尺寸,能否输入数据直接生成,请高手帮忙解决!

蓝星

如图. 能不能做个LISP程式?

Daniel·邓邓邓

蓝星 发表于 2009-11-7 14:19
如图. 能不能做个LISP程式?

我也在求助。。。

yshf

2. 
   
3. ;画四边形  yshf
   
4. ;以四边形对角线的第一点为准，四条边顺时针排列
   
5. (defun c:4b()
   
6.     (defun jj(a b c / p s h)
   
7.        (setq p (* 0.5 (+ a b c))
   
8.              s (sqrt (* p (- p a) (- p b) (- p c)))
   
9.              h (/ (* 2.0 s) c)
   
10.              d (sqrt (- (* a a) (* h h)))
    
11.              p (atan h d)
    
12.        )
    
13.     )
    
14. 
    
15.     (setq cm (getvar "cmdecho")
    
16.           os (getvar "osmode")
    
17.     )
    
18.     (setvar "cmdecho" 0)
    
19.     (setvar "osmode" 33)
    
20.     (while (setq p1 (getpoint "\n四边形对角线的第一点<回车退出>:"))
    
21.         (if (setq p3 (getpoint p1 "\n四边形对角线的另一点所在方向:"))
    
22.             (if (and (setq djx (getdist "\n四边形对角线长度:"))
    
23.                      (setq a1 (getdist "\n四边形第1条边长度:"))
    
24.                      (setq b1 (getdist "\n四边形第2条边长度:"))
    
25.                      (setq a2 (getdist "\n四边形第3条边长度:"))
    
26.                      (setq b2 (getdist "\n四边形第4条边长度:"))
    
27.                 )
    
28.                 (progn
    
29.                     (setq aa (angle p1 p3)
    
30.                           p3 (polar p1 aa djx)
    
31.                           p2 (polar p1 (+ aa (jj a1 b1 djx)) a1)
    
32.                           p4 (polar p1 (- aa (jj b2 a2 djx)) b2)
    
33.                     )
    
34.                     (setvar "osmode" 0)
    
35.                     (command "_pline" p1 p2 p3 p4 "c")
    
36.                 )
    
37.            )
    
38.         )
    
39.         (setvar "osmode" 33)
    
40.     )
    
41.     (setvar "osmode" os)
    
42.     (setvar "cmdecho" cm)
    
43.     (princ)                          
    
44. )
    

<br /> ;画四边形  yshf<br /> ;以四边形对角线的第一点为准，四条边顺时针排列<br /> (defun c:4b()<br />     (defun jj(a b c / p s h)<br />        (setq p (* 0.5 (+ a b c))<br />              s (sqrt (* p (- p a) (- p b) (- p c)))<br />              h (/ (* 2.0 s) c)<br />              d (sqrt (- (* a a) (* h h)))<br />              p (atan h d)<br />        )<br />     )<br /> <br />     (setq cm (getvar "cmdecho")<br />           os (getvar "osmode")<br />     )<br />     (setvar "cmdecho" 0)<br />     (setvar "osmode" 33)<br />     (while (setq p1 (getpoint "\n四边形对角线的第一点<回车退出>:"))<br />         (if (setq p3 (getpoint p1 "\n四边形对角线的另一点所在方向:"))<br />             (if (and (setq djx (getdist "\n四边形对角线长度:"))<br />                      (setq a1 (getdist "\n四边形第1条边长度:"))<br />                      (setq b1 (getdist "\n四边形第2条边长度:"))<br />                      (setq a2 (getdist "\n四边形第3条边长度:"))<br />                      (setq b2 (getdist "\n四边形第4条边长度:"))<br />                 )<br />                 (progn<br />                     (setq aa (angle p1 p3)<br />                           p3 (polar p1 aa djx)<br />                           p2 (polar p1 (+ aa (jj a1 b1 djx)) a1)<br />                           p4 (polar p1 (- aa (jj b2 a2 djx)) b2)<br />                     )<br />                     (setvar "osmode" 0)<br />                     (command "_pline" p1 p2 p3 p4 "c")<br />                 )<br />            )<br />         )<br />         (setvar "osmode" 33)<br />     )<br />     (setvar "osmode" os)<br />     (setvar "cmdecho" cm)<br />     (princ)                          <br /> )<br />

longer1000

yshf 发表于 2012-7-12 18:33

在2012中好像不能用

renox

这个程序要定制。有意者可以联系我。