请教多张DWG文件批量执行自编的程序怎么写

L12196 · 发表于 2015-1-25 22:06:47

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

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

×

我要多个DWG文件自动执行我自编的程序这段驱动该怎么写？麻烦指导指导！

牢固 · 发表于 2015-1-25 22:12:23

查阅script命令

L12196 · 发表于 2015-1-25 23:10:26

本帖最后由 L12196 于 2015-1-25 23:13 编辑

牢固发表于 2015-1-25 22:12
查阅script命令

牢固版主，由于刚学编程没多久，不是很熟悉，拿以下的一段程序来说的话，应该怎么去修改，才能实现如主题说的功能？请指导下！

(defun c:text ()
(setq txtlst '("张三" "李四" ))
(if (> (setq dcl_id (load_dialog "test_listtext")) 0) (progn
  (if (new_dialog "mypopup_list" dcl_id) (progn
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(readata) (done_dialog 1)")
(setq re (start_dialog))
  ) (princ "\n无法显示对话框！"))
  (unload_dialog dcl_id)
) (princ "\n无法加载对话框！"))
(if (= re 1) (progn
(if (not(tblsearch "STYLE" "qm"))
  (command "_.STYLE" "qm" "STFANGSO.TTF" 0 1 "" "" "")
)
(initget 1)
;(setq pt (getpoint "\n文字插入点: "))
(setq pt (list 100 200))
(command "_.TEXT" "s" "qm" pt 30 0 ch1)
))
(princ)
)
(defun readata ()
(setq ch1 (nth (atoi(get_tile "ch1")) txtlst))
)

牢固 · 发表于 2015-1-27 00:18:50

L12196 发表于 2015-1-25 23:10
牢固版主，由于刚学编程没多久，不是很熟悉，拿以下的一段程序来说的话，应该怎么去修改，才能实现如主题 ...

不能有对话框，不能有人机交互，否则怎么叫批量自动？

L12196 · 发表于 2015-1-27 20:37:42

本帖最后由 L12196 于 2015-1-27 20:39 编辑

牢固发表于 2015-1-27 00:18
不能有对话框，不能有人机交互，否则怎么叫批量自动？

但是需要的是有对话框去选择名字后按对话框的确定按钮就自动对多个DWG文件进行插入对话框所选的名字，如果要实现这样功能需要怎么去写程序！麻烦指导下！

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

[求助] 请教多张DWG文件批量执行自编的程序怎么写

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

相关帖子

点评

点评

点评