[求助]：vla-sendcommand运行脚本

fengjianwei · 发表于 2006-10-11 19:55:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

vla-sendcommand运行脚本SCR呢

(vla-sendcommand ww "script c:/scr/xyz.scr")
对不对

(command "script" "c:/scr/xyz.scr")在lisp中可以运行过去
为什么VL中不行呢到底该怎么写呢

fsxm · 发表于 2006-10-11 20:06:34

可以用lisp不是更好吗?非要来个vlisp才行吗?

fengjianwei · 发表于 2006-10-12 08:24:40

我有我自己的想法了
想批处理运行 SCR文件，也就是创建一个新的CAD，调用一个SCR文件。
如果有100个SCR文件，那就运行100次

zml84 · 发表于 2006-10-12 10:53:08

如果SCR内容是由一个程序生成的，那么为何不生成到一个SCR文件中呢？
如果是有不同的程序生成的，那么也可以编写一个LISP函数将所有SCR文件合并，然后执行一次就可以了。

fengjianwei · 发表于 2006-10-12 11:40:15

那当然不行了，每个ＳＲＣ文件都要单独提交的
如果按照４楼的说法，我就没必要那么考虑了。。。在一个文件中生成，在一个个单独复制至新的ＣＡＤ文件，保存。。。好烦的

我就是想减去这些麻烦　才有这个想法的

zml84 · 发表于 2006-10-12 17:26:24

莫说100个，两个如下的你先试试看：
(command "script" "c:/scr/xyz1.scr")
(command "script" "c:/scr/xyz2.scr")

fengjianwei · 发表于 2006-10-12 18:54:00

6楼的没有看清问题你说的我早就写出来了(1楼)
你说的是在一个CAD中运行脚本

难道 vla-sendcommand只能传送简单的命令？？
像CLOSE SAVE等等

雨箭风刀 · 发表于 2006-10-12 21:18:17

(mapcar 'vla-sendcommand (命令序列字符串列表)) 可否？

fengjianwei · 发表于 2006-10-12 21:33:59

好像也不对
因为 mapcar是对每个元素求值

雨箭风刀 · 发表于 2006-10-13 02:13:28

(vla-SendCommand *doc "script d:/lxx/Redline.scr\n")
(vla-SendCommand *doc "line 0,0 1000,2000 ")
可行，试过

fengjianwei · 发表于 2006-10-13 10:11:32

10楼的好像也不对啊
我的 (vla-SendCommand doc_New "script c:/scr2/LH01.scr\n")

结果显示
Command: script
Command: c:/scr2/LH01.scr
Unknown command "C:/SCR2/LH01.SCR". Press F1 for help.

雨箭风刀 · 发表于 2006-10-13 14:25:28

晕倒，算我白忙活了，我还以为你已经知道用filedia变量（这是基本的阿#％×T^&(）。
[php]
(defun c:tt ()
  (setq *doc (vla-get-activedocument (vlax-get-acad-object)))
  (setvar "filedia" 0)
  (vla-SendCommand *doc "script c:/scr2/LH01.scr\n")
  (setvar "filedia" 1)
)
[/php]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：vla-sendcommand运行脚本

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子