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

TPG辉 发表于 2015-7-12 09:16:35

xyp1964 发表于 2015-7-12 07:38 static/image/common/back.gif


院长再来个：xyp-ss2list

xyp1964 发表于 2015-7-12 11:28:38

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

TPG辉 发表于 2015-7-12 09:16 static/image/common/back.gif
院长再来个：xyp-ss2list
(defun xyp-SS2List (ss / i s1 lst)
(cond ((= (type ss) 'PICKSET)
         (setq lst (reverse (ssnamex ss))
               lst (vl-remove-if-not
                     '(lambda (x) (equal (type (cadr x)) 'ENAME))
                     lst
                   )
               lst (mapcar 'cadr lst)
         )
      )
      ((= (type ss) 'ENAME) (setq lst (list ss)))
      ((= (type ss) 'LIST)
         (foreach s1 ss (setq lst (append (xyp-SS2List s1) lst)))
      )
)
)

杜阳 发表于 2015-7-25 17:19:51

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

杜阳 发表于 2015-7-25 17:34:52

中国的leemac大师

重慶崽兒 发表于 2015-8-16 20:51:02

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

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

杜阳 发表于 2015-8-26 22:01:08

每次来每次看   真好

BenjaminXM 发表于 2015-10-1 00:22:48

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

qhh6066 发表于 2015-10-7 22:28:59

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

tryhi 发表于 2015-10-8 00:37:38

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

dianbotang 发表于 2015-10-24 23:37:01

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

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