[LISP函数]：合并两条直线

dadichengfeng

(defun endpoint (en)
  (setq pa nil
        pb nil
  )
  (if (boundp 'en)
    (setq pa (cdr (assoc 10 (entget en)))
          pb (cdr (assoc 11 (entget en)))
    )
  )
)

(defun c:join ()
  (princ "\nSelect two lines to be joined: ")
  (setq ss1 (ssget)
        en1 (ssname ss1 0)
        en2 (ssname ss1 1)
  )
  (endpoint en1)
  (setq p11 pa
        p12 pb
  )
  (endpoint en2)
  (setq p21 pa
        p22 pb
  )
  (setq p1 (cdr (assoc 10 (entget en1))))
  (setq p2 (cdr (assoc 11 (entget en1))))
  (setq p3 (cdr (assoc 10 (entget en2))))
  (setq p4 (cdr (assoc 11 (entget en2))))
  (setq ang (angle p1 p4))
  (setq ang1 (angle p2 p3))
  (setq ang2 (- ang ang1))
  (setq ang2 (abs ang2))

  (setq d1 (distance p11 p21)
        d2 (distance p12 p21)
        d3 (distance p12 p22)
        d4 (distance p11 p22)
  )
  (setq d5 (max
             d1
             d2
             d3
             d4
           )
  )
  (cond
    ((eq d1 d5)
      (setq pa p11)
      (setq pb p21)
    )
    ((eq d2 d5)
      (setq pa p12)
      (setq pb p21)
    )
    ((eq d3 d5)
      (setq pa p12)
      (setq pb p22)
    )
    ((eq d4 d5)
      (setq pa p11)
      (setq pb p22)
    )
  )
  (if (< ang2 0.000001)
    (progn
      (entdel en2)
      (setq et1 (entget en1))
      (setq et1 (subst
           (cons 10 pa)
           (assoc 10 et1)
           et1
         )
            et1 (subst
           (cons 11 pb)
           (assoc 11 et1)
           et1
         )
      )
      (entmod et1)
    )
    (PROMPT "\nError:The two lines are not in the same plan;")
  )
)
(princ "\C:JOIN loaded")
(princ)

qiuxiang129

演示一下啊

倒数第一名

嗯，不錯，試用效果很棒，不過如果二直線首尾連接的話，得重復使用二次命令。

zml84

[php]
;;;======================================================
;;;功能：批量偏移                                       
;;;日期：zml84 于 2007-08-24                             
;;;全局变量：PP-LST-DIST 偏移距离列表                    
(defun C:FF (/ S1 STR PT D)
    ;;对全局变量的处理
    (if        (and (= PP-LST-DIST NIL)
             (> (getvar "OFFSETDIST") 0)
        )
        (setq PP-LST-DIST (list (getvar "OFFSETDIST")))
    )
    (if        PP-LST-DIST
        (progn
            (princ PP-LST-DIST)
            (setq STR "或 [上一次(L)] <L>")
            (initget "L")
        )
        (setq STR "")
    )
    ;;对偏移距离列表的编辑
    (if        (setq D        (getdist (strcat "\n指定偏移距离"
                                 STR
                                 ": "
                         )
                )
        )
        (cond
            ((= D "L")
             ()
            )
            (t
             (setq PP-LST-DIST '())
             (while (progn
                        (setq PP-LST-DIST (cons D PP-LST-DIST))
                        (princ PP-LST-DIST)
                        (setq D (getdist "\n指定偏移距离: "))
                    )
             )
            )
        )
    )
    ;;偏移操作
    (if        PP-LST-DIST
        (while (setq S1 (entsel "\n点取要偏移的对象或 <退出>: "))
            (if        (setq PT (getpoint "\n指定点以确定偏移所在一侧: "))
                (foreach D PP-LST-DIST
                    (command "_.OFFSET" D S1 PT "")
                )
            )
        )
    )
    (princ)
);_结束 defun
;;;======================================================
[/php]
着色版见：http://zml84.blog.sohu.com/61688388.html

CADVL

06及以上版本使用join命令就可以了。

carrot1983

http://carrot1983.blog.sohu.com/104933044.html
join连接线段
适合06以下的版本。仅对Line管用。。。

kocer

谢谢分享