顧問教學
加入贊助
聯絡我們
複線如何轉成聚合線？？
4 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 2D討論
第1頁(共1頁)
stagecoach- 一般會員
- 文章總數 : 25
年齡 : 48
來自 : Taichung
職業 : 工務
愛好 : 繪圖
個性 : 莫名奇妙
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 2966
威望值 : 30
注冊日期 : 2016-09-02
回復： 複線如何轉成聚合線？？
由 naruto018 周四 6 五月 2021 - 15:20
有這個外掛LISP
作者：Lee Mac
網址：Multilines to Polylines
下載MLines2PLinesV1-1.lsp
載入CAD後，指令ML2PL
作者：Lee Mac
網址：Multilines to Polylines
下載MLines2PLinesV1-1.lsp
載入CAD後，指令ML2PL
naruto018- 中級會員
- 文章總數 : 208
年齡 : 32
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 4259
威望值 : 558
注冊日期 : 2016-11-29
回復： 複線如何轉成聚合線？？
由 Tiger&蘋果爸 周四 6 五月 2021 - 20:02
CAD沒有這功能，除了使用程式快速轉換，也可以試試預設指令組合方式!stagecoach 寫到:AutoCAD裡面有這個功能嗎？？
先分解後，再用PEDIT指令全選轉為聚合線
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21141
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88826
威望值 : 16977
注冊日期 : 2008-04-23
-
stagecoach likes this post
回復： 複線如何轉成聚合線？？
由 stagecoach 周五 7 五月 2021 - 20:31
Tiger&蘋果爸 寫到:CAD沒有這功能，除了使用程式快速轉換，也可以試試預設指令組合方式!stagecoach 寫到:AutoCAD裡面有這個功能嗎？？
先分解後，再用PEDIT指令全選轉為聚合線
蘋果爸的提議果然最符合我這種蠢蛋土法練鋼了..............
stagecoach- 一般會員
- 文章總數 : 25
年齡 : 48
來自 : Taichung
職業 : 工務
愛好 : 繪圖
個性 : 莫名奇妙
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 2966
威望值 : 30
注冊日期 : 2016-09-02
回復： 複線如何轉成聚合線？？
由 stagecoach 周五 7 五月 2021 - 20:33
naruto018 寫到:有這個外掛LISP
作者：Lee Mac
網址：Multilines to Polylines
下載MLines2PLinesV1-1.lsp
載入CAD後，指令ML2PL
坦白說，我連.lsp檔是什麼東西都不知道，已經遠水難救近火了.............
stagecoach- 一般會員
- 文章總數 : 25
年齡 : 48
來自 : Taichung
職業 : 工務
愛好 : 繪圖
個性 : 莫名奇妙
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 2966
威望值 : 30
注冊日期 : 2016-09-02
回復： 複線如何轉成聚合線？？
由 ianlcc 周一 31 五月 2021 - 14:29
(defun c:J(/ s1 ent cs2);----PEDIT---LISP---
(setq s1 (entsel))
(setq cs2 (cdr (assoc 62 (entget (car s1)))))
(IF (= cs2 11)
(setq cs2 40)
(setq cs2 11)
)
(command "change" S1 "" "p" "C" cs2 "")
(setq ent (cdr (assoc 0 (entget (car s1)))))
(prompt "\ Join Auto ")
(if (= ent "LWPOLYLINE")
(command "pedit" s1 "j" "au")
(command "pedit" s1 "y" "j" "au")
)
(prin1)
)
↑↑↑
①把上面複製、貼到記事本、儲存成AAA.LSP(檔名隨便選取)
②AUTOCAD開啟中，把AAA.LSP拖到CAD畫面。
③在CAD中，KEY：J ，然後選擇您要轉成聚合線的線。
(setq s1 (entsel))
(setq cs2 (cdr (assoc 62 (entget (car s1)))))
(IF (= cs2 11)
(setq cs2 40)
(setq cs2 11)
)
(command "change" S1 "" "p" "C" cs2 "")
(setq ent (cdr (assoc 0 (entget (car s1)))))
(prompt "\ Join Auto ")
(if (= ent "LWPOLYLINE")
(command "pedit" s1 "j" "au")
(command "pedit" s1 "y" "j" "au")
)
(prin1)
)
↑↑↑
①把上面複製、貼到記事本、儲存成AAA.LSP(檔名隨便選取)
②AUTOCAD開啟中，把AAA.LSP拖到CAD畫面。
③在CAD中，KEY：J ，然後選擇您要轉成聚合線的線。
____________________________________________________________________________________
ianlcc- 一般會員
- 文章總數 : 159
年齡 : 49
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 5194
威望值 : 69
注冊日期 : 2012-06-24
Tiger&蘋果爸 likes this post
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 2D討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章