明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 7415|回复: 42

【求助】有这样框选连线的工具吗?~~[G版已解决]期待竖向完善!

  [复制链接]
发表于 2012-9-14 12:47 | 显示全部楼层 |阅读模式
本帖最后由 daidong013 于 2012-9-15 10:17 编辑

求助高手们!~有这样的工具吗?!~~

本帖子中包含更多资源

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

x

点评

写了个各种方向的 在36楼  发表于 2021-6-25 12:24
用cad里的直线连起来也不慢  发表于 2012-9-14 13:08
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2021-6-25 03:43 | 显示全部楼层
  1. (defun c:DJLX (/ instpd p1 p2 minpt maxpt ss en pl pt)
  2.   (defun instpd        (lst / a b c d)
  3.     (mapcar 'set '(a b c d) lst)
  4.     (if        (not (apply 'inters (mapcar 'car (list a b c d))))
  5.       (if (equal (angle (car b) (car a)) (cadr a) (* 0.25 pi))
  6.         (list (list (car a) (car b)) (list (car c) (car d)))
  7.         (instpd (list a c b d))
  8.       )
  9.       (instpd (list a c d b))
  10.     )
  11.   )
  12.   (while (and
  13.            (setq p1 (getpoint "\n第一点: "))
  14.            (setq p2 (getcorner p1 "\n对角点: "))
  15.          )
  16.     (mapcar 'set
  17.             '(minpt maxpt)
  18.             (list (mapcar 'min p1 p2) (mapcar 'max p1 p2))
  19.     )
  20.     (setq ss (ssget "c" p1 p2 '((0 . "line,*polyline"))))
  21.     (if        ss
  22.       (progn
  23.         (setq pl nil)
  24.         (repeat        (setq n (sslength ss))
  25.           (setq en (ssname ss (setq n (1- n))))
  26.           (if (apply 'and
  27.                      (mapcar '<=
  28.                              minpt
  29.                              (setq pt (vlax-curve-getStartPoint
  30.                                         (vlax-ename->vla-object en)
  31.                                       )
  32.                              )
  33.                              maxpt
  34.                      )
  35.               )
  36.             (setq pl
  37.                    (cons
  38.                      (list pt
  39.                            (angle pt
  40.                                   (mapcar '+
  41.                                           pt
  42.                                           (vlax-curve-getFirstDeriv
  43.                                             (vlax-ename->vla-object en)
  44.                                             (vlax-curve-getStartParam
  45.                                               (vlax-ename->vla-object en)
  46.                                             )
  47.                                           )
  48.                                   )
  49.                            )
  50.                      )
  51.                      pl
  52.                    )
  53.             )
  54.             (setq pl
  55.                    (cons
  56.                      (list (setq pt (vlax-curve-getEndPoint
  57.                                       (vlax-ename->vla-object en)
  58.                                     )
  59.                            )
  60.                            (angle pt
  61.                                   (mapcar '+
  62.                                           pt
  63.                                           (vlax-curve-getFirstDeriv
  64.                                             (vlax-ename->vla-object en)
  65.                                             (vlax-curve-getEndParam
  66.                                               (vlax-ename->vla-object en)
  67.                                             )
  68.                                           )
  69.                                   )
  70.                            )
  71.                      )
  72.                      pl
  73.                    )
  74.             )
  75.           )
  76.         )
  77.         (foreach n (instpd pl)
  78.           (entmake (list '(0 . "line")
  79.                          '(62 . 1)
  80.                          (cons 10 (car n))
  81.                          (cons 11 (cadr n))
  82.                    )
  83.           )
  84.         )
  85.       )
  86.     )
  87.   )
  88.   (princ)
  89. )
各种 方向   都行
发表于 2020-6-14 09:15 | 显示全部楼层
daidong013 发表于 2012-9-14 17:43
G版,如果图形变为竖向的时候好像有点问题!~~

或者判断以距离长的优先,不知可行否!!!

楼主,不知竖向的是否解决了?
发表于 2018-7-8 15:55 | 显示全部楼层

G版能不能完善下竖向
 楼主| 发表于 2012-9-14 13:27 | 显示全部楼层
一条两条线用直线连起来是比较方便,但线多了就比较麻烦一点了!~呵呵!~
发表于 2012-9-14 15:33 | 显示全部楼层
本帖最后由 Gu_xl 于 2012-9-14 16:10 编辑

游客,本帖隐藏的内容需要发帖数高于 10 才可浏览,你当前发帖数只有 0


评分

参与人数 2明经币 +2 收起 理由
mp3_2004 + 1 很给力!要是支持圆弧等别的线就好了!另外有.
daidong013 + 1 很给力!再次感谢G版!~~

查看全部评分

发表于 2012-9-14 15:41 | 显示全部楼层
还是版主牛啊
 楼主| 发表于 2012-9-14 16:31 | 显示全部楼层
Gu_xl 发表于 2012-9-14 15:33
[/post]

G版出手果然非同凡响,赞赞赞!~
就是这样的效果,感谢感谢!~~
 楼主| 发表于 2012-9-14 17:43 | 显示全部楼层
本帖最后由 daidong013 于 2012-9-14 17:52 编辑
Gu_xl 发表于 2012-9-14 15:33
[/post]

G版,如果图形变为竖向的时候好像有点问题!~~

或者判断以距离长的优先,不知可行否!!!

本帖子中包含更多资源

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

x

点评

不是竖向有问题,是你没有说明要考虑竖向的问题!请自行根据自己的实际需求,来修改程序代码合适自己!  发表于 2012-9-14 20:04
发表于 2012-9-14 23:57 | 显示全部楼层
G大的程序个个是经典,竖向的不晓得怎么改。改哪里?
发表于 2012-9-15 01:07 | 显示全部楼层
还有个问题就是在UCS下不能用
发表于 2012-10-31 08:24 | 显示全部楼层
直接用连接 也不慢呢
发表于 2012-11-3 23:57 | 显示全部楼层
留个记号,以后用得上
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:24 , Processed in 0.265767 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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