(XD::Table:GridLine2Cells）表格线转换成CELL单元格子，对普通LINE表格进行前处理...

Lispboy

1. ;|
   
2. 表格线转换成CELL单元格子，对普通LINE表格进行前处理，生成单元格，自动生成(从上到下，从左到右排序的）单元格。
   
3. 
   
4. 参数：
   
5.    ss --- 选择集（表格线）
   
6. 返回值：
   
7.    表 (表格最大外框句柄 ((h01 h02 ...h0n)(h11 h12 ...h1n)(hn1 hn2....hnn)))   
   
8. |;
   
9. (defun XD::Table:GridLine2Cells (ss / basept cells el ell entl header i len lxd n pts temp x x1 x2)
   
10.   (setq ss (xdrx_geom_searchregions (xdrx_curve_intersectbreak ss 0) 0)
    
11.         entl (xdrx_pickset->ents ss)
    
12.         temp entl
    
13.         entl (mapcar
    
14.                '(lambda (x)
    
15.                   (cons (car (xdrx_getarea x)) x)
    
16.                 )
    
17.                entl
    
18.              )
    
19.         entl (vl-sort entl '(lambda (x1 x2)
    
20.                               (> (car x1) (car x2))
    
21.                             )
    
22.              )
    
23.         entl (mapcar
    
24.                'cdr
    
25.                entl
    
26.              )
    
27.         temp (cdr entl)
    
28.   )
    
29.   (setq header (car entl)
    
30.         cells (XD::Pickset:TableSort (XD::Entity->PickSet (cdr entl)) 0 3 '> '<)
    
31.   )
    
32.   (foreach n cells
    
33.     (setq i 0
    
34.           len (length n)
    
35.     )
    
36.     (setq el (mapcar
    
37.                '(lambda (x)
    
38.                   (setq pts (xdrx_getpropertyvalue x "Vertices")
    
39.                         lxd pts
    
40.                         basept (car (if (= (+ 1 i) len)
    
41.                                       (XD::Pnts:MaxY->MaxX pts 1e-5)
    
42.                                       (XD::Pnts:MaxY->MinX pts 1e-5)
    
43.                                     )
    
44.                                )
    
45.                         pts (if (= (+ 1 i) len)
    
46.                               (XD::PntS:unClockWise pts basePt 1e-5)
    
47.                               (XD::PntS:ClockWise pts basePt 1e-5)
    
48.                             )
    
49.                   )
    
50.                   (apply
    
51.                     'xdrx_polyline_make
    
52.                     (cons t pts)
    
53.                   )
    
54.                   (xdrx_entity_setPropertiesFrom (entlast) x)
    
55.                   (setq i (1+ i))
    
56.                   (xdrx_getpropertyvalue (entlast) "handle")
    
57.                 )
    
58.                n
    
59.              )
    
60.           ell (cons el ell)
    
61.     )
    
62.     (xdrx_entity_delete n)
    
63.   )
    
64.   (list (xdrx_getpropertyvalue header "handle") (reverse ell))
    
65. )

;|<br /> 表格线转换成CELL单元格子，对普通LINE表格进行前处理，生成单元格，自动生成(从上到下，从左到右排序的）单元格。<br /> <br /> 参数：<br />    ss --- 选择集（表格线）<br /> 返回值：<br />    表 (表格最大外框句柄 ((h01 h02 ...h0n)(h11 h12 ...h1n)(hn1 hn2....hnn)))   <br /> |;<br /> (defun XD::Table:GridLine2Cells (ss / basept cells el ell entl header i len lxd n pts temp x x1 x2)<br />   (setq ss (xdrx_geom_searchregions (xdrx_curve_intersectbreak ss 0) 0)<br />         entl (xdrx_pickset->ents ss)<br />         temp entl<br />         entl (mapcar<br />                '(lambda (x)<br />                   (cons (car (xdrx_getarea x)) x)<br />                 )<br />                entl<br />              )<br />         entl (vl-sort entl '(lambda (x1 x2)<br />                               (> (car x1) (car x2))<br />                             )<br />              )<br />         entl (mapcar<br />                'cdr<br />                entl<br />              )<br />         temp (cdr entl)<br />   )<br />   (setq header (car entl)<br />         cells (XD::Pickset:TableSort (XD::Entity->PickSet (cdr entl)) 0 3 '> '<)<br />   )<br />   (foreach n cells<br />     (setq i 0<br />           len (length n)<br />     )<br />     (setq el (mapcar<br />                '(lambda (x)<br />                   (setq pts (xdrx_getpropertyvalue x "Vertices")<br />                         lxd pts<br />                         basept (car (if (= (+ 1 i) len)<br />                                       (XD::Pnts:MaxY->MaxX pts 1e-5)<br />                                       (XD::Pnts:MaxY->MinX pts 1e-5)<br />                                     )<br />                                )<br />                         pts (if (= (+ 1 i) len)<br />                               (XD::PntS:unClockWise pts basePt 1e-5)<br />                               (XD::PntS:ClockWise pts basePt 1e-5)<br />                             )<br />                   )<br />                   (apply<br />                     'xdrx_polyline_make<br />                     (cons t pts)<br />                   )<br />                   (xdrx_entity_setPropertiesFrom (entlast) x)<br />                   (setq i (1+ i))<br />                   (xdrx_getpropertyvalue (entlast) "handle")<br />                 )<br />                n<br />              )<br />           ell (cons el ell)<br />     )<br />     (xdrx_entity_delete n)<br />   )<br />   (list (xdrx_getpropertyvalue header "handle") (reverse ell))<br /> )

守仁格竹GM

东西都不错， 就是动画得提高，确实卡啊，而且还慢

good32167

新手 学习了

写诗天涯

感觉很不错，谢谢