求助一段很简单的lisp

LADCHENWEI

是用在批处理里的：
1，选择全部
2，将所有图元放到0层
3，将所有图元的颜色改成bylayer
4，保存退出

新人谢过了

st788796

(defun c:tt ()
  (command ".chprop" "all" "" "la" "0" "co" "bylayer" "")
  (command ".qsave")
  (command "quit")
  (princ)
)

LADCHENWEI

这段代码单独做lisp是可以的

批处理好像不行哦
命令: script
输入脚本文件名 <C:\Documents and Settings\Administrator\桌面\123\无标题_Page001.scr>:
C:\Documents and Settings\Administrator\桌面\AUTOcad批量处理程序1.6无广告绿色版\batch.scr
命令: (defun c:tt ()
(_>   (command ".chprop" "all" "" "la" "0" "co" "bylayer" "")
(_>   (command ".qsave")
(_>   (command "quit")
(_>   (princ))*取消*
(_> *取消*

然后批处理的那个表示不行退出了...

csharp

这个是lisp，script就不是这样了，lisp用appload加载后执行 tt 命令

chprop all “” la 0 co bylayer “”
qsave
quit

LADCHENWEI

楼上这一段运行到一半也终止了...

命令: script
输入脚本文件名 <C:\Documents and Settings\Administrator\桌面\123\无标题_Page001.scr>:
C:\Documents and Settings\Administrator\桌面\AUTOcad批量处理程序1.6无广告绿色版\batch.scr
命令: chprop
选择对象: all 找到 6803 个
选择对象: ""
*无效选择*
需要点或窗口(W)/上一个(L)/窗交(C)/框(BOX)/全部(ALL)/栏选(F)/圈围(WP)/圈交(CP)/编组(G)/添加(A)/删除(R)/多个(M
)/前一个(P)/放弃(U)/自动(AU)/单个(SI)

这是为什么?

csharp

script中回车是什么

把 “”  替换为 空格
chprop all   la 0 co bylayer
qsave
quit

LADCHENWEI

这次没有被卡住，但是文件跑了一遍以后没有变化，也没有被保存过的样子

:还是不行
有没有好一点的批处理软件...

LADCHENWEI

csharp 发表于 2014-8-19 12:13
script中回车是什么

把 “”  替换为 空格

今天又做了一下，做出来了，也保存成功了，但是la 0 co bylayer这个两个效果都没有做出来，就是昨天那组代码
chprop all   la 0 co bylayer
qsave
quit
这是为什么啊...

另外
现在我想做一个完整的代码
1，选择全部
2，将所有图元放到0层
3，将所有图元的颜色改成bylayer
4，选中线宽为0.5的对象
5，将其改成红色
6，保存退出

应该再怎么写，谢谢了{:soso_e183:}

Underway

处理类似的批次工作,我们的作法是用Lisp程序
调试无误后,再于Script中调用该程序

LADCHENWEI

Underway 发表于 2014-8-20 10:34
处理类似的批次工作,我们的作法是用Lisp程序
调试无误后,再于Script中调用该程序

这段就是正确的啊
(defun c:tt ()
  (command ".chprop" "all" "" "la" "0" "co" "bylayer" "")
  (command ".qsave")
  (command "quit")
  (princ)
)

怎么改成script

Underway

script中要注意 空格 换列
容易发晕,在里头折腾够了,早改换用程序了...

LADCHENWEI

Underway 发表于 2014-8-20 11:09
script中要注意 空格 换列
容易发晕,在里头折腾够了,早改换用程序了...

能不能写出来看一看...{:soso_e112:}，我就用了这一段

zinah

学习了。。。。。。。。。。。。