菜鸟来求助一个autolisp问题

福建师大附中

1. (defun c:dia5d()
   
2.   (setvar "cmdecho" 0)
   
3.   (sub_dia5d)
   
4.   (if ss (dcl_dia5d))
   
5.   (prin1)
   
6.   )
   
7. (defun sub_dia5d()
   
8.   (setq ss(ssget))
   
9.   (if (null ss)(setq ss(ssadd)))
   
10.   (setq cir_num 0 line_num 0 text_num 0)
    
11.   (setq n 0)
    
12.   (repeat (sslength ss)
    
13.     (setq en (ssname ss n))
    
14.     (setq entype (cdr (assoc 0 (entget en))))
    
15.     (cond ((= entype "circle") (setq cir_num (1+ cir_num)))
    
16.     ((= entype "line") (setq line_num (1+ line_num)))
    
17.     ((= entype "text") (setq text_num (1+ text_num)))
    
18.     )
    
19.     (setq n (1+ n))
    
20.     ))
    
21. (defun dcl_dia5d()
    
22.   (setq dcl_id (load_dialog "f://VP//dia5d.dcl"))
    
23.   (if (not (new_dialog "dia5d" dcl_id))(exit))
    
24.   (set_tile "t_cir" (itoa cir_num))
    
25.   (set_tile "t_line" (itoa line_num))
    
26.   (set_tile "t_text" (itoa text_num))
    
27.   (setq dd (start_dialog))
    
28.   )

(defun c:dia5d()<br />   (setvar "cmdecho" 0)<br />   (sub_dia5d)<br />   (if ss (dcl_dia5d))<br />   (prin1)<br />   )<br /> (defun sub_dia5d()<br />   (setq ss(ssget))<br />   (if (null ss)(setq ss(ssadd)))<br />   (setq cir_num 0 line_num 0 text_num 0)<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq entype (cdr (assoc 0 (entget en))))<br />     (cond ((= entype "circle") (setq cir_num (1+ cir_num)))<br />     ((= entype "line") (setq line_num (1+ line_num)))<br />     ((= entype "text") (setq text_num (1+ text_num)))<br />     )<br />     (setq n (1+ n))<br />     ))<br /> (defun dcl_dia5d()<br />   (setq dcl_id (load_dialog "f://VP//dia5d.dcl"))<br />   (if (not (new_dialog "dia5d" dcl_id))(exit))<br />   (set_tile "t_cir" (itoa cir_num))<br />   (set_tile "t_line" (itoa line_num))<br />   (set_tile "t_text" (itoa text_num))<br />   (setq dd (start_dialog))<br />   )

1. dia5d:dialog{
   
2.   label="对话框text文字实例测试";
   
3.   :concatenation{
   
4.     :text_part{label="共选到【";}
   
5.     :text{width=6;
   
6.           key="t_cir";}
   
7.     :text_part{label="】个circel";}
   
8.     }
   
9.   :concatenation{
   
10.     :text_part{label="共选到【";}
    
11.     :text{width=6;
    
12.           key="t_line";}
    
13.     :text_part{label="】个line";}
    
14.     }
    
15.   :concatenation{
    
16.     :text_part{label="共选到【";}
    
17.     :text{width=6;
    
18.           key="t_text";}
    
19.     :text_part{label="】个text";}
    
20.     }
    
21.   ok_cancel;
    
22.   }
    

dia5d:dialog{<br />   label="对话框text文字实例测试";<br />   :concatenation{<br />     :text_part{label="共选到【";}<br />     :text{width=6;<br />           key="t_cir";}<br />     :text_part{label="】个circel";}<br />     }<br />   :concatenation{<br />     :text_part{label="共选到【";}<br />     :text{width=6;<br />           key="t_line";}<br />     :text_part{label="】个line";}<br />     }<br />   :concatenation{<br />     :text_part{label="共选到【";}<br />     :text{width=6;<br />           key="t_text";}<br />     :text_part{label="】个text";}<br />     }<br />   ok_cancel;<br />   }<br />

执行后提示  错误: quit / exit abort

xiaolong1487

(setq dcl_id (load_dialog "f://VP//dia5d.dcl"))这一句要改一下，DCL位置
(cond ((= entype "circle") (setq cir_num (1+ cir_num)))
    ((= entype "line") (setq line_num (1+ line_num)))
    ((= entype "text") (setq text_num (1+ text_num)))
    )
"circle"  "line"  "text" 可能要大写

ZZXXQQ

用了(exit)函数就有这种提示。

2. (defun c:dia5d()
   
3.   (setvar "cmdecho" 0)
   
4.   (sub_dia5d)
   
5.   (if ss (dcl_dia5d))
   
6.   (prin1)
   
7.   )
   
8. (defun sub_dia5d()
   
9.   (setq ss(ssget))
   
10.   (if (null ss)(setq ss(ssadd)))
    
11.   (setq cir_num 0 line_num 0 text_num 0)
    
12.   (setq n 0)
    
13.   (repeat (sslength ss)
    
14.     (setq en (ssname ss n))
    
15.     (setq entype (cdr (assoc 0 (entget en))))
    
16.     (cond
    
17.          ((= entype "CIRCLE") (setq cir_num (1+ cir_num)))
    
18.      ((= entype "LINE") (setq line_num (1+ line_num)))
    
19.      ((= entype "TXT") (setq text_num (1+ text_num)))
    
20.     )
    
21.     (setq n (1+ n))
    
22.   )
    
23. )
    
24. (defun dcl_dia5d()
    
25.   (if (> (setq dcl_id (load_dialog "f://VP//dia5d.dcl")) 0) (progn
    
26.    (if (new_dialog "dia5d" dcl_id) (progn
    
27.     (set_tile "t_cir" (itoa cir_num))
    
28.     (set_tile "t_line" (itoa line_num))
    
29.     (set_tile "t_text" (itoa text_num))
    
30.     (setq dd (start_dialog))
    
31.    )
    
32.     (princ "\n无法显示对话框！")
    
33.    )
    
34.    (unload_dialog dcl_id)
    
35.   )
    
36.    (princ "\n无法加载对话框！")
    
37.   )
    
38. )

(defun c:dia5d()<br />   (setvar "cmdecho" 0)<br />   (sub_dia5d)<br />   (if ss (dcl_dia5d))<br />   (prin1)<br />   )<br /> (defun sub_dia5d()<br />   (setq ss(ssget))<br />   (if (null ss)(setq ss(ssadd)))<br />   (setq cir_num 0 line_num 0 text_num 0)<br />   (setq n 0)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq entype (cdr (assoc 0 (entget en))))<br />     (cond<br />          ((= entype "CIRCLE") (setq cir_num (1+ cir_num)))<br />      ((= entype "LINE") (setq line_num (1+ line_num)))<br />      ((= entype "TXT") (setq text_num (1+ text_num)))<br />     )<br />     (setq n (1+ n))<br />   )<br /> )<br /> (defun dcl_dia5d()<br />   (if (> (setq dcl_id (load_dialog "f://VP//dia5d.dcl")) 0) (progn<br />    (if (new_dialog "dia5d" dcl_id) (progn<br />     (set_tile "t_cir" (itoa cir_num))<br />     (set_tile "t_line" (itoa line_num))<br />     (set_tile "t_text" (itoa text_num))<br />     (setq dd (start_dialog))<br />    )<br />     (princ "\n无法显示对话框！")<br />    )<br />    (unload_dialog dcl_id)<br />   )<br />    (princ "\n无法加载对话框！")<br />   )<br /> )