【已解决】平行线并联/闭合的插件

王鹏_pBZlo · 发表于 2019-3-19 09:38:50

本帖最后由王鹏_pBZlo 于 2019-3-19 09:42 编辑

修改了一下,重复执行按鼠标右键就行了.不需要键盘输入了
(defun c:tt( / ent1 ent2 temposm p1 p2 ent1pro ent2pro p20 p21 p22 p23)
      (command "UCS" "")
      (setq ent1 (entsel "\n选择作为基准的直线(注:靠近端部选取):"))
      (setq ent2 (entsel "\n选择与基准直线平行的直线(注:靠近端部选取):"))
      (setq p1 (cadr ent1) ent1 (car ent1))
      (setq p2 (cadr ent2) ent2 (car ent2))
      (setq ent1pro (entget ent1))
      (setq ent2pro (entget ent2))
      (if (< (distance p1 (cdr (assoc 10 ent1pro))) (distance p1 (cdr (assoc 11 ent1pro))))
         (setq p1 (cdr (assoc 10 ent1pro)))
         (setq p1 (cdr (assoc 11 ent1pro)))
      )
      (if (< (distance p2 (cdr (assoc 10 ent2pro))) (distance p2 (cdr (assoc 11 ent2pro))))
         (progn       (setq p21 (cons 11 (cdr (assoc 10 ent2pro))) p20 (cons 10 (cdr (assoc 11 ent2pro))))
            (setq ent2pro (subst p20 (assoc 10 ent2pro) ent2pro))
            (entmod (setq ent2pro (subst p21 (assoc 11 ent2pro) ent2pro)))
         )
      )
      (setq p20 (cdr (assoc 10 ent2pro)) p21 (cdr (assoc 11 ent2pro)))
      (setq p22 (inters p20 p21 p1 (polar p1 (+ (angle p20 p21) (/ pi 2.0)) 5) nil))
      (setq p21 (inters p20 p21 p1 (polar p1 (+ (angle p1 p22) (/ pi 4.0)) 5) nil))
      (setq p23 (inters p20 p21 p1 (polar p1 (- (angle p1 p22) (/ pi 4.0)) 5) nil))
      (if (< (distance p20 p21) (distance p20 p23))
         (setq p20 p21 p21 p23 p23 p20)
      )
      (grdraw p1 p21 1) (grdraw p1 p22 2) (grdraw p1 p23 3)
      (setq p2 (getpoint "\n拾取需要的直线的端点附近点"))
      (grdraw p1 p21 0) (grdraw p1 p22 0) (grdraw p1 p23 0)
      (cond ((= (min (distance p2 p21) (distance p2 p22) (distance p2 p23)) (distance p2 p21)) (setq p2 p21))
      ((= (min (distance p2 p21) (distance p2 p22) (distance p2 p23)) (distance p2 p22)) (setq p2 p22))
      ((= (min (distance p2 p21) (distance p2 p22) (distance p2 p23)) (distance p2 p23)) (setq p2 p23)))
      (entmod (subst (cons 11 p2) (assoc 11 ent2pro) ent2pro))
      (setq temposm (getvar "osmode"))
      (setvar "osmode" 0)    (command "line" p1 p2 "")
      (setvar "osmode" temposm)
      (princ)
)

lizhaojun45 · 发表于 2019-3-19 16:46:54

上一波操作已经是牛逼了，这一波操作，更是逆天了。

王鹏_pBZlo · 发表于 2019-3-19 21:05:40

应该是更快捷直观了吧
来自: 微社区

yaojing38 · 发表于 2022-8-15 10:08:25

谢谢分享，，很实用

市政画图佬 · 发表于 2023-3-27 22:10:05

太厉害了，学习！

zhchkuo · 发表于 2024-7-22 20:07:22

学习一下。

xmlk · 发表于 2024-8-20 11:15:47

王鹏牛牛牛，

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】平行线并联/闭合的插件