[日积月累]：对话框及管理程序开发实例

游手好闲 · 发表于 2002-12-19 13:04:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这个程序所用到的对话框定义文件

[FONT=courier new]
bmake : dialog {
label = "定义图块";
: edit_box {
label = "图块名&N:";
key = "bname";
edit_limit = 2048;
}
spacer;
: row {
: boxed_column {
label = "插入点";
: button {
label = "选择点&P <";
key = "pick_pt";
}
: edit_box {
label = "&X:";
key = "x_pt";
edit_width = 10;
}
: edit_box {
label = "&Y:";
key = "y_pt";
edit_width = 10;
}
: edit_box {
label = "&Z:";
key = "z_pt";
edit_width = 10;
}
}
: column {
spacer_1;
: button {
label = "选择实体&S<";
key = "sel_objs";
}
: concatenation {
: text_part {
label = "数目发现: ";
}
: text_part {
key = "how_many";
width = 5;
}
}
spacer;
: button {
label = "图块名列表&L...";
key = "list_blocks";
}
: toggle {
label = "保留原实体&R";
key = "retain";
}
}
}
spacer;
spacer;
ok_cancel_help_errtile;
}
bmake_bname_exists : dialog {
label = "警告";
: paragraph {
: text_part {
label = "图中已有同名的图块。";
}
: text_part {
label = "你想重定义它吗？";
}
}
spacer_1;
: row {
fixed_width = true;
alignment = centered;
: button {
label = "重定义&R";
key = "yes";
width = 8;
}
: spacer {
width = 2;
}
: default_button {
label = "取消";
key = "no";
width = 8;
}
}
}
bmake_list_blocks : dialog {
label = "图块名";
: edit_box {
label = "图案&P:";
key = "pattern";
}
: list_box {
key = "bl_match";
width = 32;
}
spacer;
ok_only;
}
[/FONT]

[FONT=courier new] 
bmake : dialog { 
        label = "定义图块"; 
        : edit_box { 
                label = "图块名&N:"; 
                key = "bname";    
                edit_limit = 2048; 
        } 
        spacer; 
        : row { 
                : boxed_column { 
                        label = "插入点"; 
                        : button { 
                                label = "选择点&P <"; 
                                key = "pick_pt"; 
                        } 
                        : edit_box { 
                                label = "&X:"; 
                                key = "x_pt"; 
                                edit_width = 10; 
                        } 
                        : edit_box { 
                                label = "&Y:"; 
                                key = "y_pt"; 
                                edit_width = 10; 
                        } 
                        : edit_box { 
 
 
                                label = "&Z:"; 
                                key = "z_pt"; 
                                edit_width = 10; 
                        } 
                } 
                : column { 
                        spacer_1; 
                        : button { 
                                label = "选择实体&S<"; 
                                key = "sel_objs"; 
                        } 
                        : concatenation { 
                                : text_part { 
                                        label = "数目发现: "; 
                                } 
                                : text_part { 
                                        key = "how_many"; 
                                        width = 5; 
                                } 
                        } 
                        spacer; 
                        : button { 
                                label = "图块名列表&L..."; 
                                key = "list_blocks"; 
                        } 
                        : toggle { 
                                label = "保留原实体&R"; 
                                key = "retain"; 
                        } 
                } 
        } 
        spacer; 
        spacer; 
        ok_cancel_help_errtile; 
} 
 
bmake_bname_exists : dialog { 
        label = "警告"; 
        : paragraph { 
                : text_part { 
                        label = "图中已有同名的图块。"; 
                } 
                : text_part { 
                        label = "你想重定义它吗？"; 
                } 
        } 
        spacer_1; 
        : row { 
                fixed_width = true; 
                alignment = centered; 
                : button { 
                        label = "重定义&R"; 
                        key = "yes"; 
                        width = 8; 
                } 
                : spacer { 
                        width = 2; 
                } 
                : default_button { 
                        label = "取消"; 
                        key = "no"; 
                        width = 8; 
                } 
        } 
} 
bmake_list_blocks : dialog { 
        label = "图块名"; 
        : edit_box { 
                label = "图案&P:"; 
                key = "pattern"; 
        } 
        : list_box { 
                key = "bl_match"; 
                width = 32; 
        } 
        spacer; 
        ok_only; 
} 
[/FONT]

实现管理对话框并定义图块功能的Lisp程序

[FONT=courier new]
(defun ai_abort (app msg)
(defun *error* (s)
(if old_error (setq *error* old_error))
(princ)
)
(if msg
(alert (strcat " 应用程序错误: " app " \n\n " msg " \n"))
)
(exit)
)
(cond
( (and ai_dcl (listp ai_dcl))) ; 该程序已经加载.
( (not (findfile "ai_utils.lsp")) ; 找文件ai_utils.lsp
(ai_abort "BMAKE"
(strcat "不能定位文件AI_UTILS.LSP." "\n 检查support目录.")
)
)
( (eq "failed" (load "ai_utils" "failed")) ; 加载AI_UTILS.LSP
(ai_abort "BMAKE" "不能调入文件AI_UTILS.LSP")
)
)
(if (not (ai_acadapp)) ; 函数ai_acadapp在AI_UTILS.LSP中定义
(ai_abort "BMAKE" nil) ;显示退出报警框
)
(defun c:bmake ( / bname x_pt y_pt dcl_id z_pt retain selection_set
old_err what_next pick_pt do_oops pat block_list old_error)
(defun bmk_defaults()
(if (not klm) (dscprinc))
(if bname (set_tile "bname" bname))
(if (/= 0 retain) (setq retain 1))
(set_tile "retain" (itoa retain))
(if (not x_pt) (setq x_pt 0.0))
(if (not y_pt) (setq y_pt 0.0))
(if (not z_pt) (setq z_pt 0.0))
(set_tile "x_pt" (rtos x_pt))
(set_tile "y_pt" (rtos y_pt))
(set_tile "z_pt" (rtos z_pt))
(set_tile "how_many"
(if selection_set
(itoa (sslength_CurrentSpace selection_set))
"0"
)
)
)
(defun bmk_check_real(real_number coord)
(if (not klm) (dscprinc))
(if real_number
(progn
(rs_error)
(set_tile coord (rtos real_number))
real_number
)
(progn
(set_tile "error" (strcat "Invalid "
(strcase (substr coord 1 1))
" coordinate.")
)
(mode_tile coord 2)
(mode_tile coord 3)
nil
)
)
)
(defun bmk_check_name(name)
(if (not klm)
(dscprinc)
)
(if (not (snvalid name))
(progn
(set_tile "error" "错误的图块名.")
nil
)
(progn
(rs_error)
name
)
)
)
(defun bmk_bexist()
(if (not klm)
(dscprinc)
)
(cond
((not (bmk_check_real x_pt "x_pt")))
((not (bmk_check_real y_pt "y_pt")))
((not (bmk_check_real z_pt "z_pt")))
((or (not bname) (= "" bname))
(set_tile "error" "不允许空的图块名。")
(mode_tile "bname" 2)
(mode_tile "bname" 3)
)
((and selection_set (bmk_check_ref)))
((member bname block_list)
(if (not (new_dialog "bmake_bname_exists" dcl_id)) (exit))
(action_tile "yes" "(done_dialog 2)")
(action_tile "no" "(done_dialog 0)")
(if (= (start_dialog) 2) (done_dialog 2))
)
(T
(if (bmk_check_name bname)
(done_dialog 2)
(progn
(mode_tile "bname" 2)
(mode_tile "bname" 3)
)
)
)
)
)
(defun bmk_check_ref (/ a ref ent_list sslen self_list)
(if (not klm)
(dscprinc)
)
(setq a 0 self_list nil ref nil
sslen (ai_sslength selection_set)
)
(while (< a sslen)
(setq ent_list (entget (ssname selection_set a)))
(if (= "INSERT" (cdr (assoc 0 ent_list)))
(setq self_list
(cons (cdr (assoc 2 ent_list)) self_list)
)
)
(setq a (1+ a))
)
(if self_list
(if (cond ((member bname self_list)) ((bmk_self_ref bname self_list)))
(set_tile "error" "错误 - 该图块参照了它自身.")
)
)
)
(defun bmk_self_ref (self others / ent other_list)
(if (not klm)
(dscprinc)
)
(setq other_list nil)
(foreach n others
(setq en1 (cdr (assoc -2 (tblsearch "block" n)))) ;第一个实体
(while en1
(setq ent (entget en1))
(if (and (= "INSERT" (cdr (assoc 0 ent)))
(not (member (setq other_name (cdr (assoc 2 ent))) others))
)
(setq other_list (cons other_name other_list))
)
(setq en1 (entnext en1))
)
(if (and other_list (member self other_list))
(setq ref t)
(bmk_self_ref self other_list)
)
)
ref ;当引用自身时返回t,否则返回nil.
)
(defun bmk_list_blocks()
(if (not klm)
(dscprinc)
)
(if (not (new_dialog "bmake_list_blocks" dcl_id)) (exit))
(if (not pat) (setq pat "*"))
(set_tile "pattern" pat)
(bmk_pat_match)
(action_tile "pattern" "(setq pat $value) (bmk_pat_match)")
(action_tile "accept" "(done_dialog 0)")
(start_dialog)
)
(defun bmk_pat_match (/ pat)
(if (not klm)
(dscprinc)
)
(setq bl_match nil pat (strcase (get_tile "pattern")))
(if (= pat "") (setq pat "*"))
(foreach n block_list
(if (wcmatch n pat)
(setq bl_match (cons n bl_match))
)
)
(if (and bl_match
(>= (getvar "maxsort") (length bl_match)) ;按字母顺序排列
)
(setq bl_match (acad_strlsort bl_match))
)
(start_list "bl_match")
(mapcar 'add_list bl_match)
(end_list)
)
(defun bmk_make_block( / old_exp str_exp)
(if (not klm)
(dscprinc)
)
(setq str_exp "expert"
old_exp (getvar str_exp)) ;存储当前expert的设置
(setvar str_exp 2)
(if (and selection_set
(< 0 (sslength_CurrentSpace selection_set))
)
(progn
(command "_block" bname "_none" (list x_pt y_pt z_pt) selection_set "")
(setq do_oops 1)
)
(progn
(command "_block" bname "_none" (list x_pt y_pt z_pt) "")
(setq do_oops 0)
)
)
(if (and (= retain 1)
(= do_oops 1)
)
(command "_oops")
)
(setvar str_exp old_exp)
)
(defun bmk_bmake_main ()
(if (not klm)
(dscprinc)
)
(setq block_list (ai_table "block" 2)
what_next 5
)
(while (< 2 what_next)
(if (not (new_dialog "bmake" dcl_id)) (exit))
(bmk_defaults)
(if (= 5 what_next) (mode_tile "bname" 2)) ;设置输入焦点到块名栏
(action_tile "bname" "(bmk_check_name (setq bname (strcase (get_tile $key))))")
(action_tile "pick_pt" "(rs_error) (done_dialog 4)")
(action_tile "x_pt" "(setq x_pt (bmk_check_real (distof (get_tile $key)) $key))")
(action_tile "y_pt" "(setq y_pt (bmk_check_real (distof (get_tile $key)) $key))")
(action_tile "z_pt" "(setq z_pt (bmk_check_real (distof (get_tile $key)) $key))")
(action_tile "sel_objs" "(done_dialog 3)")
(action_tile "list_blocks" "(rs_error) (bmk_list_blocks)")
(action_tile "retain" "(setq retain (atoi $value))")
(action_tile "accept" "(bmk_bexist)")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "help" "(help "" "block_definition_dialog")")
(setq what_next (start_dialog)) ; 将控制权交给对话框.
(cond ; 决定下一步做什么.
((= what_next 3)
(setq temp_ss (ssget))
(if temp_ss
(setq selection_set (ai_ssget temp_ss))
)
(rs_error)
)
((= what_next 4)
(initget 1)
(setq pick_pt (getpoint "Insertion base point: "))
(if pick_pt
(setq x_pt (car pick_pt) ; 当前UCS
y_pt (cadr pick_pt)
z_pt (caddr pick_pt)
)
)
)
)
)
(if (= what_next 2)
(bmk_make_block)
)
)
(defun rs_error ()
(set_tile "error" "")
)
(defun sslength_CurrentSpace(ss)
(setq ss_count (sslength ss))
(if (and (= 0 (getvar "tilemode"))
(= 1 (getvar "cvport"))
)
(setq flag 1)
(setq flag 0)
)
(setq a 0)
(while (< a (sslength ss))
(setq ent_info (entget (ssname ss a)))
(if (or (and (= "VIEWPORT" (cdr (assoc '0 ent_info)))
(= 1 (cdr (assoc '69 ent_info)))
)
(/= flag (cdr (assoc '67 ent_info)))
)
(setq ss_count (1- ss_count))
)
(setq a (1+ a))
)
(fix ss_count)
)
(setq old_cmd (getvar "cmdecho") ;存储当前的cmdecho
old_error *error*
*error* ai_error
)
(setvar "cmdecho" 0)
(setq selection_set
(if (and (eq 1 (logand 1 (getvar "pickfirst")))
(setq selection_set (ssget "_i"))
)
(ai_ssget selection_set)
)
)
(cond
( (not (ai_notrans))) ; transparent not OK
( (not (setq dcl_id (ai_dcl "bmake"))))
(T (ai_undo_push)
(bmk_bmake_main) ; 处理!
(ai_undo_pop)
)
)
(setq *error* old_error)
(setvar "cmdecho" old_cmd)
(princ)
)
(princ " BMAKE loaded.")
(princ)
(princ)
[/FONT]

[FONT=courier new] 
(defun  ai_abort  (app  msg) 
        (defun  *error*  (s) 
                (if  old_error  (setq  *error*  old_error)) 
                (princ) 
        ) 
        (if  msg 
                (alert  (strcat  " 应用程序错误: "  app  " \n\n  "  msg  "  \n")) 
        ) 
        (exit) 
) 
(cond 
        (  (and  ai_dcl  (listp  ai_dcl)))          ; 该程序已经加载. 
        (  (not (findfile "ai_utils.lsp"))          ; 找文件ai_utils.lsp 
                (ai_abort "BMAKE" 
                        (strcat "不能定位文件AI_UTILS.LSP."        "\n 检查support目录.") 
                ) 
        ) 
        (  (eq  "failed"  (load  "ai_utils"  "failed"))         ; 加载AI_UTILS.LSP 
                (ai_abort  "BMAKE"  "不能调入文件AI_UTILS.LSP") 
        ) 
) 
(if  (not  (ai_acadapp))               ; 函数ai_acadapp在AI_UTILS.LSP中定义 
        (ai_abort "BMAKE" nil)         ;显示退出报警框 
) 
 
(defun c:bmake ( /  bname  x_pt  y_pt  dcl_id  z_pt   retain  selection_set 
        old_err  what_next  pick_pt  do_oops  pat  block_list  old_error) 
        (defun  bmk_defaults() 
                (if  (not  klm)  (dscprinc)) 
                (if  bname  (set_tile  "bname"  bname)) 
                (if  (/=  0  retain)  (setq  retain  1)) 
                (set_tile  "retain"  (itoa retain)) 
                (if  (not  x_pt)  (setq  x_pt  0.0)) 
                (if  (not  y_pt)  (setq  y_pt  0.0)) 
                (if  (not  z_pt)  (setq  z_pt  0.0)) 
                (set_tile  "x_pt"  (rtos  x_pt)) 
                (set_tile  "y_pt"  (rtos  y_pt)) 
                (set_tile  "z_pt"  (rtos  z_pt)) 
                (set_tile  "how_many" 
                        (if  selection_set 
                                (itoa  (sslength_CurrentSpace  selection_set)) 
                                "0" 
                        ) 
                ) 
        ) 
        (defun  bmk_check_real(real_number  coord) 
                (if  (not  klm)  (dscprinc)) 
                (if  real_number   
                        (progn 
                                (rs_error) 
                                (set_tile  coord  (rtos  real_number)) 
                                real_number 
                        ) 
                        (progn 
                                (set_tile  "error"  (strcat  "Invalid " 
                                        (strcase  (substr  coord  1  1)) 
                                        " coordinate.") 
                                ) 
                                (mode_tile  coord  2) 
                                (mode_tile  coord  3) 
                                nil 
                        ) 
                ) 
        ) 
        (defun  bmk_check_name(name) 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (if  (not  (snvalid  name)) 
                        (progn 
                                (set_tile  "error"  "错误的图块名.") 
                                nil 
                        ) 
                        (progn 
                                (rs_error) 
                                name 
                        ) 
                ) 
        ) 
        (defun  bmk_bexist() 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (cond 
                        ((not  (bmk_check_real  x_pt  "x_pt"))) 
                        ((not  (bmk_check_real  y_pt  "y_pt"))) 
                        ((not  (bmk_check_real  z_pt  "z_pt"))) 
                        ((or  (not  bname)  (=  ""  bname)) 
                (set_tile  "error"  "不允许空的图块名。") 
                                (mode_tile  "bname"  2) 
                                (mode_tile  "bname"  3) 
                        ) 
                        ((and  selection_set  (bmk_check_ref))) 
                        ((member  bname  block_list) 
                                (if  (not  (new_dialog  "bmake_bname_exists"  dcl_id))  (exit)) 
                                        (action_tile "yes" "(done_dialog 2)") 
                                        (action_tile "no"  "(done_dialog 0)") 
                                (if (= (start_dialog) 2) (done_dialog 2)) 
                                ) 
                        (T 
                                (if  (bmk_check_name  bname) 
                                        (done_dialog  2) 
                                        (progn 
                                                (mode_tile  "bname"  2) 
                                                (mode_tile  "bname"  3) 
                                        ) 
                                ) 
                        ) 
                ) 
        ) 
        (defun  bmk_check_ref (/  a  ref  ent_list  sslen  self_list) 
                (if (not klm) 
                        (dscprinc) 
                ) 
                (setq  a  0  self_list  nil  ref  nil 
                        sslen  (ai_sslength  selection_set) 
                ) 
                (while  (<  a  sslen) 
                        (setq  ent_list  (entget  (ssname  selection_set  a))) 
                        (if  (=  "INSERT"  (cdr  (assoc  0  ent_list))) 
                                (setq  self_list 
                                        (cons (cdr (assoc 2 ent_list))  self_list) 
                                ) 
                        ) 
                        (setq a (1+ a)) 
                ) 
                (if  self_list 
                        (if (cond ((member bname self_list)) ((bmk_self_ref bname self_list))) 
                                (set_tile "error"  "错误 - 该图块参照了它自身.") 
                        ) 
                ) 
        ) 
        (defun  bmk_self_ref  (self  others  /  ent  other_list) 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (setq  other_list  nil) 
                (foreach  n  others 
                        (setq  en1  (cdr  (assoc  -2  (tblsearch "block" n)))) ;第一个实体 
                        (while  en1 
                                (setq  ent  (entget  en1)) 
                                (if  (and  (=  "INSERT"  (cdr  (assoc  0  ent))) 
                                        (not (member (setq other_name (cdr (assoc 2 ent))) others)) 
                                        ) 
                                        (setq  other_list  (cons  other_name  other_list)) 
                                ) 
                                (setq  en1  (entnext  en1)) 
                        ) 
                        (if  (and  other_list  (member  self  other_list)) 
                                (setq  ref  t) 
                                (bmk_self_ref  self  other_list) 
                        ) 
                ) 
                ref                  ;当引用自身时返回t,否则返回nil. 
        ) 
        (defun  bmk_list_blocks() 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (if  (not  (new_dialog  "bmake_list_blocks"  dcl_id))  (exit)) 
                (if  (not  pat)  (setq  pat  "*")) 
                (set_tile  "pattern"  pat) 
                (bmk_pat_match) 
                (action_tile  "pattern"  "(setq  pat  $value)  (bmk_pat_match)") 
                (action_tile  "accept"  "(done_dialog  0)") 
                (start_dialog) 
        ) 
        (defun  bmk_pat_match  (/  pat) 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (setq  bl_match  nil  pat  (strcase  (get_tile  "pattern"))) 
                (if  (=  pat  "")  (setq  pat  "*")) 
                (foreach  n  block_list 
                        (if  (wcmatch  n  pat) 
                                (setq  bl_match  (cons  n  bl_match)) 
                        ) 
                ) 
                (if  (and  bl_match 
                        (>=  (getvar  "maxsort")  (length  bl_match)) ;按字母顺序排列 
                        ) 
                        (setq  bl_match  (acad_strlsort  bl_match)) 
                ) 
                (start_list  "bl_match") 
                (mapcar  'add_list  bl_match) 
                (end_list) 
        ) 
        (defun  bmk_make_block( /  old_exp  str_exp) 
                (if  (not  klm)        
                        (dscprinc) 
                ) 
                (setq  str_exp  "expert" 
                        old_exp  (getvar  str_exp))      ;存储当前expert的设置 
                (setvar  str_exp  2) 
                (if  (and  selection_set 
                                (<  0  (sslength_CurrentSpace  selection_set)) 
                        ) 
                        (progn 
                        (command "_block" bname "_none" (list x_pt y_pt z_pt) selection_set "") 
                        (setq  do_oops  1) 
                        ) 
                        (progn 
                                (command  "_block" bname "_none" (list x_pt y_pt z_pt) "") 
                                (setq do_oops 0) 
                        ) 
                ) 
                (if  (and  (=  retain  1) 
                                (=  do_oops  1) 
                        ) 
                        (command "_oops") 
                ) 
                (setvar  str_exp  old_exp) 
        ) 
        (defun  bmk_bmake_main () 
                (if  (not  klm) 
                        (dscprinc) 
                ) 
                (setq  block_list  (ai_table  "block"  2) 
                        what_next   5 
                ) 
                (while  (<  2  what_next) 
                        (if  (not  (new_dialog  "bmake"  dcl_id))  (exit)) 
                        (bmk_defaults) 
                (if  (=  5  what_next)  (mode_tile  "bname"  2)) ;设置输入焦点到块名栏 
(action_tile "bname"  "(bmk_check_name (setq bname (strcase (get_tile $key))))") 
                        (action_tile  "pick_pt"  "(rs_error)  (done_dialog  4)") 
(action_tile "x_pt"  "(setq x_pt (bmk_check_real (distof (get_tile $key)) $key))") 
(action_tile "y_pt"  "(setq y_pt (bmk_check_real (distof (get_tile $key)) $key))") 
(action_tile "z_pt"  "(setq z_pt (bmk_check_real (distof (get_tile $key)) $key))") 
                        (action_tile  "sel_objs"  "(done_dialog 3)") 
                        (action_tile  "list_blocks"  "(rs_error)  (bmk_list_blocks)") 
                        (action_tile  "retain"  "(setq  retain  (atoi  $value))") 
                        (action_tile  "accept"  "(bmk_bexist)") 
                        (action_tile  "cancel"  "(done_dialog  0)") 
                (action_tile  "help"  "(help  ""  "block_definition_dialog")") 
                        (setq  what_next  (start_dialog))   ; 将控制权交给对话框. 
                        (cond                               ; 决定下一步做什么. 
                                ((=  what_next  3) 
                                        (setq  temp_ss  (ssget)) 
                                        (if  temp_ss 
                                                (setq  selection_set  (ai_ssget  temp_ss)) 
                                        ) 
                                        (rs_error) 
                                ) 
                                ((=  what_next  4) 
                                        (initget  1) 
                                        (setq  pick_pt  (getpoint  "Insertion base point: ")) 
                                        (if  pick_pt 
                                                (setq  x_pt  (car  pick_pt)    ; 当前UCS 
                                                        y_pt  (cadr  pick_pt) 
                                                        z_pt  (caddr  pick_pt) 
                                                ) 
                                        ) 
                                ) 
                        ) 
                ) 
                (if  (=  what_next  2) 
                        (bmk_make_block) 
                ) 
        ) 
        (defun  rs_error () 
                (set_tile  "error" "") 
        ) 
        (defun  sslength_CurrentSpace(ss) 
                (setq  ss_count  (sslength  ss)) 
                (if  (and  (=  0  (getvar  "tilemode")) 
                                (=  1  (getvar  "cvport")) 
                        ) 
                        (setq  flag  1) 
                        (setq  flag  0) 
                ) 
                (setq  a  0) 
                (while  (<  a  (sslength  ss)) 
                        (setq  ent_info  (entget  (ssname  ss  a))) 
                        (if  (or  (and  (=  "VIEWPORT"  (cdr  (assoc  '0  ent_info))) 
                                                (=  1  (cdr  (assoc  '69  ent_info))) 
                                        ) 
                                        (/=  flag  (cdr  (assoc  '67 ent_info))) 
                                ) 
                                (setq ss_count (1- ss_count)) 
                        ) 
                        (setq  a  (1+  a)) 
                ) 
                (fix  ss_count) 
        ) 
        (setq  old_cmd  (getvar  "cmdecho")  ;存储当前的cmdecho 
                old_error  *error* 
                *error*  ai_error 
        ) 
        (setvar  "cmdecho"  0) 
        (setq  selection_set 
                (if  (and  (eq  1  (logand  1  (getvar  "pickfirst"))) 
                                (setq  selection_set  (ssget  "_i")) 
                        ) 
                        (ai_ssget  selection_set) 
                ) 
        ) 
        (cond 
                ( (not  (ai_notrans)))             ; transparent not OK 
                ( (not  (setq  dcl_id  (ai_dcl  "bmake")))) 
                (T  (ai_undo_push) 
                        (bmk_bmake_main)               ; 处理! 
                        (ai_undo_pop) 
                ) 
        ) 
        (setq  *error*  old_error) 
        (setvar  "cmdecho"  old_cmd) 
        (princ) 
) 
(princ "  BMAKE loaded.") 
(princ) 
(princ) 
[/FONT]

账号		自动登录	找回密码
密码			立即注册

[日积月累]：对话框及管理程序开发实例

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子