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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]如何自訂[自動接合成聚合線]新功能? Ioaoe110[討論]如何自訂[自動接合成聚合線]新功能? 2020-310[討論]如何自訂[自動接合成聚合線]新功能? Oiu15010[討論]如何自訂[自動接合成聚合線]新功能? 2020-211[討論]如何自訂[自動接合成聚合線]新功能? Ia15010[討論]如何自訂[自動接合成聚合線]新功能? Aizyao10[討論]如何自訂[自動接合成聚合線]新功能? Uos15010[討論]如何自訂[自動接合成聚合線]新功能? BPl3tjj[討論]如何自訂[自動接合成聚合線]新功能? Ziao1510
[討論]如何自訂[自動接合成聚合線]新功能? Oo-2-110[討論]如何自訂[自動接合成聚合線]新功能? Zuoiy_10[討論]如何自訂[自動接合成聚合線]新功能? Aizyao11[討論]如何自訂[自動接合成聚合線]新功能? Iyb_1510[討論]如何自訂[自動接合成聚合線]新功能? Aoe1-111[討論]如何自訂[自動接合成聚合線]新功能? Uos15011[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da10[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da11[討論]如何自訂[自動接合成聚合線]新功能? Aoe10

[討論]如何自訂[自動接合成聚合線]新功能?

+3
lsj
明~
阿德^_^
7 posters

向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 阿德^_^ 周五 13 8月 2010 - 23:12

如何自訂[新功能]?

希望:能自動將一般線段接合成聚合線
步驟:(按下這個功能)->執行PEDIT->(選取某條線段)->(如果選取的物件不是一條聚合線....會自動輸入"Y"同意轉成聚合線)->(執行-接合功能:J)->選取其他線段->自動接合成聚合線

PS:如果有網友提供同樣功能的LISP、巨集VBA專案也可以..先謝了~^_^


Tiger&蘋果爸 在 周五 13 8月 2010 - 23:35 作了第 1 次修改 (原因 : 此主題為討論類型)
阿德^_^
阿德^_^
該用戶停權中
該用戶停權中

文章總數 : 55
年齡 : 45
來自 : 彰化
職業 : 小小工人
愛好 : 唱歌
個性 : 溫和
使用年資 : 5
使用版本 : 2008
積分 : 1
經驗值 : 5342
威望值 : 2
注冊日期 : 2010-02-19
男 射手座 馬

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 明~ 周六 14 8月 2010 - 11:15

記得好像有,就找了一下~
檔案載點:
http://www.eoenet.com/manage/0100488447213.aspx

指令名稱:QQ
明~
明~
高級會員
高級會員

文章總數 : 307
年齡 : 44
來自 : 彰化
職業 : 機械
愛好 : 打球 騎車 健行 音樂 電影 (說不完...)
個性 : 不與人爭
使用年資 : 從學生時代接觸到現在(工作中不一定使用)
使用版本 : 2004和2008
積分 : 17
經驗值 : 6957
威望值 : 667
注冊日期 : 2009-12-24
藍鵲292號
男 雙魚座 猴

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 lsj 周六 14 8月 2010 - 18:30

(defun c:qq()
(setvar "peditaccept" 1)
(while (setq ss (ssget))
(vl-cmdf "pedit" "m" ss "" "j" "" "")
)
(setvar "peditaccept" 0)
(prin1)
)
再延伸的應用有:
不同圖層的分開處理
選擇一個線或弧,端點連接的自動形成聚合線
lsj
lsj
初級會員
初級會員

文章總數 : 43
年齡 : 59
來自 : 桃園
職業 : 營建工程
愛好 :
個性 :
使用年資 : 10↑
使用版本 : 2008
積分 : 2
經驗值 : 5268
威望值 : 110
注冊日期 : 2010-06-28
男 水瓶座 龍

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 Tiger&蘋果爸 周六 14 8月 2010 - 20:12

我也補充二篇以前回答的文章供你參考:
http://tw.knowledge.yahoo.com/question/question?qid=1206092512605

http://tw.knowledge.yahoo.com/question/question?qid=1510042402527

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[討論]如何自訂[自動接合成聚合線]新功能? Sesa2011 [討論]如何自訂[自動接合成聚合線]新功能? Youtub11 [討論]如何自訂[自動接合成聚合線]新功能? Oiea2011 [討論]如何自訂[自動接合成聚合線]新功能? Oe20011 [討論]如何自訂[自動接合成聚合線]新功能? Fbi20011 [討論]如何自訂[自動接合成聚合線]新功能? Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21078
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88428
威望值 : 16930
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 luffwinnow 周一 26 12月 2011 - 11:01

謝謝分享,這樣設成聚合線很方便^^
luffwinnow
luffwinnow
一般會員
一般會員

文章總數 : 22
年齡 : 33
來自 : 台北
職業 : 繪圖員
愛好 : 騎車
個性 : 開朗
使用年資 : 四個月
使用版本 : auto2011
經驗值 : 4713
威望值 : 6
注冊日期 : 2011-08-22
藍鵲192號
女 白羊座 馬

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 tooth525 周五 9 3月 2012 - 9: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
tooth525
初級會員
初級會員

文章總數 : 43
年齡 : 59
來自 : 彰化
職業 : CNC線切割
愛好 : 看影集,唱唱歌
個性 : 溫合/樂觀/善於分析
使用年資 : 30年
使用版本 : 2004
積分 : 2
經驗值 : 4935
威望值 : 143
注冊日期 : 2011-08-03
經典問與答讀者 男 白羊座 蛇

Raphael likes this post

回頂端 向下

[討論]如何自訂[自動接合成聚合線]新功能? Empty 回復: [討論]如何自訂[自動接合成聚合線]新功能?

發表 由 chaogh 周五 9 8月 2013 - 15:23

好用的j.lsp 程式
借用一下喔
上班常用到這個
如果可以加上判定
有無接合而顯示不同顏色
更是不錯
謝謝
chaogh
chaogh
一般會員
一般會員

文章總數 : 25
年齡 : 57
來自 : 新北市
職業 : 工程師
愛好 : 電影,游泳
個性 :
使用年資 : 2年
使用版本 : AutoCAD 2012
經驗值 : 5576
威望值 : 12
注冊日期 : 2009-03-02
男 摩羯座 馬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]如何自訂[自動接合成聚合線]新功能? Ioaoe110[討論]如何自訂[自動接合成聚合線]新功能? 2020-310[討論]如何自訂[自動接合成聚合線]新功能? Oiu15010[討論]如何自訂[自動接合成聚合線]新功能? 2020-211[討論]如何自訂[自動接合成聚合線]新功能? Ia15010[討論]如何自訂[自動接合成聚合線]新功能? Aizyao10[討論]如何自訂[自動接合成聚合線]新功能? Uos15010[討論]如何自訂[自動接合成聚合線]新功能? BPl3tjj[討論]如何自訂[自動接合成聚合線]新功能? Ziao1510
[討論]如何自訂[自動接合成聚合線]新功能? Oo-2-110[討論]如何自訂[自動接合成聚合線]新功能? Zuoiy_10[討論]如何自訂[自動接合成聚合線]新功能? Aizyao11[討論]如何自訂[自動接合成聚合線]新功能? Iyb_1510[討論]如何自訂[自動接合成聚合線]新功能? Aoe1-111[討論]如何自訂[自動接合成聚合線]新功能? Uos15011[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da10[討論]如何自訂[自動接合成聚合線]新功能? Aoe2da11[討論]如何自訂[自動接合成聚合線]新功能? Aoe10