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文件脚本的制定 Io15011 SCR文件脚本的制定 2020-310 SCR文件脚本的制定 Oiu15010 SCR文件脚本的制定 2020-211 SCR文件脚本的制定 Oo-2-110 SCR文件脚本的制定 BPl3tjj

SCR文件脚本的制定

向下

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
新手上路
新手上路

文章總數 : 4
年齡 : 49
來自 : 日本
職業 : 設計
愛好 : CAD
個性 : GOOD
使用年資 : 10
使用版本 : 2020
經驗值 : 524
威望值 : 0
注冊日期 : 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) 下載 0 次
shackle_2005
shackle_2005
初級會員
初級會員

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
SCR文件脚本的制定 Uos15010 SCR文件脚本的制定 BPl3tjj SCR文件脚本的制定 Ziao1510 SCR文件脚本的制定 Oo-2-110 SCR文件脚本的制定 Oooo-110 SCR文件脚本的制定 2020-211