清理空组

Lisphk

1. (defun c:DELG (/ i group glist delgro)
   
2.   (setq group (vla-get-groups
   
3.       (vla-get-Activedocument (vlax-get-acad-object))
   
4.     )
   
5.   )
   
6.   (setq i 0); 循還初始值設定
   
7.   (repeat (vla-get-count group); 列出空組的組表
   
8.     (if (= (vla-get-count (setq glist (vla-item group i))) 0)
   
9.       (setq delgro (cons (vla-get-name glist) delgro))
   
10.     )
    
11.     (setq i (+ i 1))
    
12.   )
    
13.   (setq i 0)
    
14.   (setvar "cmdecho" 0); 關閉命令行回顯
    
15.   (command "_.undo" "_group")
    
16.   (REPEAT (length delgro); 循還清除空組組名
    
17.     (command ".group""e" (nth i delgro))
    
18.     (setq i (1+ i)))
    
19.   (command "_.undo" "_end")
    
20.   (setvar "cmdecho" 1)
    
21.   (princ"\n現在以將空組清理了. ")
    
22.   (princ)
    
23. )
    

(defun c:DELG (/ i group glist delgro)<br />   (setq group (vla-get-groups<br />       (vla-get-Activedocument (vlax-get-acad-object))<br />     )<br />   )<br />   (setq i 0); 循還初始值設定<br />   (repeat (vla-get-count group); 列出空組的組表<br />     (if (= (vla-get-count (setq glist (vla-item group i))) 0)<br />       (setq delgro (cons (vla-get-name glist) delgro))<br />     )<br />     (setq i (+ i 1))<br />   )<br />   (setq i 0)<br />   (setvar "cmdecho" 0); 關閉命令行回顯<br />   (command "_.undo" "_group")<br />   (REPEAT (length delgro); 循還清除空組組名<br />     (command ".group""e" (nth i delgro))<br />     (setq i (1+ i)))<br />   (command "_.undo" "_end")<br />   (setvar "cmdecho" 1)<br />   (princ"\n現在以將空組清理了. ")<br />   (princ)<br /> )<br />

ynhh

大师太牛了
能不能写个人民币大小写的转换程序啊

Lisphk

ynhh 发表于 2016-8-14 18:22
大师太牛了
能不能写个人民币大小写的转换程序啊

论坛有，搜索下看看。

ynhh

Lisphk 发表于 2016-8-14 18:27
论坛有，搜索下看看。

大师你试试看搜索不到啊
顶多只是字母大小写转换的
类似人民币大小写转的还真没有啊
当然这中是学习
网上有现成的转换程序
如大师方便
可编一个出来让大家学习一下啊

xvjiex

感谢分享清理空组