牢固大大，这样的表格线你的工具能支持吗？

Lisphk

有时候画表格，两侧的没边线。

见图

牢固

这个好办，搜索边界前，先在表格四周绘制边线即可！回头有空我改下GetTableLst函数即可！

Lispboy

使用XDRX_API几句代码就搞定了，先让你测试下，等会发布个通用函数，表格初始化处理,不封闭的也可以处理成单元格。

1. (defun c:tt()
   
2.    (if (and (setq ss (ssget '((0 . "LINE"))))
   
3.             (setq  box (xdrx_entity_box ss))
   
4.             (setq box (XD::Pnts:Close box))
   
5.        )
   
6.      (progn
   
7.         (xdrx_begin)
   
8.         (setq ss1 (apply 'xdrx_line_make box)
   
9.               ss (xdrx_pickset_union ss1 ss)
   
10.         )
    
11.         (xdrx_document_setprec 50 1)
    
12.         (setq ss (xdrx_pickset_removedupLine ss))
    
13.         (setq ss (xdrx_curve_intersectbreak ss))
    
14.         (setq ss (xdrx_geom_searchRegions ss 0))
    
15.      )
    
16.    )
    
17.    (princ)
    
18. )
    
19. 
    

(defun c:tt()<br />    (if (and (setq ss (ssget '((0 . "LINE"))))<br />             (setq  box (xdrx_entity_box ss))<br />             (setq box (XD::Pnts:Close box))<br />        )<br />      (progn<br />         (xdrx_begin)<br />         (setq ss1 (apply 'xdrx_line_make box)<br />               ss (xdrx_pickset_union ss1 ss)<br />         )<br />         (xdrx_document_setprec 50 1)<br />         (setq ss (xdrx_pickset_removedupLine ss))<br />         (setq ss (xdrx_curve_intersectbreak ss))<br />         (setq ss (xdrx_geom_searchRegions ss 0))<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

liuyj

(xdrx_curve_intersectbreak ss)和(xdrx_geom_searchRegions ss 0)两句在cad2006下没反应

newer

liuyj 发表于 2013-7-15 14:13
(xdrx_curve_intersectbreak ss)和(xdrx_geom_searchRegions ss 0)两句在cad2006下没反应

06版还不是最新的版。

楼主可以在单位普及下2008啊，很不错的。