AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

[討論]請教線轉為複線,或是聚合線轉為複線的作法?

上一篇主題 下一篇主題 向下

[討論]請教線轉為複線,或是聚合線轉為複線的作法?

發表 由 Andy122333 于 2017-06-12, 10:07

各位好,請教是否有線轉為複線,或是聚合線轉為複線的作法?
否則...一線段一線段的畫...快瘋了我.... 愛哭  愛哭  愛哭
先謝謝大家囉~~~
avatar
Andy122333
一般會員
一般會員

文章總數 : 8
年齡 : 47
來自 : 桃園市
職業 : 機電工程
愛好 : 看電影
個性 : 中庸
使用年資 : 3
使用版本 : 2015
經驗值 : 669
威望值 : 0
注冊日期 : 2016-03-07
男 射手座 雞

回頂端 向下

回復: [討論]請教線轉為複線,或是聚合線轉為複線的作法?

發表 由 Tiger&蘋果爸 于 2017-06-12, 11:04

沒辦法,這個只能借助程式!
所以得一條一條畫~
不知道你是什麼樣的需求要這樣做!
認同

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17263
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65013
威望值 : 12837
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [討論]請教線轉為複線,或是聚合線轉為複線的作法?

發表 由 Andy122333 于 2017-06-12, 11:27

是喔...
因為公司是是機電工程,業主要求管線要複線方式表示...
還是謝謝喔~~~
avatar
Andy122333
一般會員
一般會員

文章總數 : 8
年齡 : 47
來自 : 桃園市
職業 : 機電工程
愛好 : 看電影
個性 : 中庸
使用年資 : 3
使用版本 : 2015
經驗值 : 669
威望值 : 0
注冊日期 : 2016-03-07
男 射手座 雞

回頂端 向下

回復: [討論]請教線轉為複線,或是聚合線轉為複線的作法?

發表 由 Atsai 于 2017-07-16, 14:10

Andy122333 寫到:各位好,請教是否有線轉為複線,或是聚合線轉為複線的作法?
否則...一線段一線段的畫...快瘋了我.... 愛哭  愛哭  愛哭
先謝謝大家囉~~~

這個是網路上找到的只支援Pline轉Mline的Lisp,若要支援line的話,要再增加幾行代碼。
代碼:

(defun c:pl2ml ( / e i l s )
    (if (setq s (ssget '((0 . "LWPOLYLINE"))))
        (repeat (setq i (sslength s))
            (setq e (ssname s (setq i (1- i)))
                  l (entget e)
            )
            (apply 'command
                (append '("_.mline")
                    (apply 'append
                        (mapcar
                            (function
                                (lambda ( x )
                                    (list "_non" (trans (cdr x) e 1))
                                )
                            )
                            (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) l)
                        )
                    )
                    (if (= 1 (logand 1 (cdr (assoc 70 l)))) '("_C") '(""))
                )
            )
        )
    )
    (princ)
)

Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
附件
pl2ml.zip 這個是另一個編譯檔的,可支援line及pline轉Mline。您無權下載這里的附件。(2 Kb) 下載 3 次
avatar
Atsai
中級會員
中級會員

文章總數 : 115
年齡 : 42
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 7
經驗值 : 2937
威望值 : 337
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

回復: [討論]請教線轉為複線,或是聚合線轉為複線的作法?

發表 由 Tiger&蘋果爸 于 2017-07-17, 02:40

我在網路上也搜尋到一個「line轉mline」
代碼:
(defun c:l2ml()
(setq mysset (ssget))
(setq mylength (sslength mysset))
(setq counter 0)
(while (< counter mylength)
   (setq obj (ssname mysset counter))
   (setq data (entget obj))
   (setq pt1 (cdr (assoc 10 data)))
   (setq pt2 (cdr (assoc 11 data)))
   (command "mline" "style" "standard" pt1 pt2 "")
   (entdel obj)
   (setq counter (+ 1 counter))
)
(princ)
)

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17263
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 65013
威望值 : 12837
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章