(XD::Table:CloseGridLine)对普通LINE表格进行前处理，生成单元格

Lispboy

1. ;|
   
2. 对普通LINE表格进行前处理，生成单元格，支持开口，误差，自动生成(从上到下，从左到右排序的）单元格。
   
3. 参数：
   
4.    ss: LINE选择集
   
5.    prec: 精度
   
6. 
   
7. 返回值：
   
8.    表 (表格最大外框实体 ((e01 e02 ...e0n)(e11 e12 ...e1n)(en1 en2....enn)))
   
9. |;
   
10. (defun XD::Table:CloseGridLine (ss prec / entl ss1 x x1 x2)
    
11.   (xdrx_document_setprec prec 1)
    
12.   (setq ss1 (apply
    
13.               'xdrx_line_make
    
14.               (XD::Pnts:Close (xdrx_entity_box ss))
    
15.             )
    
16.         ss (xdrx_pickset_union ss1 ss)
    
17.         ss (xdrx_geom_searchRegions (xdrx_curve_intersectbreak (xdrx_pickset_removedupLine ss)) 0)
    
18.         entl (xdrx_pickset->ents ss)
    
19.   )  
    
20.   (setq entl (mapcar '(lambda(x)(cons (car (xdrx_getarea x)) x))entl))
    
21.   (setq entl (vl-sort entl '(lambda(x1 x2)(> (car x1)(car x2)))))
    
22.   (setq entl (mapcar 'cdr entl))
    
23.   (list (car entl)(XD::Pickset:TableSort (XD::Entity->PickSet (cdr entl)) 0 3 '> '<))  
    
24. )
    

;|<br /> 对普通LINE表格进行前处理，生成单元格，支持开口，误差，自动生成(从上到下，从左到右排序的）单元格。<br /> 参数：<br />    ss: LINE选择集<br />    prec: 精度<br /> <br /> 返回值：<br />    表 (表格最大外框实体 ((e01 e02 ...e0n)(e11 e12 ...e1n)(en1 en2....enn)))<br /> |;<br /> (defun XD::Table:CloseGridLine (ss prec / entl ss1 x x1 x2)<br />   (xdrx_document_setprec prec 1)<br />   (setq ss1 (apply<br />               'xdrx_line_make<br />               (XD::Pnts:Close (xdrx_entity_box ss))<br />             )<br />         ss (xdrx_pickset_union ss1 ss)<br />         ss (xdrx_geom_searchRegions (xdrx_curve_intersectbreak (xdrx_pickset_removedupLine ss)) 0)<br />         entl (xdrx_pickset->ents ss)<br />   )  <br />   (setq entl (mapcar '(lambda(x)(cons (car (xdrx_getarea x)) x))entl))<br />   (setq entl (vl-sort entl '(lambda(x1 x2)(> (car x1)(car x2)))))<br />   (setq entl (mapcar 'cdr entl))<br />   (list (car entl)(XD::Pickset:TableSort (XD::Entity->PickSet (cdr entl)) 0 3 '> '<))  <br /> )<br />

hzj268

没有命令？？？？？？？？

newer

hzj268 发表于 2014-4-25 13:49
没有命令？？？？？？？？

这个是函数，不是命令。

hzj268

谢谢，直接调用不可以把