社区 › AutoLISP/Visual LISP 编程技术 › [lostbalance]我的通用函数库wyb-函数

hhh454 发表于 2018-9-7 08:53:37

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

JHX948954875 发表于 2018-11-5 14:06:42

谢谢楼主分享

lostbalance 发表于 2018-12-14 20:32:40

补充wyb-if类的函数。
都算是比较简单和通用的函数，就不挂附件了，直接贴出来。
;|= 3.5. 判断是否val对象
@== (wyb-if-vlaObject obj)
#== return: t / nil
====================|;
(defun wyb-if-vlaObject (@obj)
    (equal (type @obj) 'vla-object)
)
;|= 3.6. 判断是否字符串
@== (wyb-if-string x)
#== return: t / nil
====================|;
(defun wyb-if-string (@x)
    (equal (type @x) 'str)
)
;|= 3.7. 判断是否实数
@== (wyb-if-real x)
#== return: t / nil
====================|;
(defun wyb-if-real (@x)
    (equal (type @x) 'real)
)
;|= 3.8. 判断是否ename对象
@== (wyb-if-ename x)
#== return: t / nil
====================|;
(defun wyb-if-ename (@x)
    (equal (type @x) 'ename)
)
;|= 3.9. 判断是否变体
@== (wyb-if-variant x)
#== return: t / nil
====================|;
(defun wyb-if-variant (@x)
    (equal (type @x) 'variant)
)
;|= 3.10. 判断是否是选择集且长度不为0
@== (wyb-if-ssp ss)
#== return: t / nil
====================|;
(defun wyb-if-ssp (@ss)
    (and (= (type @ss) 'PICKSET) (> (sslength @ss) 0))
)
;|= 3.11. 判断是否为点对表
@== (wyb-if-consp lst)
#== return: t / nil
====================|;
(defun wyb-if-consp (@lst)
    (and (vl-consp @lst)(not (vl-list-length @lst)))
)
;|= 3.12. 判断是否为整数
@== (wyb-if-int x)
#== return: t / nil
====================|;
(defun wyb-if-int (@x)
    (= (type @x) 'INT)
)
;|= 3.13. 判断是否为整数或整实数
@== (wyb-if-int2 x)
#== return: t / nil
====================|;
(defun wyb-if-int2 (@x)
    (= (fix @x) @x)
)
;|= 3.14. 判断字符串首字符是否中文字符
@== (wyb-if-chiCh str)
#== return: T / nil
par:
sample:
    (wyb-if-chiCh "好");;return: T
    (wyb-if-chiCh "1")   ;;return: nil
ver:
    by woyb 20170425
====================|;
(defun wyb-if-chiCh (@str)
    (> (ascii (substr @str 1 1)) 127)
)

tianbob 发表于 2018-12-14 22:22:01

谢谢楼主的分享

talentzf 发表于 2019-1-12 08:42:30

谢谢楼主 的分享

slq803 发表于 2019-5-29 00:32:21

谢谢楼主的分享

ljxkm 发表于 2019-6-4 09:12:18

感谢无私分享啊

V2E 发表于 2019-7-1 16:34:49

很好的插件，谢谢分享

edsion24 发表于 2019-7-2 08:54:56

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

luhy2008 发表于 2019-7-4 18:37:43

谢谢楼主分享!

查看完整版本: [lostbalance]我的通用函数库wyb-函数