yangist 发表于 2013-6-24 19:25:11

已有 19 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

香田里浪人 发表于 2013-6-24 20:43:44

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

香田里浪人 发表于 2013-6-24 21:04:52

浏览收了一个下载又一个。下面转载一个程序，有兴趣作比较。
;;;直线 圆弧，多义线 延伸或剪短
(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:10:05

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

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

香田里浪人 发表于 2013-6-24 21:16:05

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

yangist 发表于 2013-6-24 21:18:30

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

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

香田里浪人 发表于 2013-6-25 06:39:58

yangist 发表于 2013-6-24 21:18 static/image/common/back.gif
那 你这个操作起来不烦么...

感觉还可以。

清风明月名字 发表于 2013-6-25 07:41:15

谢谢楼主分享，辛苦了！

dxj958 发表于 2013-10-5 10:08:39

香田里浪人 的好用
页: [1]
查看完整版本: 连接断线程序