为何利用CAD脚本SCR文件,作多个dwg文件批量处理时，处理一两份就会停呢！？请大家多多

waterkay · 发表于 2013-3-8 16:38

SCR文件内容如下：
Open C:\分幅图\2594.60-482.50.dwg
tkxg qsave
Open C:\分幅图\2594.60-483.00.dwg
tkxg qsave
Open C:\分幅图\2594.60-483.25.dwg
tkxg qsave
Open C:\分幅图\2594.60-483.50.dwg
tkxg qsave
Open C:\分幅图\2594.60-483.75.dwg
tkxg qsave
Open C:\分幅图\2594.60-484.00.dwg
tkxg qsave

tkxg 命令编写如下：
(defun c:tkxg( / v1 v2 v3)
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setq v3 (getvar "blipmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (command "zoom" "e" "")
  (dlt1)
  (dlt2)
  (dltx);;
  (dlt4)
  (intk)
  (uu)
  (princ)
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (setvar "blipmode" v3)
  )

(defun dlt1( / dls dls0 dlsn de)
  (setq dls(ssget "X" '((0 . "TEXT")(8 . "TK")(40 . 2.3)(7 . "等线体"))))
  (setq dls0 0)
  (setq dlsn (sslength dls))
  (repeat dlsn
(setq de (ssname dls dls0))
(entdel de)
(setq dls0(+ dls0 1))
  )
  )
........

问题是单个文件tkxg命令可用，但利用SCR文件批量处理时，只处理到第一个dwg文件就停下了，为何呢！？用其他命令有时也一样！请贵人指点指点！

xiaxiang · 发表于 2013-3-8 17:23

请上传例图以供调试。停下的时候应该有出错提示的？

ZZXXQQ · 发表于 2013-3-9 11:37

加上判断再试：

(defun dlt1( / dls dls0 dlsn de)
(if (setq dls(ssget "X" '((0 . "TEXT")(8 . "TK")(40 . 2.3)(7 . "等线体")))))
(progn
(setq dls0 0)
(setq dlsn (sslength dls))
(repeat dlsn
(setq de (ssname dls dls0))
(entdel de)
(setq dls0(+ dls0 1))
)
))
)

waterkay · 发表于 2013-3-11 10:24

多谢版主们的回帖！判断加上了，还是一样！这问题纠结了好久，还是没有发现症结的所在！真的要麻烦大家了！

xiaxiang · 发表于 2013-3-11 11:13

执行你的程序
命令: (command "zoom" "e" "") zoom
指定窗口的角点，输入比例因子 (nX 或 nXP)，或者
[全部(A)/中心(C)/动态(D)/范围(E)/上一个(P)/比例(S)/窗口(W)/对象(O)] <实时>: e 正在重生成模型。
命令: TKXXXG 未知命令“TKXXXG”。按 F1 查看帮助。
命令: nil
(command "zoom" "e" "") 多了个""

去掉之后测试OK

waterkay · 发表于 2013-3-11 11:16

xiaxiang 发表于 2013-3-8 17:23
请上传例图以供调试。停下的时候应该有出错提示的？

提示“tkxxxg 未知命令【TKXXXG】。按F1查看帮助。”
可是命令已经在启动组成功自动加载，命令也能完全执行，可总是提示“tkxxxg 未知命令【TKXXXG】。按F1查看帮助。”

请指点迷津！

waterkay · 发表于 2013-3-11 15:00

哈哈！！谢谢版主！问题解决了！

太感激了！
问题就是出在(command "zoom" "e" "") 多了个""

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

[讨论] 为何利用CAD脚本SCR文件,作多个dwg文件批量处理时，处理一两份就会停呢！？请大家多多

本帖子中包含更多资源

点评