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

[分享] 圖塊置換程式

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

[分享] 圖塊置換程式

發表 由 salad123 于 2011-10-03, 16: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))
avatar
salad123
一般會員
一般會員

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

回頂端 向下

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

發表 由 lingo_st 于 2013-04-14, 18:17

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

感謝無私分享
avatar
lingo_st
中級會員
中級會員

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

回頂端 向下

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

發表 由 salad123 于 2013-04-15, 16:20

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

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

回頂端 向下

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

發表 由 yenbl 于 2013-04-24, 09:45

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

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

回頂端 向下

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

發表 由 djh1006 于 2013-04-24, 15:36

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

發表 由 jackiehover 于 2016-10-14, 12:29

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

感謝分享
avatar
jackiehover
初級會員
初級會員

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

回頂端 向下

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


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