如何输入任意4条边和一个对角线的长度,生成一个四边形?

YANGF85

  用画圆的办法求交点,我不知道咋求, 求高手指点,如果能读取EXCEL表的尺寸规格就好了

菜鸟初来乍到

LLXXZZ 发表于 2011-9-6 12:37

大佬，请问一下你之前是在江河工作的吗？我现在在这里，好多插件都是你写的，非常好用，非常感谢你

longer1000

【KAIXIN】 发表于 2018-5-29 14:27
四边形 三角形 扇形等参数化

压缩文件不能解压

【KAIXIN】

四边形 三角形 扇形等参数化

LLXXZZ

2. 
   
3. ;李晓卓于2010年7月8日写此程序，
   
4. ;根据5个点画出四边形，
   
5. ;定义平方子程序
   
6. (defun sqr(xx) (* xx xx))
   
7. ;主程序开始
   
8. (defun C:sbx ( /  p1 p2 p3 p4 a1 a2 an1 an2 d1 d2)
   
9.   (setvar "CMDECHO" 0)
   
10.   (setq OSM (Getvar "OSMODE" ))
    
11.   (setq BPM (Getvar "blipmode"))
    
12.   (command "ucs" "w" )
    
13.   (princ ">>>画出四边形程序正在运行...\n")
    
14.   (setq p1 (getpoint"点取四边形左下角点p1： "))
    
15.   (setq w1 (getdist p1 "指定四边形右下角点p2到p1的距离<W2>： "))
    
16.   (setq d1 (getdist "指定四边形左上角点p4到p2的距离<L2>： "))
    
17.   (setq w4 (getdist "指定四边形左上角点p4到p1的距离<H1>： "))
    
18.   (setq w2 (getdist "指定四边形右上角点p3到p2的距离<H2>： "))
    
19.   (setq d2 (getdist "指定四边形右上角点p3到p1的距离<L1>： "))
    
20. 
    
21. ;用余弦定理计算角度
    
22.   (setq a1 (/  (- (+ (sqr w4) (sqr w1)) (sqr d1)) w1 w4 2) )
    
23.   (setq b1 (sqrt (- 1 (sqr a1))))
    
24.   (setq an1  (atan (/ b1 a1)))
    
25.   (if (< an1 0) (setq an1  (+ pi  an1)))
    
26. 
    
27.   (setq a2 (/  (- (+ (sqr d2) (sqr w1)) (sqr w2)) d2 w1 2) )
    
28.   (setq b2 (sqrt (- 1 (sqr a2))))
    
29.   (setq an2  (atan (/ b2 a2)))
    
30.   (if (< an2 0) (setq an1  (+ pi an2)))
    
31. 
    
32. ;计算端点
    
33.   (setq p2 (polar p1 0 w1))
    
34.   (setq p4 (polar p1 an1 w4))
    
35.   (setq p3 (polar p1 an2 d2))
    
36. 
    
37. ;开始绘制四边形
    
38.   (command "PLINE" p1 p2 p3 p4 "c" )
    
39.   (setvar "OSMODE"    OSM)
    
40.   (setvar "blipmode"  BPM)
    
41.   (command "ucs" "p" )
    
42. 
    
43.   (princ ">>>四边形绘制完毕，请自行检查p3到p4<W1>的距离！\n")
    
44.   (princ)
    
45. )   ;;;end of defun
    
46. (princ "\n 画四边形.lsp已加载 绘制四边形程序,以sbx启动命令.----by 李晓卓<2010.7.10>")
    
47. (princ)
    
48. 
    
49. 
    

<br /> ;李晓卓于2010年7月8日写此程序，<br /> ;根据5个点画出四边形，<br /> ;定义平方子程序<br /> (defun sqr(xx) (* xx xx))<br /> ;主程序开始<br /> (defun C:sbx ( /  p1 p2 p3 p4 a1 a2 an1 an2 d1 d2)<br />   (setvar "CMDECHO" 0)<br />   (setq OSM (Getvar "OSMODE" ))<br />   (setq BPM (Getvar "blipmode"))<br />   (command "ucs" "w" )<br />   (princ ">>>画出四边形程序正在运行...\n")<br />   (setq p1 (getpoint"点取四边形左下角点p1： "))<br />   (setq w1 (getdist p1 "指定四边形右下角点p2到p1的距离<W2>： "))<br />   (setq d1 (getdist "指定四边形左上角点p4到p2的距离<L2>： "))<br />   (setq w4 (getdist "指定四边形左上角点p4到p1的距离<H1>： "))<br />   (setq w2 (getdist "指定四边形右上角点p3到p2的距离<H2>： "))<br />   (setq d2 (getdist "指定四边形右上角点p3到p1的距离<L1>： "))<br /> <br /> ;用余弦定理计算角度<br />   (setq a1 (/  (- (+ (sqr w4) (sqr w1)) (sqr d1)) w1 w4 2) )<br />   (setq b1 (sqrt (- 1 (sqr a1))))<br />   (setq an1  (atan (/ b1 a1)))<br />   (if (< an1 0) (setq an1  (+ pi  an1)))<br /> <br />   (setq a2 (/  (- (+ (sqr d2) (sqr w1)) (sqr w2)) d2 w1 2) )<br />   (setq b2 (sqrt (- 1 (sqr a2))))<br />   (setq an2  (atan (/ b2 a2)))<br />   (if (< an2 0) (setq an1  (+ pi an2)))<br /> <br /> ;计算端点<br />   (setq p2 (polar p1 0 w1))<br />   (setq p4 (polar p1 an1 w4))<br />   (setq p3 (polar p1 an2 d2))<br /> <br /> ;开始绘制四边形<br />   (command "PLINE" p1 p2 p3 p4 "c" )<br />   (setvar "OSMODE"    OSM)<br />   (setvar "blipmode"  BPM)<br />   (command "ucs" "p" )<br /> <br />   (princ ">>>四边形绘制完毕，请自行检查p3到p4<W1>的距离！\n")<br />   (princ)<br /> )   ;;;end of defun<br /> (princ "\n 画四边形.lsp已加载 绘制四边形程序,以sbx启动命令.----by 李晓卓<2010.7.10>")<br /> (princ)<br /> <br /> <br />

mandala

应该是“输入4个点”吧？如果输入边的话……两条边就够了，对角线也不用了。

话说回来，即使有4个点，对角线也是用不着的，随意取一点和其它点循环作pline，最后面积大的就是对的。

YANGF85

原来这样更简单,我想得复杂了!

LLXXZZ

[基础] 如何输入任意4条边和一个对角线的长度,生成一个四边形?

程序就是根据四条边 做出来的.

文化路上的流氓

讲的好！都是我的偶像！！！！

文化路上的流氓

LLXXZZ 发表于 2011-9-7 12:10
[基础] 如何输入任意4条边和一个对角线的长度,生成一个四边形?

程序就是根据四条边 做出来的.

能不能在excel里面输入数据直接读取就行了？

华轩〈肖〉

刚好我有这样一个插件
已知任意一个四边形的四条边和一个对角线则可大批量的生成四过形
（已各条件可预先在ＥＸＣＥＬ中排好，对角线为左下角至右上角对角线）
解压好后须把文件复制到ＣＡＤ安装文件中再加载！
有什么不明白加我·ＱＱ：444518194

haoryh

华轩〈肖〉 发表于 2012-6-25 21:59
刚好我有这样一个插件
已知任意一个四边形的四条边和一个对角线则可大批量的生成四过形
（已各条件可预先 ...

不会用，请指教！

Daniel·邓邓邓

LLXXZZ 发表于 2011-9-6 12:37

如果是已知四边长和一对角线长就好了。