[求助][求助]把线和圆弧连接起来。谢谢

xyh2006

绿色和红色中心线不要连接，就连接白色相连的线，谢谢你。

qk983

用PE命令中的J进行合并

xyh2006

qk983发表于2010-6-26 9:46:00用PE命令中的J进行合并

在画图中有很多这样的白色线要连起来，用PE，就要一个一个选，我是想点2根线，相关联的线就全部连起来了。

gufeng

以为图上的直线和弧的分布 直接PEDIT就可以了

3. (defun c:test (/OBJ)
4.   (setq obj (ssget "x" '((0 . "line,arc"))))
5.   (if obj
6.     (command "pedit" "m" "all" "" "y" "join" 0 "")
7.     (command "pedit" "m" "all" "" "join" 0 "")
8.     )
9.   (princ)
10.   )

(defun c:test (/OBJ)   (setq obj (ssget "x" '((0 . "line,arc"))))   (if obj     (command "pedit" "m" "all" "" "y" "join" 0 "")     (command "pedit" "m" "all" "" "join" 0 "")     )   (princ)   )

xyh2006

2. 以为图上的直线和弧的分布 直接PEDIT就可以了 [复制代码][语法着色]以下内容为程序代码:(defun c:test (/OBJ)   (setq obj (ssget "x" '((0 . "line,arc"))))   (if obj     (command "pedit" "m" "all" "" "y" "join" 0 "")     (command "pedit" "m" "all" "" "join" 0 "")     )   (princ)   )

以为图上的直线和弧的分布 直接PEDIT就可以了 [复制代码][语法着色]以下内容为程序代码:(defun c:test (/OBJ)   (setq obj (ssget "x" '((0 . "line,arc"))))   (if obj     (command "pedit" "m" "all" "" "y" "join" 0 "")     (command "pedit" "m" "all" "" "join" 0 "")     )   (princ)   )

谢谢gufeng，可是上面程序应用到CAD里，提示说 （ 錯誤: 引數太少） 你可不可以再帮忙修改下。

xyh2006

谢谢gufeng，可是上面程序应用到CAD里，提示说 （ 錯誤: 引數太少） 你可不可以再帮忙修改下。

gufeng

(defun c:test (/OBJ)   这个修改成 (defun c:test (/ OBJ)  就可以了

xyh2006

哦  谢谢你～～～