一条线打断后如何再接成一条线？

透明星空 · 发表于 2007-1-30 10:17:47

经典图书

看似一条线，选择时已是两条线，想把它们连成一条线，用什么方法

herculesx10 · 发表于 2007-1-30 11:39:43

用join

zhangw74 · 发表于 2007-1-30 12:39:18

经典图书

2005以前的版本没有这个问题命令,2005及以后的才有

ycc1234567 · 发表于 2007-1-30 14:17:53

在05里你可以把他合并成为多段线
选出来也是一条

dhqing · 发表于 2007-1-30 14:19:58

经典案例图书

用PEDIT吧。合并。

scwwlx · 发表于 2007-1-30 14:50:59

我用的是R14直接用鼠标右键点击其中的一条线然后拖到另一条的一端就行了

sendiaodui · 发表于 2007-1-30 15:06:59

经典案例图书

pe和j

jimohuashi · 发表于 2007-1-30 15:21:11

应用下面的LISP程序可以将“打断后的直线”连接成一条：
(setvar "cmdecho" 0)
(setq e (ssget))
(setq nl (sslength e)) (setq ni 1)
(setq p1 (trans (cdr (assoc 10 (entget (ssname e 0)))) 0 1))
(setq p2 (trans (cdr (assoc 11 (entget (ssname e 0)))) 0 1))
(setq ly (cdr (assoc 8 (entget (ssname e 0)))))
(setq lt (cdr (assoc 6 (entget (ssname e 0)))))
(setq lt0 (getvar "celtrype") ly0 (getvar "clayer"))
(setq al (distance p1 p2))
(setq p0 p1)
(while (< ni nl)
(setq p3 (trans (cdr (assoc 10 (entget (ssname e ni)))) 0 1))
(setq p4 (trans (cdr (assoc 11 (entget (ssname e ni)))) 0 1))
(if (> (distance p3 p1) al) (progn (setq p0 p2 p2 p3) (setq al (distance p1 p2)) ))
(if (> (distance p4 p1) al) (progn (setq p0 p2 p2 p4) (setq al (distance p1 p2)) ))
(if (> (distance p0 p2) al) (setq p1 p0))
(setq ni (+ ni 1))
)
(command "erase" e "")
(command "layer" "s" ly "")(command "linetype" "s" lt "")
(command "line" p1 p2 "")
(command "layer" "s" ly0 "")(command "linetype" "s" lt0 "")
(setvar "cmdecho" 1)
不愿意编码可以下载

JOIN.lsp.rar (387 Bytes, 下载次数: 12)

wshplw · 发表于 2007-1-30 15:32:20

7楼的强人可以做到我要好好看看

wj236263 · 发表于 2007-1-30 16:40:08

经典图书

07 合并命令很好

jiang3051 · 发表于 2007-1-30 18:19:18

那要看看你使的是什么版本的了　０６以后ＪＯＩＮ就哦了

sdsllan · 发表于 2007-1-30 19:06:49

用"延伸"命令可以解决这个问题.

zhuzhaog68 · 发表于 2007-1-30 22:02:16

方法很多,开动脑子就行

hjhy001 · 发表于 2007-1-30 22:24:27

呵呵！现在知道了

wennyj · 发表于 2007-1-30 23:08:11

加入QQ群
参与讨论和学习

或扫描二维码加入

拉长也可以吧

456123zzzz · 发表于 2007-1-30 23:11:05

经典案例图书

用jion命令

gthgthgth · 发表于 2007-1-31 00:56:25

加入QQ群
参与讨论和学习

或扫描二维码加入

就用PE就行了

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