求助一段很简单的lisp（能不能用lisp脚本实现批处理）

LADCHENWEI · 发表于 2014-8-20 16:22:31

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

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

×

就是这样子
A：让CAD搜寻一个文件夹里的所有文件，并建立文件列表
B：按照列表顺序逐次运行每个文件，里面的程序是
（1，选择全部
2，将所有图元放到0层
3，将所有图元的颜色改成bylayer
4，选中线宽为0.5的对象
5，将其改成红色
6，保存退出）
C，解决完一个文件后将这个文件名字去除，开始下一个文件处理...

csharp · 发表于 2014-8-20 16:36:15

本帖最后由 csharp 于 2014-8-20 16:42 编辑

用 xdrxapi 的readdwg可以写个lisp批处理
一个例子
API应用 ReadDWG修改布局属性图块

LADCHENWEI · 发表于 2014-8-20 17:05:37

原先的批处理器把CAD搞坏了
readdwg就是一组代码咯，不是一个小软件吧...

eachy · 发表于 2014-8-20 23:20:17

LADCHENWEI 发表于 2014-8-20 17:05
原先的批处理器把CAD搞坏了
readdwg就是一组代码咯，不是一个小软件吧...

没有测试

(defun c:tt (/ fl)
(if (setq fl (xdrx_system_selectFolder "选择目录"))
(mapcar '(lambda (name / ob ents)
(if (and (xdrx_database_readdwg name)
(xdrx_database_seldb 1)
)
(progn
(setq ob (xdrx_object_get "Block" "*Model_Space")
ents (xdrx_getpropertyvalue ob "AllEntities")
)
(foreach e ents
(xdrx_entity_setlayer e "0")
(xdrx_entity_setcolor e 256)
(if (= (xdrx_getpropertyvalue e "Lineweight") 50)
(xdrx_entity_setcolor e 1)
)
)
(xdrx_database_save)
(xdrx_database_close)
)
)
)
(mapcar '(lambda (x)
(strcat pl "\\" x)
)
(VL-DIRECTORY-FILES pl "*.dwg")
)
)
)
(princ)
)

(defun c:tt (/ fl) 
  (if (setq fl (xdrx_system_selectFolder "选择目录")) 
    (mapcar '(lambda (name / ob ents) 
               (if (and        (xdrx_database_readdwg name) 
                        (xdrx_database_seldb 1) 
                   ) 
                 (progn 
                   (setq ob   (xdrx_object_get "Block" "*Model_Space") 
                         ents (xdrx_getpropertyvalue ob "AllEntities") 
                   ) 
                   (foreach e ents 
                     (xdrx_entity_setlayer e "0") 
                     (xdrx_entity_setcolor e 256) 
                     (if (= (xdrx_getpropertyvalue e "Lineweight") 50) 
                       (xdrx_entity_setcolor e 1) 
                     ) 
                   ) 
                   (xdrx_database_save) 
                   (xdrx_database_close) 
                 ) 
               ) 
             ) 
            (mapcar '(lambda (x) 
                       (strcat pl "\\" x) 
                     ) 
                    (VL-DIRECTORY-FILES pl "*.dwg") 
            ) 
    ) 
  ) 
  (princ) 
)

LADCHENWEI · 发表于 2014-8-21 09:46:30

eachy 发表于 2014-8-20 23:20
没有测试

谢谢啊，不过好像没有跑过去.............

csharp · 发表于 2014-8-21 16:40:52

LADCHENWEI 发表于 2014-8-21 09:46
谢谢啊，不过好像没有跑过去.............

这句中的 pl 应为 fl，修改后测试成功
(mapcar '(lambda (x)
      (strcat fl "\\" x)
   )
   (VL-DIRECTORY-FILES fl "*.dwg")
   )

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

[求助] 求助一段很简单的lisp（能不能用lisp脚本实现批处理）

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

点评

点评

点评