社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

clh521 发表于 2016-1-26 14:13:27

xyp1964 发表于 2012-7-21 01:23 static/image/common/back.gif


你有这个(SETBL)函数吗，想用CMDLA0却发现少了SETBL函数

hsx5233408 发表于 2016-2-15 09:19:14

好威武！ 好威风！好务实！好无私！好感谢！      

xyp1964 发表于 2016-3-27 19:12:14

本帖最后由 xyp1964 于 2017-11-20 21:44 编辑


;|
【函　　数】: xyp-Strcat
【功　　能】: 字符串表的连接
【语　　法】: (xyp-Strcat lst 连接符)
【参数或实例】: (xyp-Strcat '("aaa" "bbb" "ccc" "ddd") "-")
|;
(defun xyp-Strcat (lst str)
(if (> (length lst) 1)
    (substr (apply 'strcat (mapcar '(lambda (x) (strcat str x)) lst))
    (+ (strlen str) 1)
    )
    (car lst)
)
)

dadiwusheng 发表于 2016-3-29 22:00:27

学习了

TouchYong 发表于 2016-4-9 14:51:41

仲文玉 发表于 2012-7-21 05:31 static/image/common/back.gif
支持院长

学习了.......

773786668 发表于 2016-4-29 10:57:02

无条件顶，院长的源码那是必须学习滴

偏爱云~小吴 发表于 2016-5-5 22:01:50

求院长一个源码xyp-get-randoms,万分感谢

clinber 发表于 2016-5-25 20:59:23

xyp-Dcl-Init
院长大人 可否求一份这个

xyp1964 发表于 2016-9-24 22:41:45

本帖最后由 xyp1964 于 2017-11-20 21:44 编辑

;; xyp-SerialNumber 正整数或文本表 (xyp-SerialNumber nn数量 Num-TNil整数)
(defun xyp-SerialNumber      (nn Num-TNil)
(setq i 0 lst '())
(repeat nn
    (setq i   (1+ i)
          lst (if Num-TNil (cons i lst) (cons (itoa i) lst))
    )
)
(reverse lst)
)

ynhh 发表于 2016-9-25 10:05:16

院长太牛了
祝院长身体健康

查看完整版本: 【e派】工具箱函数再揭秘及应用实例