[求助]四边长度及一条对角线的任意四边形如何做？

429014673

由于考虑欠周全，当时只考虑了一种情况。其实是有两种情况的。浪费了nonsmall的时间和精力。。。不好意思。

看下有哪位贵人可以相助呀，和nonsmall对话框输出模式也差不多的就最好了。

只要输入4个边及 对角线1 或 对角线2 两种情况都可以输出图形。

 

429014673

希望在一条命令行上同时输入5个数字，数字与数字用逗号分开，这样便于检查有没有输错数据。

nonsmall

;帮你做个对话框

3. ;nonsmall 作品:对话框自动连接程序
5. (defun c:tt();此部分是测试代码用
6. (Form1_load)
7. )
8. (defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File)
9. (vl-load-com)
10. (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl))));对话框加载
11. (vl-file-delete Dcl_File);加载后删除DCL文件
12. (setq Dialog_Return 2)
13. (while (> Dialog_Return 1) ;循环控制对话框是否结束
14.   (new_dialog "Form1" dcl_id);建立窗体
15. ;-->-->-对话框初始化->-->--
16.   (setq keys '("Text1" "Text2" "Text3" "Text4" "Text5" "accept" "cancel"));列表全部控件名称
17.   (foreach key keys;全部控件的初始化
18.    (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
19.    (action_tile key "(Action_Form1_Keys $key $value)");点击动作
20.   )
21. ;--<--<-对话框初始化完成-<--<--
22.   (setq Dialog_Return (start_dialog));开启对话框(用户可见)
23. )
24. (unload_dialog dcl_id);退出时卸载对话框
25. (princ);防止函数回显
26. )
27. (defun Action_Form1_Keys (key value) ;全部控件的点击动作触发
28. (print (list key value))(print "*-------*");测试代码 用后删除
29. (cond
30.   ((= key "accept") ;{确认按钮}
31.    
32.    (Get_Form1_Data)
33.    (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
34.   )
35.   ((= key "cancel") ;{取消按钮}
36.    
37.    (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
38.   )
39. )
40. )
41. (defun Get_Form1_Data( / key);临时生成Dcl文件 返回文件名
42. (foreach key keys
43.   (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
44. )
45. )
46. (defun Write_Dcl( / Dcl_File file str)
47. (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
48. (setq file (open Dcl_File "w"))
49. (foreach str '(
50.   "/*nonsmall 作品: */"
51.   ""
52.   "Form1:dialog"
53.   "{"
54.   " label = "任意四边形";"
55.   "    :edit_box"
56.   "    {"
57.   "        key = "Text1" ;"
58.   "        label = "边1" ;"
59.   "        width = 15.75 ;"
60.   "        height = 1.2375 ;"
61.   "    }"
62.   "    :edit_box"
63.   "    {"
64.   "        key = "Text2" ;"
65.   "        label = "边2" ;"
66.   "        width = 15.75 ;"
67.   "        height = 1.2375 ;"
68.   "    }"
69.   "    :edit_box"
70.   "    {"
71.   "        key = "Text3" ;"
72.   "        label = "边3" ;"
73.   "        width = 15.75 ;"
74.   "        height = 1.2375 ;"
75.   "    }"
76.   "    :edit_box"
77.   "    {"
78.   "        key = "Text4" ;"
79.   "        label = "边4" ;"
80.   "        width = 15.75 ;"
81.   "        height = 1.2375 ;"
82.   "    }"
83.   "    :edit_box"
84.   "    {"
85.   "        key = "Text5" ;"
86.   "        label = "对角线" ;"
87.   "        width = 15.75 ;"
88.   "        height = 1.2375 ;"
89.   "    }"
90.   "ok_cancel ;"
91.   "}"
92.   )
93. (write-line str file))
94. (close file)
95. Dcl_File
96. )

;nonsmall 作品:对话框自动连接程序 (defun c:tt();此部分是测试代码用 (Form1_load) ) (defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File) (vl-load-com) (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl))));对话框加载 (vl-file-delete Dcl_File);加载后删除DCL文件 (setq Dialog_Return 2) (while (> Dialog_Return 1) ;循环控制对话框是否结束   (new_dialog "Form1" dcl_id);建立窗体 ;-->-->-对话框初始化->-->--   (setq keys '("Text1" "Text2" "Text3" "Text4" "Text5" "accept" "cancel"));列表全部控件名称   (foreach key keys;全部控件的初始化    (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容    (action_tile key "(Action_Form1_Keys $key $value)");点击动作   ) ;--<--<-对话框初始化完成-<--<--   (setq Dialog_Return (start_dialog));开启对话框(用户可见) ) (unload_dialog dcl_id);退出时卸载对话框 (princ);防止函数回显 ) (defun Action_Form1_Keys (key value) ;全部控件的点击动作触发 (print (list key value))(print "*-------*");测试代码 用后删除 (cond   ((= key "accept") ;{确认按钮}        (Get_Form1_Data)    (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1   )   ((= key "cancel") ;{取消按钮}        (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0   ) ) ) (defun Get_Form1_Data( / key);临时生成Dcl文件 返回文件名 (foreach key keys   (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化 ) ) (defun Write_Dcl( / Dcl_File file str) (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl")) (setq file (open Dcl_File "w")) (foreach str '(   "/*nonsmall 作品: */"   ""   "Form1:dialog"   "{"   " label = "任意四边形";"   "    :edit_box"   "    {"   "        key = "Text1" ;"   "        label = "边1" ;"   "        width = 15.75 ;"   "        height = 1.2375 ;"   "    }"   "    :edit_box"   "    {"   "        key = "Text2" ;"   "        label = "边2" ;"   "        width = 15.75 ;"   "        height = 1.2375 ;"   "    }"   "    :edit_box"   "    {"   "        key = "Text3" ;"   "        label = "边3" ;"   "        width = 15.75 ;"   "        height = 1.2375 ;"   "    }"   "    :edit_box"   "    {"   "        key = "Text4" ;"   "        label = "边4" ;"   "        width = 15.75 ;"   "        height = 1.2375 ;"   "    }"   "    :edit_box"   "    {"   "        key = "Text5" ;"   "        label = "对角线" ;"   "        width = 15.75 ;"   "        height = 1.2375 ;"   "    }"   "ok_cancel ;"   "}"   ) (write-line str file)) (close file) Dcl_File )

429014673

试了下，不知为什么生成不了

mmh1

没有插入点

429014673

寻nonsmall大哥呀！！！

ZZXXQQ

在(unload_dialog行之后加上：

(if (= Dialog_Return 1) (progn

;在这里写上你要画图的指令

))

就行了。

429014673

小生愚钝，还是搞不出来。CAD界面上没有图。
原来： (unload_dialog dcl_id);退出时卸载对话框
改为：
(unload_dialog dcl_id);退出时卸载对话框
(if (= Dialog_Return 1)(progn tt))

429014673

坐等高人帮忙。。。

最好nonsmall有时间也过来帮忙啦。。哈哈

yshf

    对角线的第一个端点记为P1，另一个端点记为P3，四边形的确保另外两顶点分别记为P2和P4，
并确保P1→P2→P3→P4为逆时针排列，P1→P2的长度为边长值1，P2→P3的长度为边长值2，
P3→P4的长度为边长值3，P4→P1的长度为边长值4，P1→P3的长度为对角线长，加载附件中
的rysbx程序，在命令行中键入rysbx后，输入
    边长值1,边长值2,边长值3,边长值4,对角线长
再指定
    对角线的第一点P1，对角线所在方向线(对角线P1→P3上任意一点或其延长任意一点)
即可得求的四边形。