马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
此代码只操作完成了文件夹里第一个文件,没有操作整个文件夹的文件,求大神帮忙改正。注:此代码是网上下载的,求助大神。
(DEFUN C:pc () (setq dsc (xuanzekuai)) (setq ljm (xuanzewenjian)) (setq selscr (strcat (getvar "TEMPPREFIX")"20140408.scr"));;创建CSR脚本语句 ;;; 向脚本添加能识别的CSR语句;;; (setq txlist (vl-directory-files ljm "*.dwg"));;生成文件列表 (setq i 0) (setq len (vl-list-length txlist));;读取文件个数 (setq neirong (open selscr "w")) (repeat len (setq tm (nth i txlist)) (setq str2 (strcat ljm "\\" tm));;打开文件路径 (setq str3 (strcat dsc "\\" tm));;插入块路径 (princ (strcat "open \"" str2 "\"\n" "-insert " str3 " 1 1 1 0 qsave \n" "close \n" ) neirong ) (setq i (1+ i)) ) ;;;;按文件数写入语句 (close neirong) ;;;关闭脚本文件 (command "._script" selscr);;;运行脚本 (princ) ) ;;;以下为选择需要打开的文件的子程序;;; (defun xuanzewenjian (/ obj folder path) (vl-load-com) (setq obj (vlax-create-object "Shell.Application")) (setq folder (vlax-invoke-method obj 'browseforfolder 0 "请指定要打开的DWG文件夹" 1 ) ) (if(vl-catch-all-error-p (setqpath (vl-catch-all-apply '(lambda () (vlax-get-property (vlax-get-property folder 'self) 'path ) ) ) ) ) nil path ) ) ;;;以下为选择块的文件的子程序;;; (defun xuanzekuai (/ obj folder path) (vl-load-com) (setq obj (vlax-create-object "Shell.Application")) (setq folder (vlax-invoke-method obj 'browseforfolder 0 "请指定要插入的DWG块文件夹" 1 ) ) (if(vl-catch-all-error-p (setqpath (vl-catch-all-apply '(lambda () (vlax-get-property (vlax-get-property folder 'self) 'path ) ) ) ) ) nil path ) )
|