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.
[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Io15011 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 2020-310 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Oiu15010 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 2020-211 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Oo-2-110 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 BPl3tjj

[討論]分享常用鋼鐵及螺絲動態圖塊insert

+310
anais99
Foxcoin
LUCAS_LAI
Conquerable
happyfat
ajuge.tw
JohnnyTsungChen
sniper3252
hungyuchuen
minghsiang
hjh15321
2008010
stussytsao
gorden
berton19941010
白金之星
taan006119
Tiger&蘋果爸
sarah001231
linenhsu
peggy731
jack914054
CT007
gas12
badsnooy
ylliw
pascalyang
fuwei
somepig
Giovanni chang
kai545
146jason
tavin
鬼太鼓
tunalai
alou0323
awinston
rehkaargov
andytu622c
x86081x
Ting_Wu
as920029as
kimson1028
林先好
seng
wingaxis2
李泊彥
wayne830610
LOVESICK630
pigbloodcake
C.C.CHIEN
wolf
ako228
linweilung
a6666262000
friend_730118
ling1027
howard313
etty31
cafcc3340
cy888168168
cats1225
keybo
rickyyang
leolch
yongwen
maxorkish
akioharuno
MASAKOWU
hycsyh
archarch
雨妃妃
JerryJr
vl7120
jassica123
vvkent
David advisor
x586042
alexwhat
anson123
changcjj
ai1914
bjackwang
mclntosh275
kimi27
f5brock
c1140c33
fun7799
Tsar
arch1013
emma820
akl49
oopsyyyyy
蜜柑喵喵
evelynlin1995
onon20
a_chun
帥到貓飛天
sean fu
brain1224
jeng71117
igo30412
aliceyang72
ken2205
王致中
mchung1013
brendan0304
JA
韋利
key0420
dean0911
f8690019
ya67898969
eanson11
nb123698745
cawang
BryanC
payuer
bribri
jefferobert
blacker112
juckautocad
view
efjenliow
shcichen
OrionChen
jagdchen
dd0916
chengshunyi
Monkey.D
jbmmgoii
kfc5668
nature4791
kim910100
alexkqk
YangTL
saralee
MICHELLE.LO
blackdesignen
阿權
PUPU-CTO
HEMOS
shuhsuam
ltea57055
treat7105
denniskc
zun-cai
lxg3443
vision25
月蜻蜓
nicea03265
janc665
ssbf1985
sam87187898
Rocky33321
MK WU
naruto018
oisackimo
pwcg2014
WATSON513
ming1789
jackiehover
Joan-Yeh
明月心
93s95
ykva8983
kai1397
hsaio
gn00713242
brawnt
Shiung
harryt006
a_tintin2001
不懂
KYO123411
hueigo
hsl65097
yoyomeen
adslwang
hung
kaihung
minami2588
jessehdj
t8641253
陳明田
ryce
Cobe327
d63228
學習小孩
闕榮宗
pedromax
tan866
jenglung15
airboyee
ronhwa0228
Mydro
以西杰
chihyan
Atsai
jae.angel
jenniferaptg
jerrytony
lmt112233
flossie
whiteanne77
sky_region
悟劍聲
pchen
brucecad
wlijan
foschia
豈几
小蔣
crihy
WRH
money210325
d00477
ctest
godesign
chu2tw6
厚速共
qbbsd0073
lc0309
engineer
koko789
tsai2707
sabina0827
kyminshing
幻世戀情
kimtime
yu0678
my999god
roye784512
yymg1973
xiaolinvi
leoneriol
poiuyy
qaz6605
cobil
rockao
cyrenaic
jk0924
a9886349
ming71
lin62421
ching1791
許大熊
kytony
alyoou1
first_love
luisleon
明~
DARDAR
BC27
顏佰萬
phillipting66
et1029et
DANDYYEUNG
chiu6013
JYHBIN
chris-hsu
inerwin
bozraz
Beck
spwlcs
wiiboy
江培元
prettycat
shiehung
dearlucy28
sanshing
worthdream
kshuangt
ok462648
tony551688
m4d93gj94
s369
dk3788
ming57
wang777
曉琪
shinelover
yz05366
ruru60
金天
zhangcan0516
judyyai
thomas528tw
timmymike
dawellong
blyp
DANNY591
ycmlee
sky0626
luswlife
li60830
alan03265
haohao
小薇
jswang
twingo18
ddr3463
jackylsls
pu016573
ayumi
guareun
kingdot
randytsay
minture
314 posters

13頁(共14頁) 上一頁  1 ... 8 ... 12, 13, 14  下一步

向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 minture 2015-10-14, 11:55

主題回顧 :

小弟由於工作需求自製
提供給有需要的人

使用說明:
1.解壓縮後將Autolisp及Lisp資料夾放到D碟中
2.開啟CAD 設定搜尋支援檔可讀取LISP資料夾
3.Autolisp資料夾路徑必須為"D:\\AutoLisp\\sample.dwg"(路徑檔名均為絕對 不可更改)
4.sample.dwg為動態圖塊存放用檔案
5.support應用程式內含以下:
 (1) steel
      快速插入常用鋼鐵
[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 2h6yq04
 (2) screw
      快速插入常用螺絲 (圓頭平頭寫反了,請大家看圖片吧!!)
[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 21jpq9k

6.CAD指令欄中鍵入steel 或 screw 會彈出如上圖所示的畫面 即可選擇要插入的圖塊
7.插入後自行點擊可見性修改為須要的尺寸

▼載點如下(*回覆可見*):


104.10.19
附上LISP原始檔案
之所以做成VLX檔起因是因為公司同事大部分也看不懂這些東西 也不會有修改上的需求
且另一方面為了方便新增程式或更新程式!
但因平時工作繁忙僅利用閒暇時間抽空撰寫,故內容部分可能稍嫌雜亂還請見諒
歡迎有需求的自行下載修改

也祝大家工作順利!! 心想事成!!

特別感謝:
關於""複製非打開圖檔的特定圖塊至當前圖面""這段程式碼
是在本論壇中向"明~"大討教而來

LISP及DCL檔案下載(回覆可見)



Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻


minture 在 2015-10-19, 11:57 作了第 4 次修改
minture
minture
初級會員
初級會員

文章總數 : 34
年齡 : 35
來自 : 新北市
職業 : excel autocad
愛好 : 宅在家裡
個性 : 隨遇而安
使用年資 : 10
使用版本 : autocad2010
積分 : 1
經驗值 : 2536
威望值 : 87
注冊日期 : 2015-07-16
男 水瓶座 牛

asdmovie456, boy92538, 30167, charley410, liwangje, ylliw, 林逸修 and like this post

回頂端 向下


[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 感謝版主的製作

發表 由 CT007 2020-12-03, 10:01

讓CAD變得更簡單快速
CT007
CT007
一般會員
一般會員

文章總數 : 4
年齡 : 25
來自 : 彰化
職業 : 待業
愛好 : 學習繪圖
個性 : 傲慢是原罪
使用年資 : 1~2年
使用版本 : 2014
經驗值 : 311
威望值 : 0
注冊日期 : 2020-12-01
男 水瓶座 豬

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 jack914054 2020-12-07, 13:24

感謝 分享 工作上剛好有需求
jack914054
jack914054
一般會員
一般會員

文章總數 : 3
年齡 : 27
來自 : 新北
職業 : 工程師
愛好 :
個性 : 好相處
使用年資 : 8年
使用版本 : 2015
經驗值 : 303
威望值 : 0
注冊日期 : 2020-12-04
男 天秤座 雞

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 peggy731 2020-12-10, 17:50

感謝您的分享
畫大樣祥圖真的很需要
謝謝你
peggy731
peggy731
一般會員
一般會員

文章總數 : 10
年齡 : 35
來自 : 台北市
職業 : 建築
愛好 : 聽歌
個性 : 活潑
使用年資 : 5
使用版本 : 2018,2016
經驗值 : 702
威望值 : 30
注冊日期 : 2019-12-24
女 獅子座 虎

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 linenhsu 2020-12-23, 11:08

感謝分享
linenhsu
linenhsu
一般會員
一般會員

文章總數 : 9
年齡 : 41
來自 : 新北市泰山區
職業 : 土木工程
愛好 : 隨意設計
個性 : 隨和
使用年資 : 2年
使用版本 : 2016
經驗值 : 1688
威望值 : 0
注冊日期 : 2017-03-23
男 雙魚座 猴

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 sarah001231 2020-12-30, 12:28

為了這個圖特別研究論壇怎麼回覆!
樓主一生平安!
sarah001231
sarah001231
一般會員
一般會員

文章總數 : 8
年齡 : 30
來自 : 新北市
職業 : 工程繪圖
愛好 : 看書
個性 : 開朗
使用年資 : 3
使用版本 : 2018
經驗值 : 452
威望值 : 0
注冊日期 : 2020-07-27
女 巨蟹座 羊

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 Tiger&蘋果爸 2020-12-30, 16:50

sarah001231 寫到:為了這個圖特別研究論壇怎麼回覆!
樓主一生平安!
你的努力特別研究不會白費,論壇資源豐富喔~
害羞

____________________________________________________________________________________
[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Oo-2-110 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Ia15010 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Ziao1510 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19819
年齡 : 45
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 79725
威望值 : 15374
注冊日期 : 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

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 taan006119 2021-01-08, 10:26

剛好工作需要,非常感謝提供!!
taan006119
taan006119
一般會員
一般會員

文章總數 : 3
年齡 : 35
來自 : 新北
職業 : 帷幕
愛好 : 音樂
個性 : 固執
使用年資 : 10年
使用版本 : 2020
經驗值 : 389
威望值 : 0
注冊日期 : 2020-09-09
男 摩羯座 牛

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 白金之星 2021-01-14, 16:18

太厲害了 感謝分享
avatar
白金之星
初級會員
初級會員

文章總數 : 243
年齡 : 44
來自 : 台北
職業 : 工頭
愛好 : AutoCad
個性 : 樂觀
使用年資 : 7
使用版本 : 2008
積分 : 4
經驗值 : 4917
威望值 : 3
未回應主題 : 您有一筆未回應
注冊日期 : 2008-09-22
男 白羊座 蛇

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 berton19941010 2021-01-28, 19:51

謝謝前輩的分享
berton19941010
berton19941010
一般會員
一般會員

文章總數 : 2
年齡 : 26
來自 : 新北市
職業 : 學生
愛好 : 打球
個性 : 活潑
使用年資 : 新手
使用版本 : 2020
經驗值 : 356
威望值 : 0
注冊日期 : 2020-10-07
男 天秤座 狗

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 gorden 2021-02-09, 22:40

太厲害了 對於初學者的我 真是大有幫助 感謝
gorden
gorden
一般會員
一般會員

文章總數 : 5
年齡 : 52
來自 : 新北市
職業 : 電機
愛好 : 電腦
個性 : 隨和
使用年資 : 12
使用版本 : 2010
經驗值 : 2209
威望值 : 0
注冊日期 : 2015-09-22
男 射手座 猴

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 stussytsao 2021-03-11, 09:19

正好在尋找螺絲的圖 謝謝無私分享
stussytsao
stussytsao
一般會員
一般會員

文章總數 : 4
年齡 : 41
來自 : 台北
職業 : 工程
愛好 : 畫圖
個性 : 開朗
使用年資 : 12
使用版本 : 2009
經驗值 : 210
威望值 : 0
注冊日期 : 2021-03-10
男 天秤座 羊

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 2008010 2021-03-11, 15:58

謝謝您的分享,下載學習 害羞
2008010
2008010
一般會員
一般會員

文章總數 : 15
年齡 : 27
來自 : 台中
職業 : 電子
愛好 : 室內活動
個性 : 內向
使用年資 : 3
使用版本 : 2017
經驗值 : 326
威望值 : 12
注冊日期 : 2021-01-20
男 金牛座 狗

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 hjh15321 2021-03-22, 21:06

感謝分享
工作相關圖塊剛好可用看看
hjh15321
hjh15321
一般會員
一般會員

文章總數 : 2
年齡 : 24
來自 : 桃園
職業 : 待業
愛好 : 開車
個性 : 開朗
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 198
威望值 : 0
注冊日期 : 2021-03-14
男 雙魚座 牛

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 minghsiang 2021-03-23, 12:48

感恩熱心並且無私分享~
minghsiang
minghsiang
初級會員
初級會員

文章總數 : 63
年齡 : 34
來自 : 新北市
職業 : 金屬工程
愛好 : 打球
個性 : 外向
使用年資 : 2
使用版本 : 2010
積分 : 1
經驗值 : 3026
威望值 : 24
注冊日期 : 2014-02-24
2D基礎函授 2D進階函授 3D基礎函授 經典問與答讀者 藍鵲650號
男 雙魚座 兔

http://fffff0313@yahoo.com.tw

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 hungyuchuen 2021-03-24, 14:23

感謝分享,工作非常需要~
hungyuchuen
hungyuchuen
一般會員
一般會員

文章總數 : 2
年齡 : 36
來自 : 台南市
職業 : 建築
愛好 : 戶外活動
個性 : 樂天
使用年資 : 18
使用版本 : 2017
經驗值 : 190
威望值 : 0
注冊日期 : 2021-03-22
女 摩羯座 鼠

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 sniper3252 2021-03-24, 15:06

太棒了!! 找這東西很久了~~謝謝大大分享
sniper3252
sniper3252
一般會員
一般會員

文章總數 : 34
年齡 : 36
來自 : 苗栗
職業 : 工程公司
愛好 : 研究
個性 : 開朗
使用年資 : 7年
使用版本 : 2014
經驗值 : 3206
威望值 : 12
注冊日期 : 2013-05-15
男 白羊座 牛

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 JohnnyTsungChen 2021-03-31, 09:18

謝謝分享,搜尋相關資料看到,太棒了
JohnnyTsungChen
JohnnyTsungChen
一般會員
一般會員

文章總數 : 6
年齡 : 32
來自 : 台灣台中
職業 : 營造業
愛好 : 繪圖
個性 : 極度厭世
使用年資 : 全天
使用版本 : 2018
經驗值 : 638
威望值 : 0
注冊日期 : 2020-01-19
男 處女座 蛇

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 ajuge.tw 2021-04-30, 11:27

感謝各位先進分享, 感謝再感謝
ajuge.tw
ajuge.tw
一般會員
一般會員

文章總數 : 2
年齡 : 43
來自 : 臺中市
職業 : 工程師
愛好 : 設計
個性 : 發呆
使用年資 : 5
使用版本 : 2010
經驗值 : 2113
威望值 : 0
注冊日期 : 2015-12-16
男 白羊座 馬

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 happyfat 2021-05-14, 14:56

感謝分享,剛好廠商有叫我畫羅斯的圖塊
happyfat
happyfat
初級會員
初級會員

文章總數 : 35
年齡 : 35
來自 : 台北
職業 : 待業
愛好 : 聽音樂
個性 : 慵懶
使用年資 : 新手初學
使用版本 : 2011
積分 : 1
經驗值 : 3338
威望值 : 12
注冊日期 : 2013-01-10
經典問與答讀者 藍鵲635號
2015聚會勳章 男 處女座 虎

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 Conquerable 2021-05-27, 09:58

感謝分享,學習學習LISP寫法.


---------------------------------
想請問一下
;;公用函數7 (copyblock)
;;用 途:複製非打開圖檔的特定圖塊至當前圖面

這個有辦法修改成複製非打開圖檔的"所有圖元"至當前圖面嗎?
Conquerable
Conquerable
初級會員
初級會員

文章總數 : 47
年齡 : 31
來自 : 新北市板橋區
職業 : 繪圖員
愛好 : 繪圖
個性 : 好動
使用年資 : 12
使用版本 : 2000
積分 : 1
經驗值 : 3629
威望值 : 30
注冊日期 : 2012-07-09
男 雙魚座 馬

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 LUCAS_LAI 2021-05-27, 13:21

有10年沒有研究lisp了,下載來看看, 謝謝!

Conquerable 寫到:感謝分享,學習學習LISP寫法.


---------------------------------
想請問一下
;;公用函數7  (copyblock)
;;用    途:複製非打開圖檔的特定圖塊至當前圖面

這個有辦法修改成複製非打開圖檔的"所有圖元"至當前圖面嗎?

貼個主程序,你可改改
代碼:

;; ObjectDBX Example, by Lee McDonnell
;; Credit to Tony Tanzillo, Tim Willey

(defun C:ODBX (/ *ERROR* *ACAD SHELL FDIR DIR DWLST DBX RSLTLIST)
  (vl-load-com)

  ;; Error Handler

  (defun *ERROR* (E)
    (OBJREL (list SHELL DBX *ACAD))
    (if (not (wcmatch (strcase E) "*BREAK,*CANCEL*,*EXIT*"))
      (princ (strcat "\n<< Error: " E " >>"))
    )
    (princ)
  )

  ;; Get Directory

  (setq *ACAD (vlax-get-acad-object)
 SHELL (vla-getinterfaceobject *ACAD "Shell.Application")
 FDIR  (vlax-invoke-method
 SHELL
 'BROWSEFORFOLDER
 (vla-get-hwnd *ACAD)
 "Select Directory: "
 80
      )
  )
  (and (eq (type SHELL) 'VLA-OBJECT)
       (not (vlax-object-released-p SHELL))
       (vl-catch-all-apply 'vlax-release-object (list SHELL))
  )
  (if FDIR
    (progn
      (setq DIR
     (vlax-get-property
       (vlax-get-property FDIR 'SELF)
       'PATH
     )
      )
      (if (not (eq "\\" (substr DIR (strlen DIR))))
 (setq DIR (strcat DIR "\\"))
      )
      (princ "\nProcessing...")

      ;; Iterate Drawings

      (foreach DWG (setq DWLST
  (mapcar
    (function
      (lambda (X)
 (strcat DIR X)
      )
    )
    (vl-directory-files DIR "*.dwg" 1)
  )
   )

 (vlax-for DOC (vla-get-documents *ACAD)
  (and (eq (strcase (vla-get-fullname DOC)) (strcase DWG))
       (setq DBX DOC)
  )
 )

 (and (not DBX)
     (setq DBX
    (vlax-create-object
      (if (< (setq ACVER (atoi (getvar "ACADVER"))) 16)
 "ObjectDBX.AxDbDocument"
 (strcat "ObjectDBX.AxDbDocument." (itoa ACVER))
      )
    )
     )
 )

 (if (not (vl-catch-all-error-p
   (vl-catch-all-apply 'vla-open (list DBX DWG))
 )
    )
  (progn

    ;; T.Willey
            ;; 別人寫了開頭 FUNC 只好自已寫
    (setq RSLTLIST
   (cons
     (cons DWG
   (FUNC DBX)
     )
     RSLTLIST
   )
    )

    ;; ---------

  )
 )

 (princ (chr 46))
      )

      ;; Ending Messages

      (princ (strcat "\n<< "
     (rtos (length DWLST) 2 0)
     " Drawings Processed >>\n "
     )
      )
    )
    (princ "*Cancel*")
  )

  ;; Garbage Collection

  (gc)
  (OBJREL (list SHELL DBX *ACAD))
  (reverse RSLTLIST)
)

;; Release Objects ~ Requires List of Variables

(defun OBJREL (LST)
  (mapcar
    (function
      (lambda (X)
 (if (and (eq (type X) 'VLA-OBJECT)
 (not (vlax-object-released-p X))
    )
  (vl-catch-all-apply
    'vlax-release-object
    (list X)
  )
 )
      )
    )
    LST
  )
)

;;對未開圖檔要做甚麼??
;;By LUCAS_LAI
;;想做甚麼??-->把未打開圖檔中
;;                   圖塊/圖層/字型/......copy到目前圖檔
;;Sorry!只列出圖檔中的圖塊名稱
;;https://www.autocad-tw.com/t19440-topic
(defun FUNC (DBX / BLOCKS_NAME_LIST BLK DBXBLOCKS_LIST)
  (setq DBXBLOCKS_LIST (vla-get-blocks DBX))
  (vlax-for BLK DBXBLOCKS_LIST
    (setq BLOCKS_NAME_LIST
   (append BLOCKS_NAME_LIST (list (vla-get-name BLK)))
    )
  )
)
(princ)

https://drive.google.com/file/d/1qKLtEE_4NGVxx8PtE4uKP9fovNNa9fCQ/view?usp=sharing
ObjectDBX Example.LSP
LUCAS_LAI
LUCAS_LAI
一般會員
一般會員

文章總數 : 33
年齡 : 56
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 382
威望值 : 79
注冊日期 : 2021-05-27
男 摩羯座 龍

http://lucas-lai.ys168.com/

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 Foxcoin 2021-06-10, 14:07

感謝分享如此實用的資源 感動
Foxcoin
Foxcoin
一般會員
一般會員

文章總數 : 14
年齡 : 36
來自 : 桃園縣桃園市
職業 : 機械設計
愛好 : ACG 電腦軟硬體
個性 : 存在感低
使用年資 : 1年
使用版本 : 2012,2014
經驗值 : 2807
威望值 : 0
注冊日期 : 2014-03-06
男 水瓶座 鼠

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 anais99 2021-06-15, 17:39

感謝分享,超級需要的~
anais99
anais99
初級會員
初級會員

文章總數 : 104
年齡 : 43
來自 : 台北縣
職業 : 模具製圖
愛好 : 騎自行車
個性 : 開朗
使用年資 : 12
使用版本 : 2010
積分 : 4
經驗值 : 4511
威望值 : 12
注冊日期 : 2010-06-14
串連貼紙成功 女 雙子座 馬

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 QSugar 2021-06-16, 10:38

太感謝嚕~~
QSugar
QSugar
一般會員
一般會員

文章總數 : 7
年齡 : 42
來自 : 高雄
職業 : 設計部專員
愛好 : 看電影
個性 : 內向
使用年資 : 5
使用版本 : 2013
經驗值 : 371
威望值 : 0
注冊日期 : 2020-10-15
女 獅子座 羊

回頂端 向下

[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Empty 回復: [討論]分享常用鋼鐵及螺絲動態圖塊insert

發表 由 chuncheng 2021-06-23, 23:49

感謝分享
chuncheng
chuncheng
一般會員
一般會員

文章總數 : 34
年齡 : 32
來自 : 新北市
職業 : 機電工程業
愛好 : 研究電腦
個性 : 內向
使用年資 : 3年
使用版本 : 2014
經驗值 : 1525
威望值 : 0
注冊日期 : 2018-01-04
男 雙魚座 蛇

回頂端 向下

13頁(共14頁) 上一頁  1 ... 8 ... 12, 13, 14  下一步

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Uos15010 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 BPl3tjj [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Ziao1510 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Oo-2-110 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 Oooo-110 [討論]分享常用鋼鐵及螺絲動態圖塊insert - 頁 13 2020-211