有什么命令一次性让所有断线闭合?

freemeteor · 发表于 2004-12-13 11:03:00

我打开一个DWG文件在CAD2002里面,各个图形都是封闭的,但一看各各个图形的边线都是段的,虽然一看两个点在一起,有什么办法让所有段开的线一次性闭合啊?PEDIT命令好象要一次次的点啊

席恩蒂 · 发表于 2004-12-13 11:21:00

用PEDIT命令，多条（M）选项，合并（J）选项。

zero207 · 发表于 2004-12-13 20:27:00

BOUNDARY

wanghch · 发表于 2004-12-16 13:41:00

编一个二次开发LISP程序，每次使用时输入一个命令即可，可比PEDIT简单多了。

rdhhb · 发表于 2004-12-16 20:50:00

支持二楼的,..酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶酷顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶顶顶顶酷顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷酷酷酷酷酷酷
酷酷酷顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷顶顶顶顶酷酷酷酷酷酷酷酷酷酷酷酷
酷顶顶顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷顶顶顶顶酷酷酷酷酷酷酷酷酷酷酷酷
酷顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷酷顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷
酷顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷顶顶顶顶顶顶顶顶顶顶顶顶顶顶酷酷酷酷
酷酷顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷顶顶顶顶顶顶酷酷酷顶顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷酷顶顶顶顶酷酷酷酷酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷酷顶顶酷酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷酷顶顶顶顶酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷酷顶顶顶顶酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷酷顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷酷顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶顶酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷顶顶顶酷酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷
酷酷顶顶酷酷酷顶顶顶顶顶酷酷酷酷顶顶顶酷酷顶顶顶酷酷酷顶顶顶顶顶酷酷酷酷酷
酷酷顶顶顶顶顶顶顶顶顶顶酷酷酷酷酷顶顶酷酷顶顶酷酷酷酷顶顶顶顶顶酷酷酷酷酷
酷酷酷顶顶顶顶顶顶顶顶顶酷酷酷酷酷酷酷酷顶顶顶酷酷酷酷酷顶顶顶顶酷酷酷酷酷
酷酷酷酷酷顶顶顶顶顶顶顶酷酷酷酷酷酷酷酷顶顶顶酷顶顶顶顶酷酷酷酷酷酷酷酷酷
酷酷酷酷酷酷顶顶顶顶顶顶酷酷酷酷酷酷酷顶顶顶顶酷酷顶顶顶顶顶酷酷酷酷酷酷酷
酷酷酷酷酷酷酷酷酷顶顶顶酷酷酷酷酷酷顶顶顶顶顶酷酷酷顶顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶酷酷酷酷酷顶顶顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶酷酷酷酷酷酷顶顶顶顶顶顶顶酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶酷酷酷酷酷酷酷酷酷顶顶顶顶顶顶酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶顶酷酷酷酷酷酷酷酷酷酷酷顶顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷顶顶顶酷酷酷酷
酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷酷

wanghch · 发表于 2004-12-17 14:30:00

将下面的LISP程序另存一个LISP文件，运行CAD时将它载入，运行J命令后，只要选择其中的一条线段回车就可以将多个线段连起来了。 (defun c:j ()
(setq vs1 (getvar "vsmin"))
(setq vs2 (getvar "vsmax"))
(setq a "t")
(while a
(setq p1 (entsel "\nSelect line to join"))
(setq p2 (car p1))
(setq ent1 (cdr (assoc 0 (entget p2))))
(setq p3 (car (cdr p1)))
(command "pedit" p2 "y" "j" "c" vs1 vs2 "" "")
)
)

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