设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 477|回复: 28

[每日一码] 返回多段线拾取位置所在的“段”和该段的起点和端点

[复制链接]

签到天数: 735 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-9-22 16:37:31 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 Lisphk 于 2016-9-22 16:39 编辑

  1. (defun XD:Segment (objPnt)
  2.   (if (vl-consp objPnt)
  3.     ((lambda (seg)
  4.        (list seg
  5.              (list (vlax-curve-getPointAtParam (car objPnt) seg)
  6.                    (cond ((vlax-curve-getPointAtParam (car objPnt) (1+ seg)))
  7.                          ((vlax-curve-getPointAtParam (car objPnt) (1- seg)))
  8.                    )
  9.              )
  10.        )
  11.      )
  12.       (fix (vlax-curve-getParamAtPoint
  13.              (car objPnt)
  14.              (vlax-curve-getClosestPointTo (car objPnt) (trans (cadr objPnt) 1 0))
  15.            )
  16.       )
  17.     )
  18.   )
  19. )



返回多段线拾取位置所在的“段”和该段的起点和端点

返回多段线拾取位置所在的“段”和该段的起点和端点


用法例子:

[it618postdisplay>0]
  1. 命令: (XD:SEGMENT (ENTSEL))
  2. 选择对象: (1 ((973.602 478.18 0.0) (1811.73 1319.06 0.0)))

[/it618postdisplay]


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

签到天数: 1903 天

连续签到: 38 天

[LV.Master]伴坛终老I

已领礼包: 5574个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1893 天

连续签到: 19 天

[LV.Master]伴坛终老I

已领礼包: 5234个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 560 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 577个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 291 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 20个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 518 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 705个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 141 天

连续签到: 1 天

[LV.7]常住居民III

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

使用道具 举报

签到天数: 1846 天

连续签到: 109 天

[LV.Master]伴坛终老I

已领礼包: 5424个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 21 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-11-19 22:35:12 | 显示全部楼层
返回多段线拾取位置所在的“段”和该段的起点和端点。。。。。。有图就好了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 338 天

连续签到: 2 天

[LV.8]以坛为家I

点击这里给我发消息

已领礼包: 530个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 471 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1086个

财富等级: 财源广进

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

使用道具 举报

签到天数: 172 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 312个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 180 天

连续签到: 2 天

[LV.7]常住居民III

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

使用道具 举报

签到天数: 391 天

连续签到: 4 天

[LV.9]以坛为家II

已领礼包: 448个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 837 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 1844个

财富等级: 堆金积玉

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-9-20 10:21 , Processed in 0.206613 second(s), 62 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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