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

gtj116600 发表于 2013-6-9 14:15:04

院长放源码要学

ucuc2003 发表于 2013-6-10 22:52:45

支持！希望能学习到更多通用函数

OWEN7 发表于 2013-6-11 10:56:12

DINGding顶出源码。

maiko 发表于 2013-7-26 20:08:08

院长大大,能不能分享一下 xyp-initSet 函数谢谢哈

jyzas 发表于 2013-8-14 07:21:45

支持下源码

motherland118 发表于 2013-9-3 00:06:46

学习学习，好同志一个啊

llsheng_73 发表于 2013-11-1 12:22:20

xyp1964 发表于 2012-8-5 19:57 static/image/common/back.gif


收下了一个好东东，谢谢院长分享

wei15007676360 发表于 2013-11-1 13:00:56

院长的帖子，顶起

llsheng_73 发表于 2013-11-1 13:28:43

xyp1964 发表于 2012-8-5 19:57 static/image/common/back.gif

真心谢谢院长大人，根据它写了一个SCOPY出来，并且把COPY的结果放到了一个新的选择集
(defun mycopy(ss p p1 / ty q q1 s1 s2);;参照by-xyp1964的xyp-ScaleEntity
(setq ty(type ss)i -1
      s2(ssadd)
      q1(vlax-3D-point(trans p1 1 0))
      q(vlax-3D-point(trans p 1 0)))
(cond((= ty 'ENAME)(vla-move(vla-copy(vlax-ename->vla-object ss))q q1))
       ((= ty 'PICKSET)
         (setq i -1)
         (while (setq s1 (ssname ss (setq i (1+ i))))
         (mycopy s1 p p1)(setq s2(ssadd(entlast)s2))))
       ((= ty 'LIST)(foreach x ss(mycopy x p p1)(setq s2(ssadd(entlast)s2))))
       )s2
)

陈亚娣 发表于 2013-11-9 11:20:29

支持院长,热爱源码

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