【e派】工具箱函数再揭秘及应用实例

linshiyin2

爆料啊，比较猛，第一个组码函数是我需要的

xiaxiang

106#继续更新，只是复制粘贴，未作检查和测试，不承担任何责任
院长继续放猛料为盼！

仲文玉

期待院长继续发通用函数

yoyoho

感谢院长分享程序!

xyp1964

1. ;; xyp-SS2LayerList 选择集图层表 (xyp-SS2LayerList ss)
   
2. (defun xyp-SS2LayerList (ss / i lst s1 la)
   
3.   (setq i   -1
   
4.           lst '()
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.     (setq la (xyp-dxf 8 s1))
   
8.     (if (not (member la lst))
   
9.       (setq lst (cons la lst))
   
10.     )
    
11.   )
    
12.   (vl-sort lst '<)
    
13. )
    

;; xyp-SS2LayerList 选择集图层表 (xyp-SS2LayerList ss)<br /> (defun xyp-SS2LayerList (ss / i lst s1 la)<br />   (setq i   -1<br />           lst '()<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq la (xyp-dxf 8 s1))<br />     (if (not (member la lst))<br />       (setq lst (cons la lst))<br />     )<br />   )<br />   (vl-sort lst '<)<br /> )<br />

c735023723

期待

xyp1964

1. ;; xyp-Str2List 将一行字符串拆分转为单独字符表 (xyp-Str2List str)
   
2. ;; (xyp-Str2List "123工具箱函数再揭秘及应用实例Abc") → ("1" "2" "3" "工" "具" "箱" "函" "数" "再" "揭" "秘" "及" "应" "用" "实" "例" "A" "b" "c")
   
3. (defun xyp-Str2List (str / i lst tx)
   
4.   (setq i 1 lst '())
   
5.   (while (<= i (strlen str))
   
6.     (setq tx (substr str i 1))
   
7.     (if (> (ascii tx) 126)
   
8.       (setq tx (substr str i 2)
   
9.             i (+ i 2)
   
10.             lst (cons tx lst)
    
11.       )
    
12.       (setq i (1+ i)
    
13.             lst (cons tx lst)
    
14.       )
    
15.     )
    
16.   )
    
17.   (reverse lst)
    
18. )

;; xyp-Str2List 将一行字符串拆分转为单独字符表 (xyp-Str2List str)<br /> ;; (xyp-Str2List "123工具箱函数再揭秘及应用实例Abc") → ("1" "2" "3" "工" "具" "箱" "函" "数" "再" "揭" "秘" "及" "应" "用" "实" "例" "A" "b" "c") <br /> (defun xyp-Str2List (str / i lst tx)<br />   (setq i 1 lst '())<br />   (while (<= i (strlen str))<br />     (setq tx (substr str i 1))<br />     (if (> (ascii tx) 126)<br />       (setq tx (substr str i 2)<br />             i (+ i 2)<br />             lst (cons tx lst)<br />       )<br />       (setq i (1+ i)<br />             lst (cons tx lst)<br />       )<br />     )<br />   )<br />   (reverse lst)<br /> )

xyp1964

wangdaobin

高科技！！！！！！

renox

院长那个区域布孔能放出来吗。