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

TPG辉

xyp1964 发表于 2015-7-12 07:38

院长再来个：xyp-ss2list

xyp1964

TPG辉 发表于 2015-7-12 09:16
院长再来个：xyp-ss2list

1. (defun xyp-SS2List (ss / i s1 lst)
   
2.   (cond ((= (type ss) 'PICKSET)
   
3.          (setq lst (reverse (ssnamex ss))
   
4.                lst (vl-remove-if-not
   
5.                      '(lambda (x) (equal (type (cadr x)) 'ENAME))
   
6.                      lst
   
7.                    )
   
8.                lst (mapcar 'cadr lst)
   
9.          )
   
10.         )
    
11.         ((= (type ss) 'ENAME) (setq lst (list ss)))
    
12.         ((= (type ss) 'LIST)
    
13.          (foreach s1 ss (setq lst (append (xyp-SS2List s1) lst)))
    
14.         )
    
15.   )
    
16. )

(defun xyp-SS2List (ss / i s1 lst)<br />   (cond ((= (type ss) 'PICKSET)<br />          (setq lst (reverse (ssnamex ss))<br />                lst (vl-remove-if-not<br />                      '(lambda (x) (equal (type (cadr x)) 'ENAME))<br />                      lst<br />                    )<br />                lst (mapcar 'cadr lst)<br />          )<br />         )<br />         ((= (type ss) 'ENAME) (setq lst (list ss)))<br />         ((= (type ss) 'LIST)<br />          (foreach s1 ss (setq lst (append (xyp-SS2List s1) lst)))<br />         )<br />   )<br /> )

杜阳

(defun xyp-Line (pt1 pt2)
  (command "Line" "non" pt1 pt2)
  (entlast)
)

杜阳

中国的lee  mac  大师  

重慶崽兒

院长，请教下多段线点表除重：
如果多段线是这样呢：

好像就不对了，会把下面那个点也给删了
但是如果误差设置为0的话好像又不能实现除重的效果

杜阳

每次来  每次看   真好

BenjaminXM

谢谢院长的分享，
想请问一下院长，您的工具箱函数是不是xyp1964.slb这个文件，是否有相关的函数说明书？
是否有arx格式的函数库？
谢谢~

qhh6066

院长能来个：XYP-LST2XLS，谢谢

tryhi

请问一下院长(xyp-Group0)、(xyp-Group1)是不是跟xyp-CMDLA0、xyp-CMDLA1一样的？

dianbotang

请问院长，能否提供一下画多段线函数(xyp-pline dl nil)？