xyh2006 发表于 2010-6-25 21:55:00

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

本帖最后由 作者 于 2010-6-26 17:16:12 编辑 <br /><br /> <p></p>
<p><font face="Verdana"><img src="http://i3.6.cn/cvbnm/62/8a/5d/54789e92d6461eedc976600f330cc08e.nail.jpg"/>绿</font>色和红色中心线不要连接，就连接白色相连的线，谢谢你。</p>

qk983 发表于 2010-6-26 09:46:00

<p>用PE命令中的J进行合并</p>

xyh2006 发表于 2010-6-26 09:59:00

qk983发表于2010-6-26 9:46:00static/image/common/back.gif用PE命令中的J进行合并


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

gufeng 发表于 2010-6-26 19:22:00

以为图上的直线和弧的分布 直接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)
)

xyh2006 发表于 2010-6-28 09:41:00

以为图上的直线和弧的分布 直接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 发表于 2010-6-28 09:44:00

<p>谢谢gufeng，可是上面程序应用到CAD里，提示说&nbsp;（ <font face="Verdana">錯誤: 引數太少） 你可不可以再帮忙修改下。</font></p>

gufeng 发表于 2010-6-28 10:51:00

<font face="Verdana">(defun c:test (/OBJ)</font>&nbsp;&nbsp; 这个修改成 <font face="Verdana">(defun c:test (/ OBJ)&nbsp; 就可以了</font>

xyh2006 发表于 2010-6-28 11:23:00

哦谢谢你～～～
页: [1]
查看完整版本: [求助][求助]把线和圆弧连接起来。谢谢