反复调试都不行，请你来看下(附带代码)

lhlake

************************************************************
(defun c:mm()
   (setvar "cmdecho" 0)
   (setq k(getvar "dimscale"))
;   (setq m:err *error*)
   (setq dcl_id (load_dialog "mm"))
   (new_dialog "mm" dcl_id)
   (setq name "特性表")
   (action_tile "mm1" "(setq name \"特性表1\")")
   (action_tile "mm2" "(setq name \"特性表2\")")
   (action_tile "mm3" "(setq name \"特性表3\")")
   (action_tile "mm4" "(setq name \"特性表4\")")
   (action_tile "mm5" "(setq name \"特性表5\")")
   (action_tile "mm6" "(setq name \"特性表6\")")
   (action_tile "mm7" "(setq name \"特性表7\")")
   (action_tile "mm8" "(setq name \"特性表8\")")
   (action_tile "mm9" "(setq name \"特性表9\")")
   (action_tile "accept" "(done_dialog 1)")
   (setq dd(start_dialog))
   (if (= dd 1)
        (progn
              (setq pt (getvar "limmax"))
              (setq name1 (strcat "file\\" name))
              (command ".insert" name1 pt k k 0 ".explode" "l")  
        )
     )
  (princ)
)

********************************************************

以上为"lisp"程序代码

以下为"DCL"代码
*********************************************************
sjb:dialog{
label="特性表";
        :boxed_column{
            :radio_column{
                  :radio_button{label="特性表1";key="mm1";value="1";}
                  :radio_button{label="特性表2";key="mm2";}
                  :radio_button{label="特性表3";key="mm3";}
                  :radio_button{label="特性表4";key="mm4";}
                  :radio_button{label="特性表5";key="mm5";}
                  :radio_button{label="特性表6";key="mm6";}
                  :radio_button{label="特性表7";key="mm7";}
                  :radio_button{label="特性表8";key="mm8";}
                  :radio_button{label="特性表9";key="mm9";}
                   alignment=centered;}
        }
spacer_1;
ok_cancel;
}
******************************************************************************

大家帮看看到底那写的有问题呢，总提示找不到路径文件，但是我已经设置好的！

zkrade

(setq dcl_id (load_dialog "mm.dcl"))    (new_dialog "sjb" dcl_id)

xyp1964

2. ;; 伪源码需要e派工具箱(XCAD)的支持
   
3. (defun c:tt (/ ilst ll1 ll2)
   
4.   (cmdla0)
   
5.   (defun main-pro (/ k bn pt)
   
6.     (setq k  (getvar "dimscale")
   
7.           bn (nth (atoi po1) lst1)
   
8.           pt (getvar "limmax")
   
9.     )
   
10.     (if        (findfile (strcat bn ".dwg"))
    
11.       (command ".insert" bn pt k k 0 ".explode" "l")
    
12.     )
    
13.   )
    
14.   (xyp-initSet '(po1) '("0"))
    
15.   (setq        lst1 '("特性表1" "特性表2" "特性表3" "特性表4" "特性表5" "特性表6" "特性表7" "特性表8" "特性表9")
    
16.         ilst '(("po1" "列表" "poplist" "lst1" "12"))
    
17.   )
    
18.   (if (= (xyp-Dcl-Init Ilst "【mm】" t) 1)
    
19.     (main-pro)
    
20.   )
    
21.   (cmdla1)
    
22. )

;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt (/ ilst ll1 ll2)<br />   (cmdla0)<br />   (defun main-pro (/ k bn pt)<br />     (setq k  (getvar "dimscale")<br />           bn (nth (atoi po1) lst1)<br />           pt (getvar "limmax")<br />     )<br />     (if        (findfile (strcat bn ".dwg"))<br />       (command ".insert" bn pt k k 0 ".explode" "l")<br />     )<br />   )<br />   (xyp-initSet '(po1) '("0"))<br />   (setq        lst1 '("特性表1" "特性表2" "特性表3" "特性表4" "特性表5" "特性表6" "特性表7" "特性表8" "特性表9")<br />         ilst '(("po1" "列表" "poplist" "lst1" "12"))<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【mm】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )