找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1286|回复: 11

[求助] 根据表格内任意的一点,求其他四点

[复制链接]
发表于 2013-8-19 14:19:18 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
10.jpg

上图为表格内任意一点

下图为表格的四点
11.jpg

请点击此处下载

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

您的用户组是:游客

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




论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 604个

财富等级: 财运亨通

发表于 2013-8-19 14:22:27 | 显示全部楼层
bpoly BOUNDARY 射线法?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-8-19 15:40:42 | 显示全部楼层
(bpoly (getpoint))

点评

bpoly 是什么意思??什么函数?  详情 回复 发表于 2013-8-19 15:58
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 685个

财富等级: 财运亨通

发表于 2013-8-19 15:58:05 | 显示全部楼层

bpoly  是什么意思??什么函数?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-8-19 15:59:55 | 显示全部楼层
通用函数库里面有现成的函数,看下下面链接,自动把你所有的单元格都生成:

XD::Table:CloseGridLine


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



                               
登录/注册后可看大图
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

发表于 2013-8-19 16:14:44 | 显示全部楼层
(bpoly (getpoint)) ;选取内部点,然后获得边界线;
然后你可以获得边界线(entlast)的4个顶点坐标;
获得顶点坐标的程序有很多,自己在论坛搜索吧。

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-8-19 22:41:18 | 显示全部楼层
本帖最后由 xyp1964 于 2013-8-19 22:43 编辑

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

点评

图形要不干净,用BPOLY还行吗?  详情 回复 发表于 2013-8-20 00:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-8-20 00:07:30 | 显示全部楼层

图形要不干净,用BPOLY还行吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3884个

财富等级: 富可敌国

发表于 2013-8-20 00:22:01 | 显示全部楼层
(vl-remove-if (function (lambda (x) (/= (car x) 10))) (entget (bpoly (getpoint))))

点评

很精简  发表于 2013-8-20 08:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-25 08:35 , Processed in 0.416024 second(s), 55 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表