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.
SCR文件脚本的制定 Ioaoe110SCR文件脚本的制定 2020-310SCR文件脚本的制定 Oiu15010SCR文件脚本的制定 2020-211SCR文件脚本的制定 Ia15010SCR文件脚本的制定 Aizyao10SCR文件脚本的制定 Uos15010SCR文件脚本的制定 BPl3tjjSCR文件脚本的制定 Ziao1510
SCR文件脚本的制定 Oo-2-110SCR文件脚本的制定 Zuoiy_10SCR文件脚本的制定 Aizyao11SCR文件脚本的制定 Iyb_1510SCR文件脚本的制定 Aoe1-111SCR文件脚本的制定 Uos15011SCR文件脚本的制定 Aoe2da10SCR文件脚本的制定 Aoe2da11SCR文件脚本的制定 Aoe10

SCR文件脚本的制定

2 posters

向下

SCR文件脚本的制定 Empty SCR文件脚本的制定

發表 由 aromild 2021-03-17, 11:00

大量图纸,配置转换到模型,我自己写了一个脚本,但是无法执行,哪里有问题了呢?

OPEN D:\1\タンク001.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク001_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク002.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク002_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク003.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク003_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク004.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク004_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク005.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク005_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク006.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク006_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク007.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク007_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク008.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク008_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク009.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク009_Rev1.dwg FILEDIA 1 QSAVE CLOSE
OPEN D:\1\タンク010.dwg FILEDIA 0 EXPORTLAYOUT D:\1\タンク010_Rev1.dwg FILEDIA 1 QSAVE CLOSE


请指教。
aromild
aromild
一般會員
一般會員

文章總數 : 39
年齡 : 51
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 1787
威望值 : 6
注冊日期 : 2020-01-09
男 金牛座 鼠

回頂端 向下

SCR文件脚本的制定 Empty 網路上找到的

發表 由 shackle_2005 2021-03-18, 20:29

會自動產生一個 lxa.scr 參考一下

model
layout set
Layout1
exportlayout
"D:\Autocad_VBA\Layouts\Layout1"
layout set
Layout2
exportlayout
"D:\Autocad_VBA\Layouts\Layout2"
model

Autolisp 程式原碼

;;;   export all Layouts  
(prompt "\n Written by: Amir Hossein Sattarian ")
(prompt "(+98)9126049289 ahsattarian2@gmail.com ")
(prompt "\n Type : LXA ")
(defun c:lxa ()
 (setq layouts (layoutlist))
 (setq layouts (acad_strlsort layouts))
 (setq ad (getvar "dwgprefix"))
 (setq layfol (strcat ad "Layouts"))
 (vl-mkdir layfol)
 (setq f (strcat layfol "\\lxa.scr"))
 (setq ff (open f "w"))
 (write-line "model" ff)
 (foreach layout layouts
   (write-line "layout set" ff)
   (write-line layout ff)
   (setq adname (strcat (chr 34) layfol "\\" layout (chr 34)))
   (write-line "exportlayout" ff)
   (write-line adname ff)
 )
 (write-line "model" ff)
 (close ff)
 (command "script" f)
)
附件
SCR文件脚本的制定 Attachment
LXA.zip 您無權下載這里的附件。(1 Kb) 下載 3 次

____________________________________________________________________________________
SCR文件脚本的制定 Ioaoe110 SCR文件脚本的制定 Zuoiy_10 SCR文件脚本的制定 2020-211 SCR文件脚本的制定 Aizyao11 SCR文件脚本的制定 Iyb_1510
SCR文件脚本的制定 Aizyao10 SCR文件脚本的制定 BPl3tjj.png SCR文件脚本的制定 Ziao1510 SCR文件脚本的制定 Oo-2-110 SCR文件脚本的制定 Oooa_110
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 232
年齡 : 52
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 6513
威望值 : 355
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
SCR文件脚本的制定 Ioaoe110SCR文件脚本的制定 2020-310SCR文件脚本的制定 Oiu15010SCR文件脚本的制定 2020-211SCR文件脚本的制定 Ia15010SCR文件脚本的制定 Aizyao10SCR文件脚本的制定 Uos15010SCR文件脚本的制定 BPl3tjjSCR文件脚本的制定 Ziao1510
SCR文件脚本的制定 Oo-2-110SCR文件脚本的制定 Zuoiy_10SCR文件脚本的制定 Aizyao11SCR文件脚本的制定 Iyb_1510SCR文件脚本的制定 Aoe1-111SCR文件脚本的制定 Uos15011SCR文件脚本的制定 Aoe2da10SCR文件脚本的制定 Aoe2da11SCR文件脚本的制定 Aoe10