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

gtj116600

院长放源码要学

ucuc2003

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

OWEN7

DINGding顶出源码。

maiko

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

jyzas

支持下源码

motherland118

学习学习，好同志一个啊

llsheng_73

xyp1964 发表于 2012-8-5 19:57

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

wei15007676360

院长的帖子，顶起

llsheng_73

xyp1964 发表于 2012-8-5 19:57

真心谢谢院长大人，根据它写了一个SCOPY出来，并且把COPY的结果放到了一个新的选择集

1. (defun mycopy(ss p p1 / ty q q1 s1 s2);;参照by-xyp1964的xyp-ScaleEntity
   
2.   (setq ty(type ss)i -1
   
3.         s2(ssadd)
   
4.         q1(vlax-3D-point(trans p1 1 0))
   
5.         q(vlax-3D-point(trans p 1 0)))
   
6.   (cond((= ty 'ENAME)(vla-move(vla-copy(vlax-ename->vla-object ss))q q1))
   
7.        ((= ty 'PICKSET)
   
8.          (setq i -1)
   
9.          (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.            (mycopy s1 p p1)(setq s2(ssadd(entlast)s2))))
    
11.        ((= ty 'LIST)(foreach x ss(mycopy x p p1)(setq s2(ssadd(entlast)s2))))
    
12.        )s2
    
13.   )

(defun mycopy(ss p p1 / ty q q1 s1 s2);;参照by-xyp1964的xyp-ScaleEntity<br />   (setq ty(type ss)i -1<br />         s2(ssadd)<br />         q1(vlax-3D-point(trans p1 1 0))<br />         q(vlax-3D-point(trans p 1 0)))<br />   (cond((= ty 'ENAME)(vla-move(vla-copy(vlax-ename->vla-object ss))q q1))<br />        ((= ty 'PICKSET)<br />          (setq i -1)<br />          (while (setq s1 (ssname ss (setq i (1+ i))))<br />            (mycopy s1 p p1)(setq s2(ssadd(entlast)s2))))<br />        ((= ty 'LIST)(foreach x ss(mycopy x p p1)(setq s2(ssadd(entlast)s2))))<br />        )s2<br />   )

陈亚娣

支持院长,热爱源码