求助

lailaifa

哪位大佬能出手，优化下我这个DCL，我想要右边拾取到数值后联动到对应左边的对话框里，不知道怎么写，望大佬们能指导下。

xiao1984

(defun c:tt (/ *get-lujing* dcl_id get-lujing re sg-lt-yk-getdata-zhinengwenzitihuan str ent txt old-dcl)
  (or sg-lt-xdx (setq sg-lt-xdx ""))
  (or sg-lt-jdx (setq sg-lt-jdx "******"))
  
  (defun sg-lt-yk-getdata-zhinengwenzitihuan ()
    (setq sg-lt-xdx (get_tile "sg-lt-xdx"))
    (setq sg-lt-jdx (get_tile "sg-lt-jdx"))
  )
  
  (defun get-text-from-user (key / ent txt)
    (princ "\n请在屏幕上选择文字或数字: ")
    (if (setq ent (entsel))
      (progn
        (setq txt (cdr (assoc 1 (entget (car ent)))))
        (if (= key "sqjdx")
          (setq sg-lt-jdx txt)
          (setq sg-lt-xdx txt)
        )
        txt
      )
    )
  )
  
  (setq old-dcl (findfile "DclTemp.dcl"))
  (if old-dcl (vl-file-delete old-dcl))
  
  (if (= (setq dcl_id (load_dialog (sg-lt-yk-make-dcl-zhinengwenzitihuan))) 0)
    (progn (alert "\n无法显示对话框！") (exit))
  )
  
  (setq re 4)
  
  (while (>= re 2)
    (if (not (new_dialog "dllC" dcl_id))
      (progn (alert "\n无法显示对话框！") (exit))
    )
   
    (set_tile "sg-lt-xdx" sg-lt-xdx)
    (set_tile "sg-lt-jdx" sg-lt-jdx)
   
    (action_tile "sqjdx" "(done_dialog 2)")
    (action_tile "sqxdx" "(done_dialog 3)")
    (action_tile "accept" "(sg-lt-yk-getdata-zhinengwenzitihuan)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
   
    (setq re (start_dialog))
   
    (cond
      ((= re 2) (get-text-from-user "sqjdx"))  
      ((= re 3) (get-text-from-user "sqxdx"))  
      ((= re 1) (sg-lt-zhinengwenzitihuan))  
      ((= re 0) nil)                          
    )
  )
  
  (unload_dialog dcl_id)
  (princ)
)

(defun sg-lt-yk-make-dcl-zhinengwenzitihuan (/ lst_str str file f)
  (setq lst_str '(
    "dllC:dialog"
    "{ // start dcl"
    "label = \"文字替换\";"
    ":column{"
    ":row{"
    ":row{:edit_box{label=\"旧对象：\";key=\"sg-lt-jdx\"; edit_width=10;}}"
    ":button{label = \"拾取\";key = \"sqjdx\" ;}}"
    ":row{"
    ":row{:edit_box{label=\"新对象：\";key=\"sg-lt-xdx\"; edit_width=10;}}"       
    ":button{label = \"拾取\";key = \"sqxdx\" ;}}"                                                                 
    "}"
    ":row{"
    ":button{label=\"确定(&Q)\";key=\"accept\";is_default=true;height=3;}"                                                                                         
    ":button{label=\"取消(&C)\";key=\"cancel\";is_cancel=true;height=3;}"
    "}"
    "fixed_width=true;"
    "alignment=left;"
    "} "        
  ))
  
  (setq file (vl-filename-mktemp "DclTemp.dcl"))
  (setq f (open file "w"))
  (foreach str lst_str
    (princ "\n" f)
    (princ str f)
  )
  (close f)
  file
)注释了你的幻灯片文件路径，导致程序报错无法加载，你看看是不是这样

chen3732088

2. (defun C:MM ()
   
3.   (vl-load-com)
   
4.   (setq texta "")
   
5.   (while
   
6.     (progn
   
7.       (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".dcl"))
   
8.       (setq dcl_file (open tmp-dcl-file-name "w"))
   
9.       (foreach x
   
10.         '(
    
11.           "ZW:dialog {"
    
12.           "label = "测试";"
    
13.           ":edit_box { key = "AAA";}"
    
14.           ":button { label = "拾取"; key = "CCC"; }"
    
15.           "ok_cancel;"
    
16.           "}"
    
17.         )
    
18.         (write-line x dcl_file)
    
19.       )
    
20.       (close dcl_file)
    
21.       (setq dcl_id (load_dialog tmp-dcl-file-name))
    
22.       (vl-file-delete tmp-dcl-file-name)
    
23.       (if (not (new_dialog "ZW" dcl_id))(exit))
    
24.       (set_tile "AAA" texta)
    
25.       (action_tile "CCC" "(done_dialog 2)")
    
26.       (action_tile "accept" "(done_dialog 1)")
    
27.       (action_tile "cancel" "(done_dialog 0)")
    
28.       (setq AA (start_dialog))
    
29.       (unload_dialog dcl_id)
    
30.       (cond
    
31.       ((= AA 2)(setq texta (YYDS)))
    
32.       (T nil)
    
33.       )  
    
34.       )
    
35.     )
    
36.   (princ)
    
37.   )
    
38. (defun YYDS ()
    
39.   (setq ent (entsel "\n选择一个文字对象: "))
    
40.   (if ent
    
41.     (progn
    
42.       (setq data (entget (car ent)))
    
43.       (cdr (assoc 1 data))
    
44.     )
    
45.   )
    
46. )

(defun C:MM ()<br />   (vl-load-com)<br />   (setq texta "")<br />   (while<br />     (progn<br />       (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".dcl"))<br />       (setq dcl_file (open tmp-dcl-file-name "w"))<br />       (foreach x<br />         '(<br />           "ZW:dialog {"<br />           "label = "测试";"<br />           ":edit_box { key = "AAA";}"<br />           ":button { label = "拾取"; key = "CCC"; }"<br />           "ok_cancel;"<br />           "}"<br />         )<br />         (write-line x dcl_file)<br />       )<br />       (close dcl_file)<br />       (setq dcl_id (load_dialog tmp-dcl-file-name))<br />       (vl-file-delete tmp-dcl-file-name)<br />       (if (not (new_dialog "ZW" dcl_id))(exit))<br />       (set_tile "AAA" texta)<br />       (action_tile "CCC" "(done_dialog 2)")<br />       (action_tile "accept" "(done_dialog 1)")<br />       (action_tile "cancel" "(done_dialog 0)")<br />       (setq AA (start_dialog))<br />       (unload_dialog dcl_id)<br />       (cond<br />       ((= AA 2)(setq texta (YYDS)))<br />       (T nil)<br />       )  <br />       )<br />     )<br />   (princ)<br />   )<br /> (defun YYDS ()<br />   (setq ent (entsel "\n选择一个文字对象: "))<br />   (if ent<br />     (progn<br />       (setq data (entget (car ent)))<br />       (cdr (assoc 1 data))<br />     )<br />   )<br /> )

lailaifa

xiao1984 发表于 2025-4-21 19:48
(defun c:tt (/ *get-lujing* dcl_id get-lujing re sg-lt-yk-getdata-zhinengwenzitihuan str ent txt old ...

感谢大佬，妙笔生花