(XD::Drag:Array)阵列拖动函数实现

Lispboy

1. ;|
   
2. 阵列拖动实现函数
   
3. 参数：
   
4.   info ---- 提示字符串
   
5.   ss  ---- 选择集
   
6.   pj  ---- 基点
   
7.   nums -- 数量
   
8.   keyWord ---  关键字字符串
   
9.   Cursor     --- 光标样式
   
10. 
    
11.             0 - kCrosshair
    
12.             1 - kCrosshair
    
13.             2 - kRubberBand
    
14.             3 - kNoSpecialCursor
    
15.             4 - kEntitySelect
    
16.             5 - kParallelogram
    
17.             6 - kInvisible
    
18.             其他值- kPkfirstOrGrips
    
19. 返回值：点或者关键字  
    
20. 
    
21. |;
    
22. 
    
23. (defun XD::Drag:Array (info ss pj nums keyword cursor / dynpt e entl entll i mat mat0 p1 pts ret ss1 v x)
    
24.   (defun FitArrayCallBack (dynPt / pts entl)
    
25.     (setq p1 dynPt
    
26.           v (mapcar
    
27.               '-
    
28.               dynPt
    
29.               pj
    
30.             )
    
31.     )
    
32.     (foreach x entll
    
33.         (entdel x)
    
34.     )
    
35. 
    
36.     (setq entll nil)
    
37.     (setq i 1)
    
38.     (repeat (- nums 1)
    
39.       (setq mat (xdrx_matrix_setTranslation mat0 (xdrx_vector_product v i)))
    
40.       (setq ss1 (xdrx_entity_transformedcopy ss mat))
    
41.       (setq i (1+ i))
    
42.       (setq entl (XD::SS:ENTS ss1))
    
43.       (setq entll (append entl entll))
    
44.     )
    
45.     ss
    
46.   )
    
47.   (XD::Begin)
    
48.   (setq pj (trans pj 1 0)
    
49.         mat0 (xdrx_matrix_identity 3)
    
50.   )
    
51.   (setvar "lastPoint" pj)
    
52.   (initget 1)
    
53.   (setq ret (xdrx_drag_jig "FitArrayCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor pj))
    
54.   (cond
    
55.     ((= ret -4)
    
56.     )
    
57.     (t
    
58.       (if (= (type ret) 'STR)
    
59.         (progn
    
60.           (foreach x entll (entdel x))
    
61.         )
    
62.       )
    
63.     )
    
64.   )
    
65.   (XD::End)
    
66.   (gc)
    
67.   ret
    
68. )
    
69. 
    

;|<br /> 阵列拖动实现函数<br /> 参数：<br />   info ---- 提示字符串<br />   ss  ---- 选择集<br />   pj  ---- 基点<br />   nums -- 数量<br />   keyWord ---  关键字字符串<br />   Cursor     --- 光标样式 <br /> <br />             0 - kCrosshair<br />             1 - kCrosshair<br />             2 - kRubberBand<br />             3 - kNoSpecialCursor<br />             4 - kEntitySelect<br />             5 - kParallelogram<br />             6 - kInvisible<br />             其他值- kPkfirstOrGrips<br /> 返回值：点或者关键字  <br /> <br /> |;<br /> <br /> (defun XD::Drag:Array (info ss pj nums keyword cursor / dynpt e entl entll i mat mat0 p1 pts ret ss1 v x)<br />   (defun FitArrayCallBack (dynPt / pts entl)<br />     (setq p1 dynPt<br />           v (mapcar<br />               '-<br />               dynPt<br />               pj<br />             )<br />     )<br />     (foreach x entll<br />         (entdel x)<br />     )<br /> <br />     (setq entll nil)<br />     (setq i 1)<br />     (repeat (- nums 1)<br />       (setq mat (xdrx_matrix_setTranslation mat0 (xdrx_vector_product v i)))<br />       (setq ss1 (xdrx_entity_transformedcopy ss mat))<br />       (setq i (1+ i))<br />       (setq entl (XD::SS:ENTS ss1))<br />       (setq entll (append entl entll))<br />     )<br />     ss<br />   )<br />   (XD::Begin)<br />   (setq pj (trans pj 1 0)<br />         mat0 (xdrx_matrix_identity 3)<br />   )<br />   (setvar "lastPoint" pj)<br />   (initget 1)<br />   (setq ret (xdrx_drag_jig "FitArrayCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor pj))<br />   (cond<br />     ((= ret -4)<br />     )<br />     (t<br />       (if (= (type ret) 'STR)<br />         (progn<br />           (foreach x entll (entdel x))<br />         )<br />       )<br />     )<br />   )<br />   (XD::End)<br />   (gc)<br />   ret<br /> )<br /> <br />

太阳爱设计

转换成LSP格式  没有用啊

newer

太阳爱设计 发表于 2013-7-22 10:57
转换成LSP格式  没有用啊

你这话让人看不明白想说啥，程序本来就是LISP的啊。

去下面链接看看，一个具体的这个函数的应用， 增强的拷贝命令。

http://bbs.xdcad.net/thread-669522-1-1.html