土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 如何实现本程序连接两条PL线？

如何实现本程序连接两条PL线？

发布于：2011-01-08 21:35:08 来自：建筑设计/CAD下载及教程 [复制转发]

(defun c:ab(/ kst sset i pp d1 yn f1)
(setvar "cmdecho" 0)
(princ "\n选择欲连接的所有二维多义线、圆弧、直线:")(setq sset (ssget '((-4 . " "))) i 0)
(while (< i (sslength sset))
(if (entget (setq ent (ssname sset i)))
(if (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE") (vl-cmdf "_PEDIT" ent "J" ent "" "") (vl-cmdf "_PEDIT" ent "Y" "J" sset "" ""))
)
(setq i (1+ i))
)
(princ)
)

本程序可以连接L与L，L与PL、PL与ARC、L与ARC，但不能连接PL与PL，请各位高手帮忙啊。让它能连接PL与PL。

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（3 ）

只看楼主我来说两句

firephoenix001 沙发

楼主就是高手

2011-01-09 09:14:09
回复举报
赞同0
x0x0x0x045 板凳

没有高手？

2011-01-08 23:16:08
回复举报
赞同0

加载更多