土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 发一个lisp程序：将所选的二维多义线、圆弧、直线尽可能连接为二维多段线.

发一个lisp程序：将所选的二维多义线、圆弧、直线尽可能连接为二维多段线.

发布于：2010-05-31 13:43:31 来自：建筑设计/CAD下载及教程 [复制转发]

;;;
;;;将所选的二维多义线、圆弧、直线尽可能连接为二维多段线.
;;;
(defun c:jointtopl (/ 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)
)

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

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

全部回复（4 ）

只看楼主我来说两句

h_21 沙发

　这个很实用。顶一下

2010-07-15 23:26:15
回复举报
赞同0
dengyangyang888 板凳

不知道怎么用啊
谢谢楼主了

2010-06-05 23:32:05
回复举报
赞同0

加载更多