[分享]：【晴晴学堂】CAD脚本语言SCR

jianqiang21c

:5 :5
在VBA 、LISP....等众多重炮的遮掩下，很少人会注意CAD下还有个不起眼的小不点SCR哦：）
SCR全名字叫SCRIPT中国名叫脚本，嘻嘻，其功能相当与DOS里的批处理，脚本文件是ASCII码文件，可以用任何文本编辑器编辑
现在我们打开自己的记事本
如果我们想画一条线，可以在记事本中输入：
LINE 200,60 300,78
然后保存，把TXT后缀改成SCR就GOD了：）
其实要记住的就一点哦，就是里面的空格就代表命令中的回车，在一行结束出即使没有空格，系统也自动在行尾加上一个回车命令
控制SCR的有一个命令叫DELAY，DELAY是控制SCR延迟的时间，单位为毫秒也就是说1000＝1秒哦，在连续的命令中加入DELAY 1000就可以让前面的命令延迟一秒，再执行下面的命令
*****************************************************************
如何调用SCR脚本命令呢？非常简单，直接在命令行输入SCRIPT或者简写字母SCR就可以调用脚本命令了
*****************************************************************
下面就的是脚本最有用的东西唠：）
启动CAD时候自动运行脚本文件
有好多朋友想一打开CAD先执行一行某命令，那么脚本文件就是你最好的选择了，呵呵
在桌面的快捷方式上右键－－属性
在目标立面可以看到 "D:\Program Files\AutoCAD 2002\acad.exe"类似的字样，假如你想让一打开机器就执行脚本程序myscr.scr的话可以把目标改成
"D:\Program Files\AutoCAD 2002\acad.exe /b myscr"
后缀不用考虑，就可以实现开AUTOCAD的时候自动运行脚本MYSCR了
注意：如果没有给出脚本文件的绝对路径，那么一定别忘了在CAD的搜索路径中添加脚本文件的目录哦
现在你可以发挥自己的想象力尽情享受SCR带来的乐趣了，比如可以设置自己的图层、颜色信息等等，像模本一样，也可以。。。
大家发表自己的想象，把自己巧妙利用SCR的方法跟贴，我拿着一带子爱心金币等着大家发挥的哦：）[/COLOR]

jianqiang21c

我先开个头哦：）
利用SCR进行虚拟AUTOCAD加密:)[/COLOR]
1.建立脚本文件PW.SCR
写入passw 回车
2.
;###--------------------------------------------------------------###
;密码框标准登陆程序
;passw.lsp
(defun c:passw ()
  (setq dcl_id (load_dialog "qing.dcl"))
  (if (not (new_dialog "dcl_pass" dcl_id))
    (exit)
    )
  
  (mode_tile "password" 2)
  (action_tile "password" "(setq pass $value)")
  (action_tile "cancel" "(setq pass nil)")
  
  (start_dialog)
  
  (cond
    ((/= pass "000000") (alert "###密码不正确，你不能使用本机器!###") (command ".quit" "y" ""))
    (t (alert "###你已经通过验证，欢迎使用!!!"))
    )  
  
  (unload_dialog dcl_id)
  (princ)
  )
※※※※※※※※※※※※※※※※※※※※※※※※※※※
上面是登陆DCL的LISP程序
3.
//passw.dcl
dcl_pass : dialog {
label = "身份确认";
: edit_box {
key= "password";
label = "输入密码";
password_char = "*";
}
ok_cancel;
}
################################################
上面DCL程序对话框
使用方法：
拷贝2下面的代码，存成passw.lsp，代码里面的000000就是你的密码，可以随意修改哦，然后添加到启动组立面
拷贝3下面的代码，存成
qing.dcl
在CAD的搜索目录中添加QING.DCL所在文件夹
然后就按照我第一贴的方法在CAD启动的快捷方式右键，目标加入
/b passw
然后就OK了
打开CAD你就会发现，不过这可是哄玩CAD的菜手，高手一眼就看出来了，呵呵，不过真的挺好玩的哦，欢迎大家参与哦

lqq

寻寻觅觅三四天,终觉此贴中吾思
谢谢

lastmem

这是编程方面的东东了.要向班竹好好的学习了...等待高手加贴中...