求助这个代码怎么加DCL对话框。谢谢

179

<br/>(defun c:7( / pt l1 w1 px py ll)<br/>     (setq pt (getpoint "\n请点选四方形的中心点&lt;0,0&gt;: "))<br/>     (if (null pt)<br/>        (setq pt '(0 0))<br/>     )<br/>     (princ pt)<br/>     (if (null l)<br/>        (setq l '100.0)<br/>     )<br/>     (princ "\n请输入四方形长度&lt;")<br/>     (princ l)<br/>     (princ "&gt;: ")<br/>     (if (setq l1 (getdist))<br/>       (setq l l1)<br/>     )<br/>     (setq px (polar pt '0 (* l 0.5)))<br/>     (if (null w)<br/>        (setq w '100.0)<br/>     )<br/>     (princ "\n请输入四方形宽度&lt;")<br/>     (princ w)<br/>     (princ "&gt;: ")<br/>     (if (setq w1 (getdist))<br/>       (setq w w1)<br/>     )<br/>     (setq py (polar pt (* pi 0.5) (* w 0.5)))  <br/>     (setq pt1 (polar px (* pi 1.5) (/ w 2)))<br/>     (setq pt2 (polar py pi (/ l 2)))<br/>     (setq old_osm (getvar "osmode"))<br/>     (setvar "osmode" 0)<br/>     (command "rectang" pt1 pt2) <br/>     (setq ll l)<br/>     (if (&gt; l w)<br/>       (setq ll w)<br/>     )<br/>     (if (null (tblsearch "layer" "center"))<br/>       (command "layer" "n" "center" "c" "1" "center" "lt" "center" "center" "")<br/>     )<br/>     (command "line" (polar px '0 (* ll '0.05))<br/>                     (polar px pi (+ l (* ll '0.05))) "")<br/>     (command "chprop" (entlast) "" "c" "1" "lt" "center" "la" "center" "")<br/>     (command "line" (polar py (* pi '0.5) (* ll '0.05))<br/>                     (polar py (* pi '1.5) (+ w (* ll '0.05))) "")<br/>     (command "chprop" (entlast) "" "c" "1" "lt" "center" "la" "center" "")<br/>     (setvar "osmode" old_osm)<br/>     (princ)      <br/>) <br/>

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

179

谢谢您的回复。

我在调试过程中发现一个问题

1.    (action_tile "accept" "(getdata)(done_dialog 1)")
2.    (action_tile "cancel" "(done_dialog 0)")原代码

   (action_tile "ok" "(getdata)(done_dialog 1)")
   (action_tile "cancel" "(done_dialog 0)")好象要改成这样才能运行。

现在运行到25行  (setq px (polar pt 0 (* l 0.5)))的L付值有问题？可以在麻烦您回答一下吗？

ZZXXQQ

少了个函数
(defun getdata ()
 (setq l (atof (get_tile "my_l")))
 (setq w (atof (get_tile "my_w")))
)

xianaihua

将对话框与lisp合并到一起

2. (defun c:7 (/ pt l1 w1 px py ll)
3.   (defun getdata ()
4.     (if (and (/= (get_tile "my_l") "") (/= (get_tile "my_w") ""))
5.       (progn (setq l (atof (get_tile "my_l"))
6.      w (atof (get_tile "my_w"))
7.       )
8.       (done_dialog 1)
9.       )
10.       (alert "没有输入数据！")
11.     )
12.   )
13.   (defun Show_dcl ()
14.     (setq dcl_id (load_dialog (setq Dcl_File (creat_dlg)))) ;对话框加载
15.     (vl-file-delete Dcl_File)  ;加载后删除DCL文件
16.     (new_dialog "rct" dcl_id)
17.     (set_tile "my_l" "100.0")
18.     (set_tile "my_w" "100.0")
19.     (action_tile "accept" "(getdata)")
20.     (action_tile "cancel" "(done_dialog 0)")
21.     (start_dialog)
22.   )
23.       
24.   (if (= (Show_dcl) 1)
25.     (progn
26.       (setq pt (getpoint "\n请点选矩形的中心点<0,0>: "))
27.       (if (null pt)
28. (setq pt '(0 0))
29.       )
30.       (princ pt)
31.       (setq px (polar pt 0 (* l 0.5)))
32.       (setq py (polar pt (* pi 0.5) (* w 0.5)))
33.       (setq pt1 (polar px (* pi 1.5) (/ w 2)))
34.       (setq pt2 (polar py pi (/ l 2)))
35.       (setq old_osm (getvar "osmode"))
36.       (setvar "osmode" 0)
37.       (command "rectang" pt1 pt2)
38.       (setq ll l)
39.       (if (> l w)
40. (setq ll w)
41.       )
42.       (if (null (tblsearch "layer" "center"))
43. (command "layer"   "n"      "center"  "c"  "1"
44.    "center"  "lt"      "center"  "center"  ""
45.   )
46.       )
47.       (command "line"
48.         (polar px '0 (* ll '0.05))
49.         (polar px pi (+ l (* ll '0.05)))
50.         ""
51.       )
52.       (command "chprop"
53.         (entlast)
54.         ""
55.         "c"
56.         "1"
57.         "lt"
58.         "center"
59.         "la"
60.         "center"
61.         ""
62.       )
63.       (command "line"
64.         (polar py (* pi '0.5) (* ll '0.05))
65.         (polar py (* pi '1.5) (+ w (* ll '0.05)))
66.         ""
67.       )
68.       (command "chprop"
69.         (entlast)
70.         ""
71.         "c"
72.         "1"
73.         "lt"
74.         "center"
75.         "la"
76.         "center"
77.         ""
78.       )
79.       (setvar "osmode" old_osm)
80.     )
81.   )
82.   (unload_dialog dcl_id)
83.   (princ)
84. )
85. (defun creat_dlg (/ Dcl_File file str)
86.   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl")
87. file  (open Dcl_File "w")
88.   )
89.   (foreach str '("rct:dialog{"  ;
90.    "label="四方形参数输入";"
91.    ":edit_box{label="长度:";key="my_l";}"
92.    ":edit_box{label="宽度:";key="my_w";}"
93.    "ok_cancel;"
94.    "}"
95.   )
96.     (write-line str file)
97.   )
98.   (close file)
99.   Dcl_File
100. )

(defun c:7 (/ pt l1 w1 px py ll)   (defun getdata ()     (if (and (/= (get_tile "my_l") "") (/= (get_tile "my_w") ""))       (progn (setq l (atof (get_tile "my_l"))      w (atof (get_tile "my_w"))       )       (done_dialog 1)       )       (alert "没有输入数据！")     )   )   (defun Show_dcl ()     (setq dcl_id (load_dialog (setq Dcl_File (creat_dlg)))) ;对话框加载     (vl-file-delete Dcl_File)  ;加载后删除DCL文件     (new_dialog "rct" dcl_id)     (set_tile "my_l" "100.0")     (set_tile "my_w" "100.0")     (action_tile "accept" "(getdata)")     (action_tile "cancel" "(done_dialog 0)")     (start_dialog)   )          (if (= (Show_dcl) 1)     (progn       (setq pt (getpoint "\n请点选矩形的中心点<0,0>: "))       (if (null pt) (setq pt '(0 0))       )       (princ pt)       (setq px (polar pt 0 (* l 0.5)))       (setq py (polar pt (* pi 0.5) (* w 0.5)))       (setq pt1 (polar px (* pi 1.5) (/ w 2)))       (setq pt2 (polar py pi (/ l 2)))       (setq old_osm (getvar "osmode"))       (setvar "osmode" 0)       (command "rectang" pt1 pt2)       (setq ll l)       (if (> l w) (setq ll w)       )       (if (null (tblsearch "layer" "center")) (command "layer"   "n"      "center"  "c"  "1"    "center"  "lt"      "center"  "center"  ""   )       )       (command "line"         (polar px '0 (* ll '0.05))         (polar px pi (+ l (* ll '0.05)))         ""       )       (command "chprop"         (entlast)         ""         "c"         "1"         "lt"         "center"         "la"         "center"         ""       )       (command "line"         (polar py (* pi '0.5) (* ll '0.05))         (polar py (* pi '1.5) (+ w (* ll '0.05)))         ""       )       (command "chprop"         (entlast)         ""         "c"         "1"         "lt"         "center"         "la"         "center"         ""       )       (setvar "osmode" old_osm)     )   )   (unload_dialog dcl_id)   (princ) ) (defun creat_dlg (/ Dcl_File file str)   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl") file  (open Dcl_File "w")   )   (foreach str '("rct:dialog{"  ;    "label="四方形参数输入";"    ":edit_box{label="长度:";key="my_l";}"    ":edit_box{label="宽度:";key="my_w";}"    "ok_cancel;"    "}"   )     (write-line str file)   )   (close file)   Dcl_File )

179

万分感谢俩位的回答。两个多可以用！

davide888

学习