设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1080|回复: 37

[每日一码] 通过LINE连接两个块

[复制链接]

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-5-21 10:22:05 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 marting 于 2017-5-21 12:36 编辑

程序里面演示了动态根据鼠标和块的相对位置确定连线的方向

  1. (defun c:Test (/ s p ss q 1p gr)
  2.   (princ "\nPick on the first Block :")
  3.   (if (setq s (ssget "_+.:S:E" '((0 . "INSERT"))))
  4.     (progn
  5.       (princ "\nNext Block :")
  6.       (while (setq ss (ssget "_+.:S:E" '((0 . "INSERT"))))
  7.         (setq p (cdr (assoc 10 (entget (ssname s 0)))))
  8.         (while (and s ss (eq 5 (car (setq gr (grread t 15 0)))))
  9.           (redraw)
  10.           (setq q (cdr (assoc 10 (entget (ssname ss 0)))))
  11.           (if (or (equal (car p) (car q) 1e-4)
  12.                   (equal (cadr p) (cadr q) 1e-4)
  13.                   )
  14.             (grvecs (list -3 p q))
  15.             (if
  16.               (minusp
  17.                 (sin
  18.                   (-
  19.                     (angle
  20.                       p
  21.                       q
  22.                       )
  23.                     (angle q (cadr gr))
  24.                     )
  25.                   )
  26.                 )
  27.                (grvecs
  28.                  (list -3 p (setq 1p (list (car q) (cadr p) 0.)) 1p q)
  29.                  )
  30.                (grvecs
  31.                  (list -3 p (setq 1p (list (car p) (cadr q) 0.)) 1p q)
  32.                  )
  33.                )
  34.             )
  35.           )
  36.         (if (eq (car gr) 3)
  37.           (if (and p 1p q)
  38.             (mapcar
  39.               '(lambda (j k)
  40.                  (entmake (list '(0 . "LINE") (cons 10 j) (cons 11 k)))
  41.                  )
  42.               (list p 1p)
  43.               (list 1p q)
  44.               )
  45.             (if (not (zerop (distance p q)))
  46.               (entmake (list '(0 . "LINE") (cons 10 p) (cons 11 q)))
  47.               )
  48.             )
  49.           )
  50.         (redraw)
  51.         (setq 1p nil
  52.               s  ss
  53.               )
  54.         )
  55.       )
  56.     )
  57.   (princ)
  58.   )


另外一个代码:

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

已领礼包: 6282个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 5562个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 733个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 1332个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 811个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 26个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 7811个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 4648个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 717个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 474个

财富等级: 日进斗金

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2017-11-10 11:15:49 | 显示全部楼层

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-2-28 06:15 , Processed in 0.191145 second(s), 45 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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