[lostbalance]我的通用函数库wyb-函数

lostbalance

个人在用的函数库，部分自己编的，部分抄袭、借鉴明经或网上大神的。论坛中我发布的程序，需要的源码可以在这里找找。

（说明下，关于函数名wyb，仅是为了便于个人编程查找引用方便，在函数版次中注明了原作者，如有问题请联系我。）

---

首先是预定义的几个全局参数。
论坛的代码模块好像有点问题，显示不正常，我占个二楼放吧。

目录

1. (wyb-get-box ename)//4.2. 取得图元外矩形框
   
2. (wyb-get-mBox ss)//4.2.2 取得选择集内不重叠的外矩形框
   
3. (wyb-sort-lst lst key fuzz func)//4.4. 列表排序基础函数(方向判断)
   
4. (wyb-sort-ssPts sspts key fuzz)//4.4.1 图元排序
   
5. (wyb-sort-pts pts dir xyz fuzz)//4.4.2 点列表排序
   
6. (wyb-get-entDxf dxf ent)//4.11. 获取对象dxf码
   
7. (wyb-lst-position a lst)//4.18. a在表lst中的位置 or nil
   
8. (wyb-sublst lst start len)//4.21. 提取列表的一部分，类似substr(迭代法)
   
9. (wyb-substNth new n lst)//4.22. 替换列表中指定位置的项
   
10. (wyb-file-getFolder msg)//4.38. 获取文件夹
    
11. (wyb-getDesktop)//4.48. 获取桌面desktop的路径
    
12. (wyb-subst ent dxf new_item)//6.5 替换新旧列表后的列表
    
13. (wyb-findSupportFolder folder)//9.24. 在支持目录中查找文件夹路径
    
14. (wyb-get-lastEnt ent)//3.17. 获取ent之后的所有对象
    
15. (wyb-substMod ent dxf new_item)//5.10.1 替换并更新新旧列表后的列表
    
16. (wyb-subst ent dxf new_item)//5.10. 替换新旧列表后的列表
    
17. (wyb-name obj)//9.6. 对象名称
    
18. (wyb-listCollectionMemberNames collection)//9.11. 返回集合成员名称列表
    
19. (wyb-listLayers)//9.13. 返回层集合成员名称列表
    

复制代码

---

20181214 补充wyb-if类的函数，见本贴13楼
20181217 增加wyb-findSupportFolder
                 PS，生命在于折腾，前阵子整理了一下函数库，重新分类梳理了编号，有极个别函数的名称也调整了下，有问题请留言
20190530 补充wyb-subst v1.0，wyb-substMod v1.0，wyb-get-lastEnt v1.0
20191216 补充wyb-name v1.0, wyb-listCollectionMemberNames v1.0, wyb-listLayers v1.020200916 补充wyb-lst-insertNth v1.0
20210802 补充wyb-sort-str v1.0

lostbalance

;|=====WYB函数库=====
--------------------------------------------------------------------------------
本函数库的源码，有部分源自明经论坛、晓东论坛等处
由于各种原因，导致部分源码的作者信息不完整或丢失，深感歉意
感谢自贡黄明儒、highflybir、llsheng-73、edata、不死猫等明经er和leemac等
--------------------------------------------------------------------------------
====================|;
(vl-load-com)
;===0. 常数
(setq ;;常用VLA对象、集合
    0.5pi   (* 0.5 pi)
    1.5pi   (* 1.5 pi)
    2pi     (+ pi pi)
    *ACAD*  (vlax-get-acad-object) ;;AutoCAD任务中的顶层 AutoCAD应用程序对象，即获取AutoCAD程序本身
    *DOC*   (vla-get-ActiveDocument *ACAD*) ;;是在autocad程序下面运行的当前文档对象
    *LOUT*  (vla-get-ActiveLayout *DOC*) ;;激活的布局
    *DOCS*  (vla-get-Documents *ACAD*)
    *MS*    (vla-get-modelSpace *DOC*)
    *PS*    (vla-get-paperSpace *DOC*)
    *BLKS*  (vla-get-Blocks *DOC*)
    *LAYS*  (vla-get-Layers *DOC*)
    *LTS*   (vla-get-Linetypes *DOC*)
    *TSS*   (vla-get-TextStyles *DOC*)
    *GRPS*  (vla-get-groups *DOC*)
    *DIMS*  (vla-get-DimStyles *DOC*)
    *LOUTS* (vla-get-Layouts *DOC*)
    *VPS*   (vla-get-Viewports *DOC*)
    *VS*    (vla-get-Views *DOC*)
    *DICS*  (vla-get-Dictionaries *DOC*)
    *PLTCS* (vla-get-PlotConfigurations *DOC*)
    *RAPPS* (vla-get-RegisteredApplications *DOC*)
    ;;常用的几个外部接口对象
    *FSO*   (vlax-get-or-create-object "Scripting.FileSystemObject")
    *WSH*   (vlax-get-or-create-object "wscript.shell")
    *SHELL* (vlax-get-or-create-object "Shell.Application")
    *SCR*   (vlax-get-or-create-object "ScriptControl")
    *WBEM*  (vlax-get-or-create-object "WbemScripting.SWbemLocator")
    *VBS*   (vlax-get-or-create-object "VBScript.regexp")
    *HTMLF* (vlax-get-or-create-object "htmlfile")
    ;;全局参数
    *wyb_ini* "WYB-Tools.ini"
)

xiewu

如能合并就方便了
你真好

lostbalance

补充wyb-if类的函数。
都算是比较简单和通用的函数，就不挂附件了，直接贴出来。

2. ;|= 3.5. 判断是否val对象
   
3. @== (wyb-if-vlaObject obj)
   
4. #== return: t / nil
   
5. ====================|;
   
6. (defun wyb-if-vlaObject (@obj)
   
7.     (equal (type @obj) 'vla-object)
   
8. )
   
9. ;|= 3.6. 判断是否字符串
   
10. @== (wyb-if-string x)
    
11. #== return: t / nil
    
12. ====================|;
    
13. (defun wyb-if-string (@x)
    
14.     (equal (type @x) 'str)
    
15. )
    
16. ;|= 3.7. 判断是否实数
    
17. @== (wyb-if-real x)
    
18. #== return: t / nil
    
19. ====================|;
    
20. (defun wyb-if-real (@x)
    
21.     (equal (type @x) 'real)
    
22. )
    
23. ;|= 3.8. 判断是否ename对象
    
24. @== (wyb-if-ename x)
    
25. #== return: t / nil
    
26. ====================|;
    
27. (defun wyb-if-ename (@x)
    
28.     (equal (type @x) 'ename)
    
29. )
    
30. ;|= 3.9. 判断是否变体
    
31. @== (wyb-if-variant x)
    
32. #== return: t / nil
    
33. ====================|;
    
34. (defun wyb-if-variant (@x)
    
35.     (equal (type @x) 'variant)
    
36. )
    
37. ;|= 3.10. 判断是否是选择集且长度不为0
    
38. @== (wyb-if-ssp ss)
    
39. #== return: t / nil
    
40. ====================|;
    
41. (defun wyb-if-ssp (@ss)
    
42.     (and (= (type @ss) 'PICKSET) (> (sslength @ss) 0))
    
43. )
    
44. ;|= 3.11. 判断是否为点对表
    
45. @== (wyb-if-consp lst)
    
46. #== return: t / nil
    
47. ====================|;
    
48. (defun wyb-if-consp (@lst)
    
49.     (and (vl-consp @lst)(not (vl-list-length @lst)))
    
50. )
    
51. ;|= 3.12. 判断是否为整数
    
52. @== (wyb-if-int x)
    
53. #== return: t / nil
    
54. ====================|;
    
55. (defun wyb-if-int (@x)
    
56.     (= (type @x) 'INT)
    
57. )
    
58. ;|= 3.13. 判断是否为整数或整实数
    
59. @== (wyb-if-int2 x)
    
60. #== return: t / nil
    
61. ====================|;
    
62. (defun wyb-if-int2 (@x)
    
63.     (= (fix @x) @x)
    
64. )
    
65. ;|= 3.14. 判断字符串首字符是否中文字符
    
66. @== (wyb-if-chiCh str)
    
67. #== return: T / nil
    
68. par:
    
69. sample:
    
70.     (wyb-if-chiCh "好")  ;;return: T
    
71.     (wyb-if-chiCh "1")   ;;return: nil
    
72. ver:
    
73.     [1.0] by woyb 20170425
    
74. ====================|;
    
75. (defun wyb-if-chiCh (@str)
    
76.     (> (ascii (substr @str 1 1)) 127)
    
77. )

;|= 3.5. 判断是否val对象<br /> @== (wyb-if-vlaObject obj)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-vlaObject (@obj) <br />     (equal (type @obj) 'vla-object)<br /> )<br /> ;|= 3.6. 判断是否字符串<br /> @== (wyb-if-string x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-string (@x) <br />     (equal (type @x) 'str)<br /> )<br /> ;|= 3.7. 判断是否实数<br /> @== (wyb-if-real x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-real (@x) <br />     (equal (type @x) 'real)<br /> )<br /> ;|= 3.8. 判断是否ename对象<br /> @== (wyb-if-ename x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-ename (@x)<br />     (equal (type @x) 'ename)<br /> )<br /> ;|= 3.9. 判断是否变体<br /> @== (wyb-if-variant x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-variant (@x) <br />     (equal (type @x) 'variant)<br /> )<br /> ;|= 3.10. 判断是否是选择集且长度不为0<br /> @== (wyb-if-ssp ss)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-ssp (@ss) <br />     (and (= (type @ss) 'PICKSET) (> (sslength @ss) 0))<br /> )<br /> ;|= 3.11. 判断是否为点对表<br /> @== (wyb-if-consp lst)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-consp (@lst)<br />     (and (vl-consp @lst)(not (vl-list-length @lst)))<br /> )<br /> ;|= 3.12. 判断是否为整数<br /> @== (wyb-if-int x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-int (@x) <br />     (= (type @x) 'INT)<br /> )<br /> ;|= 3.13. 判断是否为整数或整实数<br /> @== (wyb-if-int2 x)<br /> #== return: t / nil<br /> ====================|;<br /> (defun wyb-if-int2 (@x) <br />     (= (fix @x) @x)<br /> )<br /> ;|= 3.14. 判断字符串首字符是否中文字符<br /> @== (wyb-if-chiCh str)<br /> #== return: T / nil<br /> par: <br /> sample: <br />     (wyb-if-chiCh "好")  ;;return: T<br />     (wyb-if-chiCh "1")   ;;return: nil<br /> ver: <br />     [1.0] by woyb 20170425<br /> ====================|;<br /> (defun wyb-if-chiCh (@str)<br />     (> (ascii (substr @str 1 1)) 127)<br /> )

BaoWSE

悟性不达标，先收藏之有时间再慢慢琢磨参悟！

sachindkini

dear sir

wow its amazing

thanks for sharing

ynhh

如能合并就方便了
你真好

pannelchen

收藏以后学习用.

yoyoho

感谢分享学习!!!!!

vlisp2012

THX A LOT!!!!!!!!!

479274135

感谢分享.....