根据表格内任意的一点，求其他四点

笑2笑

上图为表格内任意一点

下图为表格的四点

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:测试图.rar 
下载次数:1  文件大小:4.78 KB 
下载权限: 不限 以上  [免费赚D豆]

/db_自贡黄明儒_

bpoly BOUNDARY 射线法？

炫翔

(bpoly (getpoint))

ysq101

炫翔 发表于 2013-8-19 15:40
(bpoly (getpoint))

bpoly  是什么意思？？什么函数？

newer

通用函数库里面有现成的函数，看下下面链接，自动把你所有的单元格都生成：

XD::Table:CloseGridLine


http://www.xdcad.net/forum/thread-669380-1-1.html

                               
登录/注册后可看大图

819534890

(bpoly (getpoint)) ;选取内部点，然后获得边界线；
然后你可以获得边界线(entlast)的4个顶点坐标;
获得顶点坐标的程序有很多，自己在论坛搜索吧。

xyp1964

2. (defun c:tt ()
   
3.   (CMDLA0)
   
4.   (setq i -1)
   
5.   (while (setq p1 (getpoint "\n基点<退出>: "))
   
6.     (bpoly p1)
   
7.     (setq s1 (entlast))
   
8.     (xyp-Text 5 (xyp-9pt s1 1) "1")
   
9.     (xyp-Text 5 (xyp-9pt s1 3) "2")
   
10.     (xyp-Text 5 (xyp-9pt s1 7) "4")
    
11.     (xyp-Text 5 (xyp-9pt s1 9) "3")
    
12.     (xyp-erase s1)
    
13.   )
    
14.   (CMDLA1)
    
15. )

(defun c:tt ()<br />   (CMDLA0)<br />   (setq i -1)<br />   (while (setq p1 (getpoint "\n基点<退出>: "))<br />     (bpoly p1)<br />     (setq s1 (entlast))<br />     (xyp-Text 5 (xyp-9pt s1 1) "1")<br />     (xyp-Text 5 (xyp-9pt s1 3) "2")<br />     (xyp-Text 5 (xyp-9pt s1 7) "4")<br />     (xyp-Text 5 (xyp-9pt s1 9) "3")<br />     (xyp-erase s1)<br />   )<br />   (CMDLA1)<br /> )

newer

xyp1964 发表于 2013-8-19 22:41

图形要不干净，用BPOLY还行吗？

ayl1004

(vl-remove-if (function (lambda (x) (/= (car x) 10))) (entget (bpoly (getpoint))))