设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4405|回复: 111

[每日一码] [功能] 批量联线

  [复制链接]

签到天数: 1383 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-12-15 15:00:05 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 /db_自贡黄明儒_ 于 2014-12-31 15:42 编辑
  1. dot http://bbs.xdcad.net/thread-677302-1-1.html
复制代码

  1. ;;[功能] 批量联线  By 自贡黄明儒 2014.12.15
  2. ;;det [url]http://bbs.xdcad.net/thread-677303-1-1.html[/url]
  3. (defun C:MyJion        (/ E H J LST N OBJ P11 P12 P21 P22 SS X)
  4.   (defun twoEnt        (e1 e2)
  5.     (setq p11 (vlax-curve-getStartPoint e1))
  6.     (setq p12 (vlax-curve-getEndPoint e1))
  7.     (setq p21 (vlax-curve-getStartPoint e2))
  8.     (setq p22 (vlax-curve-getEndPoint e2))
  9.     (cond ((and (equal (det p11 p12 p21) 0) (equal (det p11 p12 p22) 0))
  10.            (setq H (car (Max-distance (list p11 p12 p21 p22))))
  11.            (setq obj (vlax-ename->vla-object e1))
  12.            (vlax-put obj 'StartPoint (car H))
  13.            (vlax-put obj 'EndPoint (cadr H))
  14.            (entdel e2)
  15.           )
  16.     )
  17.   )

  18.   (cond
  19.     ((setq ss (ssget '((0 . "LINE"))))
  20.      (repeat (setq n (sslength ss))
  21.        (setq e (ssname ss (setq n (1- n))))
  22.        (setq lst (cons e lst))
  23.      )
  24.      (foreach j        lst
  25.        (mapcar
  26.          '(lambda (x) (cond ((and (not (equal x j)) (entget x) (entget j)) (twoEnt j x))))
  27.          lst
  28.        )
  29.      )
  30.     )
  31.   )
  32.   (princ)
  33. )

游客,如果您要查看本帖隐藏内容请回复

批量连线.gif

JOIN.LSP

2.67 KB, 下载次数: 308, 下载积分: D豆 -1 , 活跃度 1

评分

参与人数 1D豆 +5 收起 理由
lucas3 + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

签到天数: 404 天

连续签到: 3 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 127 天

连续签到: 1 天

[LV.7]常住居民III

发表于 2014-12-15 16:32:23 | 显示全部楼层
这动画怎么看着这么眼熟

点评

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

使用道具 举报

签到天数: 178 天

连续签到: 1 天

[LV.7]常住居民III

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

使用道具 举报

签到天数: 178 天

连续签到: 1 天

[LV.7]常住居民III

发表于 2014-12-15 16:46:42 | 显示全部楼层
请查一下??倀愀椀爀 (list U V)

点评

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

使用道具 举报

签到天数: 404 天

连续签到: 3 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 2014-12-15 16:46:49 | 显示全部楼层
amwkto2011 发表于 2014-12-15 16:32
这动画怎么看着这么眼熟

他好像偷懒了

点评

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

使用道具 举报

签到天数: 1383 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2014-12-15 16:50:08 | 显示全部楼层

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

使用道具 举报

签到天数: 1332 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 3197个

财富等级: 富可敌国

发表于 2014-12-15 17:08:12 | 显示全部楼层
这个是设容差的吗?

点评

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

使用道具 举报

签到天数: 1012 天

连续签到: 1 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

发表于 2014-12-15 17:08:38 来自手机 | 显示全部楼层
输入"合并直线"  或者 hbln 在论坛搜索可以扩展思路
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 374 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 849个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 1582 天

连续签到: 1 天

[LV.Master]伴坛终老I

点击这里给我发消息

已领礼包: 2921个

财富等级: 家财万贯

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

使用道具 举报

签到天数: 1913 天

连续签到: 8 天

[LV.Master]伴坛终老I

已领礼包: 5260个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1383 天

连续签到: 8 天

[LV.10]以坛为家III

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2014-12-15 18:08:25 来自手机 | 显示全部楼层
wzg356 发表于 2014-12-15 16:46
请查一下??倀愀椀爀 (list U V)

下载文件吧,论坛总有点问题

点评

长老,请问 (while (> (dot M U V) 0.0) 这个dot哪里?no function definition: DOT  详情 回复 发表于 2014-12-16 15:35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 520 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 705个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 1325 天

连续签到: 9 天

[LV.10]以坛为家III

已领礼包: 1325个

财富等级: 财源广进

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-10-16 03:06 , Processed in 0.208877 second(s), 61 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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