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

hhh454

真的很不错，楼主辛苦，感谢分享，学习

JHX948954875

谢谢楼主分享

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 /> )

tianbob

谢谢楼主的分享

talentzf

谢谢楼主 的分享

slq803

谢谢楼主的分享

ljxkm

感谢无私分享啊

V2E

很好的插件，谢谢分享

edsion24

no function definition: WYB-FILE-CHECKINI  请问这个怎么解决

luhy2008

谢谢楼主分享!