LISP编程中将DWG文件内的一个字符串文字加到文件名字并重命名文件

liangwan001 · 发表于 2014-7-10 15:29:27

自贡黄明儒发表于 2014-7-9 11:32
想法不错，有点类似我的分图http://bbs.mjtd.com/thread-108136-1-1.html

我借用了您分图的那个代码，我想改成不需要选择图形范围直接重命名文件。又因为可能有多个不同文件名的DWG文件中部件名称那一栏又是一样的，所以我将代码改动了一下，将需要提取的文字加到原有的文件名前面，这样避免重复的时候又要自己输入。我试过如果仅仅是改这里的话代码运行都没有问题，但是我想去掉图形范围选择，直接将文件名重命名，提示“错误：输入的列表有缺陷”，大神帮我看看是什么原因呢？然后'STR是什么意思呢？CAD不是我的专业，自己研究起来确实很困难。

(defun C:ft (/ ANSWER EN FLAG FLAG1 INITDIR NEWDNAME EE)
(setq ee (GETVAR "DWGname"))
(if (setq Initdir (getvar "dwgprefix"))
nil
(progn (princ "\n 文件未保存,不能分图") (exit))
)
(setq flag1 T)
(while (and flag1
(setq en (entsel "\n >拾取文件名 "))
(setq en (nentselp (cadr en)))
(setq NewDName (cdr (assoc 1 (entget (car en)))))
(equal (type NewDName) 'STR)
)
(if (findfile (strcat Initdir NewDName ee))
(setq flag T)
)
(while flag
(princ
(strcat "\n 文件名" NewDName "已经存在，请重输入文件名")
)
(setq NewDName (getstring "\n???输入文件名: "))
(if (findfile (strcat Initdir NewDName ee))
nil
(setq flag nil)
)
)
(vl-file-rename (strcat Initdir ee) (strcat Initdir NewDName ee))

nzl1116 · 发表于 2014-7-10 23:12:12

liangwan001 发表于 2014-7-10 15:29
我借用了您分图的那个代码，我想改成不需要选择图形范围直接重命名文件。又因为可能有多个不同文件名的DW ...

楼主的问题，最主要的是如何获取器件名下的字符串，要根据这个字符串特有的属性才能获取，比如颜色、图层等等，如果这些特有的属性都没有，只能按照其位于图框特有的位置来，但楼主连个示意图都没有，怎么帮你解决问题？思路倒是有了，就差楼主怎么把“螺丝”这些字符串特有的属性给描述清楚，就可以了。

alin · 发表于 2014-7-11 10:58:27

只能说原来命名的人太坑爹

liangwan001 · 发表于 2014-7-14 20:15:10

借用坛友“自贡黄明儒”的一个代码，自己研究出来一个，可以用。具体功能自己试用一下就知道了

；；选择图内一个文本，添加到原文件名前面重命名并删除原文件
(defun C:ft (/ ANSWER EN FLAG FLAG1 INITDIR NEWDNAME EE)
(setq ee (GETVAR "DWGname"))
(if (setq Initdir (getvar "dwgprefix"))
nil
(progn (princ "\n 文件未保存,不能分图") (exit))
)
(setq flag1 T)
(while (and flag1
(setq en (entsel "\n >拾取文件名 "))
(setq en (nentselp (cadr en)))
(setq NewDName (cdr (assoc 1 (entget (car en)))))
(equal (type NewDName) 'STR)
(setq flag T)
)
(if (findfile (strcat Initdir NewDName ee))
(setq flag nil)
)
(while flag
(command "filedia" "0")
(command "_saveas" "LT2004" (strcat Initdir NewDName ee))
(vl-file-delete (strcat Initdir ee))
(command "filedia" "1")
(setq flag nil)
)
(setq flag1 nil)
)
)

liangwan001 · 发表于 2014-7-14 20:29:39

自贡黄明儒发表于 2014-7-9 11:32
想法不错，有点类似我的分图http://bbs.mjtd.com/thread-108136-1-1.html

特别感谢您的指教，目前这个问题已经解决了。借用您的代码，实现了点选图中字符串添加到文件名前重命名文件，并删除原文件。不过现在又遇到另外一个问题，希望您能指点一二http://bbs.mjtd.com/thread-110728-1-1.html

(defun C:ft (/ ANSWER EN FLAG FLAG1 INITDIR NEWDNAME EE)
(setq ee (GETVAR "DWGname"))
(if (setq Initdir (getvar "dwgprefix"))
nil
(progn (princ "\n 文件未保存,不能分图") (exit))
)
(setq flag1 T)
(while (and flag1
(setq en (entsel "\n >拾取文件名 "))
(setq en (nentselp (cadr en)))
(setq NewDName (cdr (assoc 1 (entget (car en)))))
(equal (type NewDName) 'STR)
(setq flag T)
)
(if (findfile (strcat Initdir NewDName ee))
(setq flag nil)
)
(while flag
(command "filedia" "0")
(command "_saveas" "LT2004" (strcat Initdir NewDName ee))
(vl-file-delete (strcat Initdir ee))
(command "filedia" "1")
(setq flag nil)
)
(setq flag1 nil)
)
)

langjs · 发表于 2014-7-14 20:54:22

本帖最后由 langjs 于 2014-7-14 20:58 编辑

我有个批量改名程序，提取标题栏属性快的代号和零件名称两项作为DWG的文件名。稍微改一下就可以用，

楼主没提供图纸，无法测试

源码奉上，自己修改吧。

清风明月名字 · 发表于 2014-7-15 09:48:58

langjs 发表于 2014-7-14 20:54
我有个批量改名程序，提取标题栏属性快的代号和零件名称两项作为DWG的文件名。稍微改一下就可以用，

楼主 ...

谢谢楼主的奉献！

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

[提问] LISP编程中将DWG文件内的一个字符串文字加到文件名字并重命名文件

点评

本帖子中包含更多资源