[LISP程序]：API函数－组选开关、单组选开关、去组定义。。。。

eachy

2. ;; "group_onf" "obj_group_onf" "make_ungroup" "group_del"
   
3. ;;组操作，透明命令
   
4. ;;全局组选开关
   
5. (defun c:group_onf ()
   
6.   (if (= (getvar "pickstyle") 0)
   
7.     (setvar "pickstyle" 1)
   
8.     (setvar "pickstyle" 0)
   
9.   )
   
10.   (princ)
    
11. )
    
12. ;;单组选开关   
    
13. (defun c:obj_group_onf (/ e group_dict)
    
14.   (setq e (xdrx_entsel "\n选择组: "))
    
15.   (if (setq group_dict (car (xdrx_object_reactor (car e))))
    
16.     (progn
    
17.       (xdrx_setenttodb group_dict)
    
18.       (if (= (xdrx_getentdxf 71) 1)
    
19.         (xdrx_modent 71 0)
    
20.         (xdrx_modent 71 1)
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. ;;制作匿组
    
27. (defun c:make_ungroup ()
    
28.   (xdrx_group_make "*" (ssget))
    
29.   (princ)
    
30. )
    
31. ;;去除组义
    
32. (defun c:group_del (/ e group_dict group_lst)
    
33.   (setq e (xdrx_entsel "\n选择组: "))
    
34.   (if (setq group_dict (car (xdrx_object_reactor (car e))))
    
35.     (progn
    
36.       (setq group_lst (entget (xdrx_object_owner group_dict)))
    
37.       (xdrx_group_del (cdr (assoc 3 group_lst)))
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    
42. ;;不用分解直接删除组内实体
    
43. (defun c:del_group_ent ()
    
44.   (entdel (car (entsel "\n选择组实体: ")))
    
45.   (princ)
    
46. )

;; "group_onf" "obj_group_onf" "make_ungroup" "group_del"<br /> ;;组操作，透明命令<br /> ;;全局组选开关<br /> (defun c:group_onf ()<br />   (if (= (getvar "pickstyle") 0)<br />     (setvar "pickstyle" 1)<br />     (setvar "pickstyle" 0)<br />   )<br />   (princ)<br /> )<br /> ;;单组选开关    <br /> (defun c:obj_group_onf (/ e group_dict)<br />   (setq e (xdrx_entsel "\n选择组: "))<br />   (if (setq group_dict (car (xdrx_object_reactor (car e))))<br />     (progn<br />       (xdrx_setenttodb group_dict)<br />       (if (= (xdrx_getentdxf 71) 1)<br />         (xdrx_modent 71 0)<br />         (xdrx_modent 71 1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;制作匿组<br /> (defun c:make_ungroup ()<br />   (xdrx_group_make "*" (ssget))<br />   (princ)<br /> )<br /> ;;去除组义<br /> (defun c:group_del (/ e group_dict group_lst)<br />   (setq e (xdrx_entsel "\n选择组: "))<br />   (if (setq group_dict (car (xdrx_object_reactor (car e))))<br />     (progn<br />       (setq group_lst (entget (xdrx_object_owner group_dict)))<br />       (xdrx_group_del (cdr (assoc 3 group_lst)))<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;不用分解直接删除组内实体<br /> (defun c:del_group_ent ()<br />   (entdel (car (entsel "\n选择组实体: ")))<br />   (princ)<br /> )

bdycad

good