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.
[分享]  圖塊置換程式 Aoe1-113[分享]  圖塊置換程式 Ioaoe110[分享]  圖塊置換程式 2020-310[分享]  圖塊置換程式 Oiu15010[分享]  圖塊置換程式 2020-211[分享]  圖塊置換程式 Ia15010[分享]  圖塊置換程式 Aizyao10[分享]  圖塊置換程式 Uos15010[分享]  圖塊置換程式 BPl3tjj[分享]  圖塊置換程式 Ziao1510
[分享]  圖塊置換程式 Aoe15010[分享]  圖塊置換程式 Oo-2-110[分享]  圖塊置換程式 Zuoiy_10[分享]  圖塊置換程式 Aizyao11[分享]  圖塊置換程式 Iyb_1510[分享]  圖塊置換程式 Aoe1-112[分享]  圖塊置換程式 Uos15011[分享]  圖塊置換程式 Aoe2da10[分享]  圖塊置換程式 Aoe2da11[分享]  圖塊置換程式 Aoe10

[分享] 圖塊置換程式

+5
hua
djh1006
yenbl
lingo_st
salad123
9 posters

向下

[分享]  圖塊置換程式 Empty [分享] 圖塊置換程式

發表 由 salad123 2011-10-03, 23:47

見今日得閒, 試寫左依個程式~~大家應該都會用到,
所以o係度分享比大家~~
我未學識點post 圖片, 望見諒

(defun c:bbb(/ oldsnap en nn sdata i entype old-list)
 (setvar "cmdecho" 0)
 (setq oldsnap (getvar "osmode"))
 (setvar "osmode" 0)
 (princ "Select Old Block(s) to change:")
 (setq en (ssget))
 (setq nn (assoc 2 (entget (car (entsel "\nSelect New Block:")))))
 (setq i 0)
 (repeat (sslength en)
   (setq sdata (entget (ssname en i)))
   (setq entype (cdr (assoc 0 sdata)))
   (if (= entype "INSERT")
     (progn
(setq old-list (assoc 2 sdata))
(setq sdata (subst nn old-list sdata))
(entmod sdata)
(setq i (1+ i)))))
 (setvar "osmode" oldsnap)
 (prin1))
附件
[分享]  圖塊置換程式 Attachment
BBB.zip 您無權下載這里的附件。(2 Kb) 下載 37 次
salad123
salad123
一般會員
一般會員

文章總數 : 61
年齡 : 41
來自 : 香港
職業 : 建築
愛好 : 寫lisp
個性 : 追求簡潔, 快捷
使用年資 : 5
使用版本 : 2011
經驗值 : 5312
威望值 : 108
注冊日期 : 2011-01-06
藍鵲407號
男 水瓶座 狗

Tiger&蘋果爸 and comper54 like this post

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 lingo_st 2013-04-15, 01:17

樓主好
我是因為在網上找尋可以快速置換圖塊的LISP然後在虹翔看到您的帖子
沒想到您也有在這邊發帖
經過測試後確認可用無誤
這邊也有提供類似功能的LISP不過方向剛好相反
這邊的是先點選來源圖塊A,然後框選到的圖塊都會置換為圖塊A
你的LISP則是先框選想置換的圖塊,然後點選圖塊A,剛剛框選的圖塊全數置換為圖塊A
簡單講就是寫程式的思維是反向
但達到一樣的目的

感謝無私分享

____________________________________________________________________________________
沒有功勞也有苦勞,沒有苦勞也有疲勞的年代已經過去
現在是...........................................
沒有功勞直接就是個屁,連個屁都不是,那就真的很疲勞了
大家一起努力吧,努力別落到連個屁都不是................
lingo_st
lingo_st
中級會員
中級會員

文章總數 : 211
年齡 : 60
來自 : 新北市
職業 : 營造,建設
愛好 : 學習,服務,電腦軟硬體
個性 : 正直,達觀且無可救藥的雞婆
使用年資 : 使用12年但真的是新手
使用版本 : 2012,2013
積分 : 6
經驗值 : 5837
威望值 : 271
注冊日期 : 2011-12-18
經典問與答讀者 藍鵲238號
男 雙魚座 龍

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 salad123 2013-04-15, 23:20

哈哈, 這個論壇好像熱鬧一點~
所以我便將程式分享比大家~
幫到大家, 我自己都開心~
salad123
salad123
一般會員
一般會員

文章總數 : 61
年齡 : 41
來自 : 香港
職業 : 建築
愛好 : 寫lisp
個性 : 追求簡潔, 快捷
使用年資 : 5
使用版本 : 2011
經驗值 : 5312
威望值 : 108
注冊日期 : 2011-01-06
藍鵲407號
男 水瓶座 狗

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 yenbl 2013-04-24, 16:45

好用...太好用了....不簡單
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5386
威望值 : 111
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 djh1006 2013-04-24, 22:36

的確很好用,謝謝分享
學LISP就是要多看看別人的程式,再修改成適合自己使用的程式,但要心懷感激哦!
djh1006
djh1006
中級會員
中級會員

文章總數 : 177
年齡 : 52
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6009
威望值 : 359
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 hua 2016-10-07, 14:36

謝謝您的分享
hua
hua
一般會員
一般會員

文章總數 : 16
年齡 : 42
來自 : 新北市
職業 : 繪圖員
愛好 : 畫圖
個性 : 內向
使用年資 : 5-6
使用版本 : 2014
經驗值 : 2986
威望值 : 0
注冊日期 : 2016-08-10
女 摩羯座 雞

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 jackiehover 2016-10-14, 19:29

還不懂這個lisp的意思,下載來使用看看。

感謝分享

____________________________________________________________________________________

jackiehover
jackiehover
初級會員
初級會員

文章總數 : 151
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4018
威望值 : 96
注冊日期 : 2015-08-31
藍鵲699號
男 水瓶座 虎

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 JoeyLi 2022-03-19, 15:11

多謝分享 非常實用~

____________________________________________________________________________________

JoeyLi
JoeyLi
一般會員
一般會員

文章總數 : 15
年齡 : 37
來自 : 高雄
職業 : 水電
愛好 : 音樂
個性 : 慢熱
使用年資 : 9年
使用版本 : 2014
經驗值 : 4506
威望值 : 12
注冊日期 : 2012-05-30
女 水瓶座 虎

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 Amanda_Chen 2022-03-24, 12:47

感謝樓主分享
Amanda_Chen
Amanda_Chen
初級會員
初級會員

文章總數 : 52
年齡 : 55
來自 : 台北
職業 : 營造業
愛好 : 旅遊、運動、音樂
個性 : 喜歡認識朋友
使用年資 : 17
使用版本 : 2006
積分 : 2
經驗值 : 5372
威望值 : 30
注冊日期 : 2010-07-12
串連貼紙成功 女 處女座 猴

回頂端 向下

[分享]  圖塊置換程式 Empty 回復: [分享] 圖塊置換程式

發表 由 陳彥楨 2024-05-15, 16:50

我想請教一個問題,為什麼我只要打BBB使用這個功能,我的物件鎖點功能就會關閉,我物件鎖點OSMODE設4159,每次打快捷鍵BBB物件鎖點就會關閉,設定值會變成0,有高手知道是什麼原因嗎?
陳彥楨
陳彥楨
專屬會員
專屬會員

文章總數 : 23
年齡 : 38
來自 : 台灣桃園
職業 : 技術員
愛好 : 聽歌
個性 : 不做作
使用年資 : 3年
使用版本 : 2023
經驗值 : 226
威望值 : 0
注冊日期 : 2024-03-28
男 巨蟹座 虎

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]  圖塊置換程式 Aoe1-113[分享]  圖塊置換程式 Ioaoe110[分享]  圖塊置換程式 2020-310[分享]  圖塊置換程式 Oiu15010[分享]  圖塊置換程式 2020-211[分享]  圖塊置換程式 Ia15010[分享]  圖塊置換程式 Aizyao10[分享]  圖塊置換程式 Uos15010[分享]  圖塊置換程式 BPl3tjj[分享]  圖塊置換程式 Ziao1510
[分享]  圖塊置換程式 Aoe15010[分享]  圖塊置換程式 Oo-2-110[分享]  圖塊置換程式 Zuoiy_10[分享]  圖塊置換程式 Aizyao11[分享]  圖塊置換程式 Iyb_1510[分享]  圖塊置換程式 Aoe1-112[分享]  圖塊置換程式 Uos15011[分享]  圖塊置換程式 Aoe2da10[分享]  圖塊置換程式 Aoe2da11[分享]  圖塊置換程式 Aoe10