连接断线程序

香田里浪人

好歹贴个图看看啊。浏览1币，下载要几个？

香田里浪人

浏览收了一个下载又一个。下面转载一个程序，有兴趣作比较。
;;;直线 圆弧，多义线 延伸或剪短
(defun c:jf () (c:pljoinfuzz))
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
  (setq oldcmdecho (getvar "cmdecho"))
  (setq oldpeditaccept (getvar "PEDITACCEPT"))
  (setvar "cmdecho" 0)
  (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
  (if A2k4 (setvar "PEDITACCEPT" 0))
  (setq        okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
  (princ "\n请选择需要连接的直线，圆弧，多义线: ")
  (setq ss1 (ssget okObjects))
  (setq fuzz (getdist "\n模糊距离 <0>: "))
  (if (= fuzz nil) (setq fuzz 0))
  (if (/= ss1 nil)
      (progn
        (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
        (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
        (if (member objType '("LINE" "ARC"))
          (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
          (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
        )
      )
  )
  (setvar "cmdecho" oldcmdecho)
  (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
  (princ)
)
(princ "\n *******连接程序。命令: JF ************\n")
(princ)

yangist

香田里浪人 发表于 2013-6-24 21:04
浏览收了一个下载又一个。下面转载一个程序，有兴趣作比较。
;;;直线 圆弧，多义线 延伸或剪短
(defun c: ...

你的程序没效果啊 也不能截交

香田里浪人

首先声明，程序不是我编的，是转载，不能截交原因是模糊距离设置不当。

yangist

香田里浪人 发表于 2013-6-24 21:16
首先声明，程序不是我编的，是转载，不能截交原因是模糊距离设置不当。

那 你这个操作起来不烦么...

香田里浪人

yangist 发表于 2013-6-24 21:18
那 你这个操作起来不烦么...

感觉还可以。

清风明月名字

谢谢楼主分享，辛苦了！

dxj958

香田里浪人 的好用