明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: lostbalance

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

    [复制链接]
发表于 2018-9-7 08:53 | 显示全部楼层
真的很不错,楼主辛苦,感谢分享,学习
发表于 2018-11-5 14:06 | 显示全部楼层
谢谢楼主分享
 楼主| 发表于 2018-12-14 20:32 | 显示全部楼层
补充wyb-if类的函数。
都算是比较简单和通用的函数,就不挂附件了,直接贴出来。
  1. ;|= 3.5. 判断是否val对象
  2. @== (wyb-if-vlaObject obj)
  3. #== return: t / nil
  4. ====================|;
  5. (defun wyb-if-vlaObject (@obj)
  6.     (equal (type @obj) 'vla-object)
  7. )
  8. ;|= 3.6. 判断是否字符串
  9. @== (wyb-if-string x)
  10. #== return: t / nil
  11. ====================|;
  12. (defun wyb-if-string (@x)
  13.     (equal (type @x) 'str)
  14. )
  15. ;|= 3.7. 判断是否实数
  16. @== (wyb-if-real x)
  17. #== return: t / nil
  18. ====================|;
  19. (defun wyb-if-real (@x)
  20.     (equal (type @x) 'real)
  21. )
  22. ;|= 3.8. 判断是否ename对象
  23. @== (wyb-if-ename x)
  24. #== return: t / nil
  25. ====================|;
  26. (defun wyb-if-ename (@x)
  27.     (equal (type @x) 'ename)
  28. )
  29. ;|= 3.9. 判断是否变体
  30. @== (wyb-if-variant x)
  31. #== return: t / nil
  32. ====================|;
  33. (defun wyb-if-variant (@x)
  34.     (equal (type @x) 'variant)
  35. )
  36. ;|= 3.10. 判断是否是选择集且长度不为0
  37. @== (wyb-if-ssp ss)
  38. #== return: t / nil
  39. ====================|;
  40. (defun wyb-if-ssp (@ss)
  41.     (and (= (type @ss) 'PICKSET) (> (sslength @ss) 0))
  42. )
  43. ;|= 3.11. 判断是否为点对表
  44. @== (wyb-if-consp lst)
  45. #== return: t / nil
  46. ====================|;
  47. (defun wyb-if-consp (@lst)
  48.     (and (vl-consp @lst)(not (vl-list-length @lst)))
  49. )
  50. ;|= 3.12. 判断是否为整数
  51. @== (wyb-if-int x)
  52. #== return: t / nil
  53. ====================|;
  54. (defun wyb-if-int (@x)
  55.     (= (type @x) 'INT)
  56. )
  57. ;|= 3.13. 判断是否为整数或整实数
  58. @== (wyb-if-int2 x)
  59. #== return: t / nil
  60. ====================|;
  61. (defun wyb-if-int2 (@x)
  62.     (= (fix @x) @x)
  63. )
  64. ;|= 3.14. 判断字符串首字符是否中文字符
  65. @== (wyb-if-chiCh str)
  66. #== return: T / nil
  67. par:
  68. sample:
  69.     (wyb-if-chiCh "好")  ;;return: T
  70.     (wyb-if-chiCh "1")   ;;return: nil
  71. ver:
  72.     [1.0] by woyb 20170425
  73. ====================|;
  74. (defun wyb-if-chiCh (@str)
  75.     (> (ascii (substr @str 1 1)) 127)
  76. )



回复 支持 2 反对 0

使用道具 举报

发表于 2018-12-14 22:22 | 显示全部楼层
谢谢楼主的分享
发表于 2019-1-12 08:42 | 显示全部楼层
谢谢楼主 的分享
发表于 2019-5-29 00:32 | 显示全部楼层
谢谢楼主的分享
发表于 2019-6-4 09:12 | 显示全部楼层
感谢无私分享啊
发表于 2019-7-1 16:34 | 显示全部楼层
很好的插件,谢谢分享
发表于 2019-7-2 08:54 | 显示全部楼层
no function definition: WYB-FILE-CHECKINI  请问这个怎么解决
发表于 2019-7-4 18:37 | 显示全部楼层

谢谢楼主分享!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 17:19 , Processed in 0.224584 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表