找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 12319|回复: 153

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

 火.. [复制链接]

已领礼包: 604个

财富等级: 财运亨通

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

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

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

×
本帖最后由 /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, 下载次数: 401, 下载积分: D豆 -1 , 活跃度 1

评分

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

查看全部评分

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

已领礼包: 51个

财富等级: 招财进宝

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

使用道具 举报

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

点评

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

使用道具 举报

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

使用道具 举报

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

点评

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

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

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

他好像偷懒了{:soso_e120:}

点评

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

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

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

发表于 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 862个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

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

使用道具 举报

已领礼包: 5578个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 717个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 1336个

财富等级: 财源广进

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 08:49 , Processed in 0.394138 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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