教學課程
加入贊助
聯絡我們![[討論]如何自訂[自動接合成聚合線]新功能? Aoe1-113](https://i.servimg.com/u/f67/12/31/59/66/aoe1-113.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Ioaoe110](https://i.servimg.com/u/f67/12/31/59/66/ioaoe110.png)
![[討論]如何自訂[自動接合成聚合線]新功能? 2020-310](https://i.servimg.com/u/f67/12/31/59/66/2020-310.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Oiu15010](https://i.servimg.com/u/f67/12/31/59/66/oiu15010.png)
![[討論]如何自訂[自動接合成聚合線]新功能? 2020-211](https://i.servimg.com/u/f67/12/31/59/66/2020-211.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Ia15010](https://i.servimg.com/u/f62/19/71/67/71/ia15010.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aizyao10](https://i.servimg.com/u/f67/12/31/59/66/aizyao10.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Uos15010](https://i.servimg.com/u/f67/12/31/59/66/uos15010.png)
![[討論]如何自訂[自動接合成聚合線]新功能? BPl3tjj](https://i.imgur.com/BPl3tjj.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Ziao1510](https://i.servimg.com/u/f62/19/71/67/71/ziao1510.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aoe15010](https://i.servimg.com/u/f67/12/31/59/66/aoe15010.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Oo-2-110](https://i.servimg.com/u/f67/12/31/59/66/oo-2-110.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Zuoiy_10](https://i.servimg.com/u/f67/12/31/59/66/zuoiy_10.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aizyao11](https://i.servimg.com/u/f67/12/31/59/66/aizyao11.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Iyb_1510](https://i.servimg.com/u/f67/12/31/59/66/iyb_1510.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aoe1-112](https://i.servimg.com/u/f67/12/31/59/66/aoe1-112.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Uos15011](https://i.servimg.com/u/f67/12/31/59/66/uos15011.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da10](https://i.servimg.com/u/f67/12/31/59/66/aoe2da10.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da11](https://i.servimg.com/u/f67/12/31/59/66/aoe2da11.png)
![[討論]如何自訂[自動接合成聚合線]新功能? Aoe10](https://i.servimg.com/u/f67/12/31/59/66/aoe10.png)
[討論]如何自訂[自動接合成聚合線]新功能?
+3
lsj
明~
阿德^_^
7 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
![[討論]如何自訂[自動接合成聚合線]新功能? Empty](https://2img.net/i/empty.gif)
[討論]如何自訂[自動接合成聚合線]新功能?
由 阿德^_^ 2010-08-13, 23:12
如何自訂[新功能]?
希望：能自動將一般線段接合成聚合線
步驟：(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入＂Ｙ＂同意轉成聚合線)->(執行-接合功能：J)->選取其他線段->自動接合成聚合線
PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^
希望：能自動將一般線段接合成聚合線
步驟：(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入＂Ｙ＂同意轉成聚合線)->(執行-接合功能：J)->選取其他線段->自動接合成聚合線
PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^
Tiger&蘋果爸 在 2010-08-13, 23:35 作了第 1 次修改 (原因 : 此主題為討論類型)
阿德^_^- 該用戶停權中
- 文章總數 : 55
年齡 : 45
來自 : 彰化
職業 : 小小工人
愛好 : 唱歌
個性 : 溫和
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5580
威望值 : 2
注冊日期 : 2010-02-19
回復： [討論]如何自訂[自動接合成聚合線]新功能?
由 明~ 2010-08-14, 11:15
記得好像有,就找了一下~
檔案載點:
http://www.eoenet.com/manage/0100488447213.aspx
指令名稱:QQ
檔案載點:
http://www.eoenet.com/manage/0100488447213.aspx
指令名稱:QQ
明~- 高級會員
- 文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 7195
威望值 : 667
注冊日期 : 2009-12-24
回復： [討論]如何自訂[自動接合成聚合線]新功能?
由 lsj 2010-08-14, 18:30
(defun c:qq()
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
lsj- 初級會員
- 文章總數 : 43
年齡 : 59
來自 : 桃園
職業 : 營建工程
愛好 : 閒
個性 : 懶
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 5506
威望值 : 110
注冊日期 : 2010-06-28
回復： [討論]如何自訂[自動接合成聚合線]新功能?
由 Tiger&蘋果爸 2010-08-14, 20:12
我也補充二篇以前回答的文章供你參考:
http://tw.knowledge.yahoo.com/question/question?qid=1206092512605
http://tw.knowledge.yahoo.com/question/question?qid=1510042402527
http://tw.knowledge.yahoo.com/question/question?qid=1206092512605
http://tw.knowledge.yahoo.com/question/question?qid=1510042402527
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21382
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90361
威望值 : 17197
注冊日期 : 2008-04-23
-
luffwinnow- 一般會員
- 文章總數 : 23
年齡 : 34
來自 : 台北
職業 : 繪圖員
愛好 : 騎車
個性 : 開朗
使用年資 : 四個月
使用版本 : auto2011
經驗值 : 4956
威望值 : 6
注冊日期 : 2011-08-22
回復： [討論]如何自訂[自動接合成聚合線]新功能?
由 tooth525 2012-03-09, 09:37
這是我常用的,鍵入:J
- 代碼:
(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)
)
tooth525- 初級會員
- 文章總數 : 43
年齡 : 59
來自 : 彰化
職業 : CNC線切割
愛好 : 看影集,唱唱歌
個性 : 溫合/樂觀/善於分析
使用年資 : 30年
使用版本 : 2004
積分 : 2
經驗值 : 5179
威望值 : 149
注冊日期 : 2011-08-03
Raphael likes this post
回復： [討論]如何自訂[自動接合成聚合線]新功能?
由 chaogh 2013-08-09, 15:23
好用的j.lsp 程式
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
chaogh- 一般會員
- 文章總數 : 25
年齡 : 57
來自 : 新北市
職業 : 工程師
愛好 : 電影,游泳
個性 : 中
使用年資 : 2年
使用版本 : AutoCAD 2012
經驗值 : 5814
威望值 : 12
注冊日期 : 2009-03-02
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限：
您 無法 在這個版面回復文章