QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3742|回复: 6
收起左侧

[已解决] AUTOCAD中脚本文件是怎么生成的?

[复制链接]
发表于 2010-12-2 15:16:29 | 显示全部楼层 |阅读模式 来自: 中国北京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位大侠,谁有关于AUTOCAD scr脚本文件的资料,scr文件是怎样生成的,我急需了解这方面的知识,谁能帮帮我,谢谢了
发表于 2010-12-2 16:11:44 | 显示全部楼层 来自: 中国辽宁鞍山
记事本 自己编辑     里面是CAD的命令
发表于 2010-12-2 16:12:54 | 显示全部楼层 来自: 中国辽宁鞍山
以下是我转的
+ J& v  Q  f; o  R
$ f) v' S$ Z6 G7 D# ASCR是CAD的脚本文件,属于文本文件,这就可以利用批处理来进行编辑。SCR是由一系列AutoCAD命令构成的文本文件.SCR类似于操作系统中的的批处理命令。通过执行脚本,可以一次完成一系列任务,运行SCR脚本可以反复执行一个任务,可提高绘图的速度. 如下例子,是我写的一个南方CASS符号制作中,SCR脚本与系统批处理的综合利用,达到最终目的. set /p lay=请定义这个符号的所在层(如LDW):
# ^5 `/ Q, X& x: A3 _+ hif '%lay%'=='' goto error1
1 s+ s  L* F8 |% n$ b5 ^" O. C这二句是让用户输入图层名,并判断如果没有输入任务文字就跳转到error1. u3 s# x5 ?! _- z9 w- t9 w: A2 N; U% Y
set /p DWG1=请输入绘好符号的CAD文件(如图块名为100.DWG请输入100):4 ~( C# }4 d% g5 e% F  N) f7 R
if not exist "%cd%\%dwg1%.dwg" goto error4
+ S& j2 _& n+ j- M# v" ]这二句是让用户输入绘好的DWG文件名,如果当前不存在这个文件,就跳转到error4
! N- S3 R9 d9 necho open>cass.scr# q8 d) @9 H: y9 g5 h& T
把OPEN写入到CASS.SCR这个文件中,在后面CAD执行这个脚本的时候,第一句就是执行OPEN这个命令,打开一个文件
- L0 S, \9 ?* A! _' i6 U* uecho ^"%cd%\%dwg1%.dwg^">>cass.scr" x7 E* z) x- x, O& y
把本程序当前目录下的,用户输入的DWG文件名,写入到CASS.SCR文件中,并在OPEN这个命令后面,实际也就把路径写入到这里了
% K6 T  V  N  W) K2 X! _echo zoom>>cass.scr, }/ }0 O6 @" R1 I- d! ~6 D( B
把ZOOM写入到CASS.SCR,意思是在CAD中执行ZOOM这个命令' \3 V% l# d* e( ]3 h
echo e>>cass.scr7 r2 o9 P7 N- r3 Q: y2 _9 n9 c
把E写入到CASS.SCR.在执行ZOOM后,接着执行E,意思是全范围显示9 M+ i3 d3 D: a- A1 L
echo mslide>>cass.scr
7 y! n+ c9 Z, L. u! i4 A把MSLIDE写入到CASS.SCR中,意思是执行幻灯片制作命令。+ K: \! y* C% p5 P) R
echo %dwg1%^.sld>>cass.scr* E1 `( B9 Y/ s/ M- ^2 w2 v
把用户输入的DWG文件,在后面加个.SLD输入到CASS.SCR中,意思是把执行后的幻灯片进行保存
# h* M4 ]) P4 l8 P9 f! _* H- p. Becho qsave>>cass.scr
+ o& D- `, S0 ^3 K把QSAVE写入到CASS中,意思是保存幻灯片后,再保存当前的DWG文件.
5 a8 \  K% ?  j. J; o+ A& I3 r) n本来是想在这里写入EXIT的,但不知为什么,CAD却无法在SCR脚本中执行EXIT这个命令.好了,看看最终的SCR文件如下:
# e: v8 m1 O% eopen
6 g( L" j  Q! A9 [/ ~8 d, _& G) X"c:\casstemp\g000.dwg"0 p; A0 I+ Z! X6 n; `2 C- P5 m
zoom& `7 }$ W& |: A9 w8 [0 j
e
6 S+ o: O, O( q. V  \" }mslide
! q* w- u2 T% F: g7 Yg000.sld
9 L) M/ C% F3 J! @' ?' A3 Eqsave现在SCR脚本有了,如何执行呢,请看下面的批处理代码:3 b# l# C7 G0 X5 o' \% S; {
for %%i in (c d e f g) do (
: x" N; W- ~2 r" \$ C2 t    for /f "delims=" %%j in ('dir /a-d /b /s "%%i:\program files"^|findstr /i /c:"acad.exe"') do echo %%j>cad.txt
( f/ P* Q2 o* [9 X8 u)
; a$ d& s# |- z* g4 w# S9 N& y在C.D.E.F.G这几个盘查找CAD的安装目录,并把路径写入到CAD.TXT这个文本中.本来想写全盘查找的,但这个太费时,一般很少有人安装CAD到CDEFG之外的其他盘。 set /p DWG2=请再次输入绘好符号的CAD文件名(如图块名为100.DWG请输入100):
) ]7 B& V+ p9 z6 R8 {if not exist %dwg2%.dwg goto error8 if not "%~1"=="h" (
: \. V0 I% f$ A# o+ J4 l   start "" "%~0" h- x7 z0 q5 |3 N# C0 C# J( C% e
   for /f "delims=?" %%g in ('type cad.txt') do ("%%g" /b "%cd%\cass"&exit)  ^6 I+ j: Y$ h
)) Z4 n/ S  C/ N2 T
在上面的代码中,读取CAD.TXT中的CAD安装路径,并在批处理中启动他,/b "%cd%\cass"' _8 F6 E' @  v  p' c# R6 w# l# P
指的是启动CAD后,执行当前程序路径下CASS.SCR这个脚本.可以看成是这样:
9 w+ j! f1 R7 b6 C0 j" m"d:\program files\Autodesk Map 2004\acad.exe" /B "C:\casstemp\CASS"& R9 {- J, P' g. h
启动D盘安装的CAD后,并执行C:\casstemp\CASS.SCR echo 正在制作,约30秒.请稍候...
% g0 h; F% X1 T) x4 x3 M& }( ?ping -n 30 127.1>nul% `1 @( h4 V( p9 x- [
这里延时30秒,是希望CAD能在30秒内,把CASS.SCR里的命令依次执行完后接着执行下一条命令。如果机器配置够强劲,可以改为10,如果不能在30秒内启动CAD并执行完CASS.SCR里的脚本命令,可改为更大的数字. 初步接触CAD的脚本,只能理解这么多,正在学习中。。。
 楼主| 发表于 2010-12-2 16:19:19 | 显示全部楼层 来自: 中国北京
谢谢大家,我试试看,呵呵
 楼主| 发表于 2010-12-2 16:28:45 | 显示全部楼层 来自: 中国北京
各位大侠,还有一个问题,Excel表格中的数据能通过脚本文件导入CAD生成曲线吗?如果能的话,具体该怎么做呢?
发表于 2010-12-2 20:11:35 | 显示全部楼层 来自: 中国广东汕头
各位大侠,还有一个问题,Excel表格中的数据能通过脚本文件导入CAD生成曲线吗?如果能的话,具体该怎么做呢?5 N6 U8 T3 l; k6 ^9 @( {
sdytdzd 发表于 2010-12-2 16:28 http://www.3dportal.cn/discuz/images/common/back.gif

, r5 q" J9 m3 R) W* ]! G! @  A
" a* _: P3 N3 ~8 }Excel里面有数据在画曲线时也可以直接粘贴到命令行里面生成曲线。,,,而通过脚本还没研究过,不过答案一定是可以的。
 楼主| 发表于 2010-12-3 08:10:36 | 显示全部楼层 来自: 中国北京
谢谢大侠,我先自己摸摸看,呵呵
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表