【e派】工具箱函数再揭秘及应用实例

xyp1964

TPG辉 发表于 2019-3-20 08:36
望院长来段 xyp-get-layers

1. ;; xyp-get-Layers 获得所有layer层名的列表 (xyp-get-Layers)
   
2. (defun xyp-get-Layers (/ lst d)
   
3.   (while (setq d (tblnext "layer" (null d)))
   
4.     (setq lst (cons (cdr (assoc 2 d)) lst))
   
5.   )
   
6.   (vl-sort lst '<)
   
7. )

;; xyp-get-Layers 获得所有layer层名的列表 (xyp-get-Layers)<br /> (defun xyp-get-Layers (/ lst d)<br />   (while (setq d (tblnext "layer" (null d)))<br />     (setq lst (cons (cdr (assoc 2 d)) lst))<br />   )<br />   (vl-sort lst '<)<br /> )

yoyoho

谢谢院长发源

664571221

xyp1964 发表于 2013-3-18 20:07

求院长大人xyp-Sort

yoyoho

664571221 发表于 2019-6-28 14:57
求院长大人xyp-Sort

https://www.askcad.com/html/200604/1531.html

664571221

yoyoho 发表于 2019-6-28 17:26
https://www.askcad.com/html/200604/1531.html

谢谢大神，这个网站怎么收集了院长这么多的函数

664571221

664571221 发表于 2019-6-29 08:59
谢谢大神，这个网站怎么收集了院长这么多的函数

你好这个函数有吗xyp-get-Dxf

cqu20104225

好代码，感谢分享

renyonghua2014

院长大神，
xyp-Table-JustifyText
你的这个函数能讲解一下不？，谢谢！

vladimirputin

非常棒的工具箱函数，用处是非常大的。

路宁宁

望院长来段 XYP-OFFSET