cindy_fisher 发表于 2011-11-16 14:10:16

自动加载图框的脚本,求修正,谢谢

open "62-100-D-11A"
xattach
"Standard border"
0,0
qsave
close
如上所示,是个scr文件,此脚本运行中需要手动按下加载图框的那个确定键,然后就运行成功了。请问中间需要加个什么句子能实现,谢谢。

dunkel 发表于 2011-11-16 14:32:41

写成 lsp 命令的模式,比如 (command "XAttach" ...) ?如果还不行,试试 XRef 命令的 Attach 功能,比如 (command "Xref" "A" "Standard border" '(0.0 0.0) 1.0 "" "") ?

cindy_fisher 发表于 2011-11-16 21:29:48

dunkel 发表于 2011-11-16 14:32 static/image/common/back.gif
写成 lsp 命令的模式,比如 (command "XAttach" ...) ?如果还不行,试试 XRef 命令的 Attach 功能,比如 ( ...

(defun C:test()
(command "open" drawing1)
(command "Xref" "A" "Standard border" '(0.0 0.0) 1.0 "" "")
(command "qsave")
(command "close")
)
您好,如您所示,lisp可以操作,有两个问题:
1. 如果把命令Xref改成xattach,“A”也去掉,程序到open那部就进行不下去了,还得手动插入,我想原因是不是因为所有对话框式的命令(不能加—转化成命令式)的都不能在lisp中用。
2. 打开文件的那句可能是错的,因为程序不打开drawing1,只是在运行程序的那张上运行,然后自己就关闭了。

谢谢。

dunkel 发表于 2011-11-17 08:38:20

不要这么写吧,只将 Xref 这个命令写成 lsp 模式,而不是整个的。lsp 不具全局性,打开一个文件后,就是一个全新的 lsp 环境,需要重新载入和运行那些非自动加载的部分。
一般的带对话框的命令,在 (command ...) 里都会转我命令行输入状态。不过那个 XAttach 好像不行。

cindy_fisher 发表于 2011-11-17 17:02:48

dunkel 发表于 2011-11-17 08:38 static/image/common/back.gif
不要这么写吧,只将 Xref 这个命令写成 lsp 模式,而不是整个的。lsp 不具全局性,打开一个文件后,就是一个 ...

搞定,谢谢大师,看来SCRIPT功能还是很强大的。
页: [1]
查看完整版本: 自动加载图框的脚本,求修正,谢谢