lisp需要一些修改。

andy_lee · 发表于 2022-7-5 23:14:36

Hi ! hanhphuc, now is ok! Thank you very much!

andy_lee · 发表于 2022-7-5 23:18:46

Hi hanhphuc,
Use a period of time, not very convenient. Enter --"O" Choose "A" &"B" ,It is easy to go wrong.
Can use the DCL?　like this:

I have already made SLD files:
SLD.zip

hanhphuc · 发表于 2022-7-5 23:22:46

actually you don't need to enter "options" every time for "A or B", the "option" value you enter will be set as default for the next typical sessions, so you just pick point without "options" anymore..

copy

Pick Point or [Options]  ?

in red are default value
same as dcl, you only call it when you need to change its settings, not every time run it pops up then not user friendly

andy_lee · 发表于 2022-7-5 23:26:08

Yes, not every time run it pops up then not user friendly, but Dcl more intuitive.

hanhphuc · 发表于 2022-7-5 23:28:37

[code]http://www.cadtutor.net/forum/showthread.php?87818-A-lisp-need-some-modify./page2 (if (null *fb_user*) (setq *fb_user* (mapcar 'itoa '(1 0 1 0))) ) ;_ end of if(defun fbdia (/ radio dcl_id path dcl) (setq radio '("radio1" "radio2" "radioA" "radioB" )path (getenv "temp")) ('((f lst /) (setq f (open f "w")) (mapcar ''(($) (write-line $ f)) lst) (close f) (setq f nil) ) (setq dcl (strcat path "\\tmp.dcl")) '("icon_fbox_img : image {" " color = 0;" " width = 40;" " aspect_ratio = 0.75;" " allow_accept = true;" " fixed_height = true;" " fixed_width = true;" "}" "" "" "fbox: dialog {" "\tlabel=\"Fillet Box settings\";" " key = \"dcl_title\";" "" ": paragraph{" " : text_part{" "\tlabel =\"Choose options \";" "\t//alignment = centered;" "}" " } " " :column {" " :row { " " :column {" " :icon_fbox_img {key = \"SH-CENTRE\";}" " }" " :column { " " :icon_fbox_img {key = \"SH-EDGE\";}" " }" " }" "}" " :column{fixed_width=true;//alignment=centered;" " :boxed_radio_row{label=\"Draw method\";" "\t:radio_button{label=\"Pick centre \";key=\"[color="red"]radio1\";}//value=\"0\";" " :radio_button{label=\"Pick side \";key=\"[color="red"]radio2\";}//value=\"1\"" "}" "}" " :column {" " :row { " " :column {" " :icon_fbox_img {key = \"SH-P2P\";}" " } " " :column {" " :icon_fbox_img {key = \"SH-C2C\";}" " }" " } " " }" " " " spacer_1;" " :column{fixed_width=true;//alignment=centered;" " :boxed_radio_row{label=\"Mode\";" " :radio_button{label=\"A:Edge to Edge \";key=\"[color="red"]radioA\";}//value=\"0\"" " :radio_button{label=\"B:Radii to radii \";key=\"[color="red"]radioB\";}//value=\"1\";" " }" "}" " :column{fixed_width=true;alignment=centered;" " : paragraph{" " : text_part{" "\tlabel =\"Fillet box : hanhphuc 2014\";" "\talignment = centered;" "}" " } " " :row {" " \t spacer_0;" " ok_cancel;" " }" "}" "}" ) ) (setq dcl_id (load_dialog dcl)) (new_dialog "fbox" dcl_id) (mapcar ''((a) ('((i sld) (setq x (dimx_tile i)) (setq y (dimy_tile i)) (start_image i) (fill_image 0 0 x y -2) (slide_image 0 0 x y sld) (end_image) ) a (strcat [color="red"]path "\\" a) ;