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

linshiyin2 发表于 2012-10-18 09:00:08

爆料啊，比较猛，第一个组码函数是我需要的

xiaxiang 发表于 2012-10-18 09:28:24

106#继续更新，只是复制粘贴，未作检查和测试，不承担任何责任
院长继续放猛料为盼！

仲文玉 发表于 2012-10-18 09:33:28

期待院长继续发通用函数

yoyoho 发表于 2012-10-18 17:48:17

感谢院长分享程序!

xyp1964 发表于 2012-10-20 20:29:24

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

;; xyp-SS2LayerList 选择集图层表 (xyp-SS2LayerList ss)
(defun xyp-SS2LayerList (ss / i lst s1 la)
(setq i   -1
          lst '()
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq la (xyp-dxf 8 s1))
    (if (not (member la lst))
      (setq lst (cons la lst))
    )
)
(vl-sort lst '<)
)

c735023723 发表于 2012-10-26 10:27:59

期待

xyp1964 发表于 2012-11-18 09:01:32

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

;; xyp-Str2List 将一行字符串拆分转为单独字符表 (xyp-Str2List str)
;; (xyp-Str2List "123工具箱函数再揭秘及应用实例Abc") → ("1" "2" "3" "工" "具" "箱" "函" "数" "再" "揭" "秘" "及" "应" "用" "实" "例" "A" "b" "c")
(defun xyp-Str2List (str / i lst tx)
(setq i 1 lst '())
(while (<= i (strlen str))
    (setq tx (substr str i 1))
    (if (> (ascii tx) 126)
      (setq tx (substr str i 2)
            i (+ i 2)
            lst (cons tx lst)
      )
      (setq i (1+ i)
            lst (cons tx lst)
      )
    )
)
(reverse lst)
)

xyp1964 发表于 2012-11-18 09:02:16

wangdaobin 发表于 2012-11-19 22:43:12

高科技！！！！！！

renox 发表于 2012-11-20 15:24:09

院长那个区域布孔能放出来吗。

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