Image_按钮问题

CAD89 · 发表于 2022-7-6 07:07:03

我用这个dcl尝试了几乎所有的事情，但它根本不起作用！
我有一个dcl，有2个image\u按钮，分配了colordlg功能。。。在我选择颜色后，图像按钮应该更新为我刚才选择的颜色。。。这根本就没有发生！

以下是我遇到问题的代码片段：

  (action_tile "bco" "(setq colb (acad_colordlg 0))")
 (start_image "bco")
 (fill_image 0 0 (dimx_tile "bco") (dimy_tile "bco") colb)
 (end_image)

请注意，这只是一个按钮。。。我假设，如果我成功地使用其中一个，我将能够使另一个工作！

新年快乐！
提前谢谢！

关于Csaba Arpad Dobai！

Lee Mac · 发表于 2022-7-6 07:30:51

此示例可能有助于：

http://www.cadtutor.net/forum/showthread.php?69478-图像平铺刷新&p=475323&viewfull=1#post475323

CAD89 · 发表于 2022-7-6 07:58:53

谢谢Lee Mac占用您的时间，但您能告诉我以下代码出了什么问题吗

copy

(defun c:pset ()
 (if
   (and
     (setq tmp (vl-filename-mktemp nil nil ".dcl"))
     (setq des (open tmp "w"))
     (foreach line
       '(
         "img : image_button { width = 6; aspect_ratio = 1; fixed_width = true; fixed_height = true; }"
         "col : dialog { label = "Image Button Test";"
         "    : row"
         "    {"
         "        : img { key = "b1"; }"
         "        : img { key = "b2"; }"
         "    }"
         "    : button { label = "OK"; width = 6; key = "accept"; }"
         "    : button { label = "Cancel"; width = 6; key = "cancel"; is_cancel = true; }"
         "}"
        )
(write-line line des)
     )
     (not (setq des (close des)))
     (< 0 (setq dcl (load_dialog tmp)))
     (new_dialog "col" dcl)
   )
    (progn
      (setq col 0)
      (foreach        key '("b1" "b2")
 (_fill_image key col)
 (action_tile
   key
   (strcat "(_fill_image "b1" " (substr key 2) ")")
 )
 (action_tile
   key
   (strcat "(_fill_image "b2" " (substr key 2) ")")
 )
      )
      (start_dialog)
    )
    (princ "\nError Loading Dialog.")
 )
 (if (< 0 dcl)
   (setq dcl (unload_dialog dcl))
 )
 (if (findfile tmp)
   (vl-file-delete tmp)
 )
 (princ)
)
(defun _fill_image ()
 (start_image key)
 (fill_image 0 0 (dimx_tile key) (dimy_tile key) col)
 (end_image)
)
(princ)

正如我之前所说，我想将acad\u colordlg函数分配给按钮，但我不断得到以下错误“参数太多”！

顺便说一句，很好的应用程序。。。我冒昧地复制并修改了它！我想做的是当我按下图像按钮加载acad_colordlg时，在我选择颜色后，图像按钮会将其颜色更改为我选择的颜色！到目前为止，我做到了这一点。。。同时加载对话框和颜色对话框，选择颜色，然后按钮将其颜色更改为所选颜色。。。现在，无论我按多少次图像按钮，颜色对话框都不会出现！

关于Csaba Arpad Dobai！

CAD89 · 发表于 2022-7-6 08:16:51

解决了问题：

copy

(defun c:pset (/ col dcl des tmp)
 (if
   (and
     (setq tmp (vl-filename-mktemp nil nil ".dcl"))
     (setq des (open tmp "w"))
     (foreach line
       '(
         "img : image_button { width = 24; aspect_ratio = 1; fixed_width = true; fixed_height = true; }"
         "col : dialog { label = "Image Button Test";"
         "    : row"
         "    {"
         "        : img { key = "b1"; }"
         "    }"
         "    : button { label = "OK"; width = 6; key = "accept"; }"
         "    : button { label = "Cancel"; width = 6; key = "cancel"; is_cancel = true; }"
         "}"
        )
(write-line line des)
     )
     (not (setq des (close des)))
     (< 0 (setq dcl (load_dialog tmp)))
     (new_dialog "col" dcl)
   )
    (progn
      (setq col 0)
      (foreach        key '("b1")
 (_fill_image key col)
 (action_tile
   key
   (strcat "(setq col (acad_colordlg 0)) (_fill_image "b1" " "col" ")")
 )
      )
      (start_dialog)
    )
    (princ "\nError Loading Dialog.")
 )
 (if (< 0 dcl)
   (setq dcl (unload_dialog dcl))
 )
 (if (findfile tmp)
   (vl-file-delete tmp)
 )
 (princ)
)
(defun _fill_image (key col)
 (start_image key)
 (fill_image 0 0 (dimx_tile key) (dimy_tile key) col)
 (end_image)
)
(princ)

谢谢李。。。没有你的帮助，我是不会做这件事的！
我将不得不工作的确定按钮虽然！！！

再次感谢您的帮助！

问候Csaba Arpad Dobai！

[编程交流] Image_按钮问题

发表回复

精选推荐