lisp代码合并_CAD 同名文件合并（不开图）

2024-04-10 16:43:14

[Asm] 纯文本查看复制代码(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

" 0 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"))

(setqfolder (vlax-invoke-method

obj 'browseforfolder

0 "请指定要打开的DWG文件夹"

1

)

)

(if (vl-catch-all-error-p

(setq path (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"))

(setqfolder (vlax-invoke-method

obj 'browseforfolder

0 "请指定块DWG块文件夹"

1

)

)

(if (vl-catch-all-error-p

(setq path (vl-catch-all-apply

'(lambda

()

(vlax-get-property

(vlax-get-property folder 'self)

'path

)

)

)

)

)

nil

path

)

)

lisp代码合并_CAD 同名文件合并（不开图）相关推荐

[原创]FOCUS处理系统流程之：大文本文件极速合并（sps文件合并）
下载地址:csdn 软件界面1: (功能如题) : 1.普通文本文件的合并 2.大文件快速合并,空行及重复行删除等功能 3.合并物探 ...
PDF如何合并，PDF文件合并的技巧
说起PDF文件,很多人都为这种文件感觉得很反感,原因就是PDF文件不能直接进行编辑,那更不要说PDF合并了,其实合并PDF文件是需要专门的一些软件的,比如PDF编辑器.PDF转换器等等,下面就为大家分 ...
word 合并两个文件合并成一个
插入,然后两个文件就会合并成一个
关于PHP代码写的下载文件打不开的问题，自己备忘！（韩老师2011年的例子）
<?php $file_name="中文.jpg"; //中文转码 $file_name=iconv("utf-8","gb2312" ...
我的服务端JS文件合并工具
静态资源合并,老生常谈的话题了,目的就是减少http请求数,至于为什么要减少http请求大家应该都有所了解,这里就不多赘述,近期由于项目需要,自行开发了一个文件合并工具,由于源码在公司研发网络拿不出来 ...
Python PDF文件合并，提取
文章目录 1. 功能介绍 2.项目难点 1. tkinter设置图标显示 3. 源代码 3. 代码打包 1. 打包过后程序运行出错 2. 打包命令 3.打包技巧 1. 功能介绍选择两个pdf指定的页 ...
HBase 文件合并
HBase在存储时, 使用了LSM树来进行数据存储, 会定期将文件进行合并, 以提升数据的查询效率, LSM树都是这么处理的. 那么到这里就有一个问题了, HBase在进行文件合并的时候, 势必会占用 ...
怎么在线把pdf文件合并
轻轻松松在你的设备上转换PDF文件,该应用可以将office文档等多种不同文件保存为PDF文件并与他人分享,同时还可以将多份文档以固定顺序合并到单个PDF文件中,十分强大 . 迅捷pdf合并器本质上是 ...
怎样免费将多个pdf文件合并为一个
作为新时代的办公族,每天都要面对各种各样的文件,有时候会遇到一个文件被拆分成多个pdf文件的情况,这种时候应该怎么办呢?不会的小伙伴不用担心,今天小编就来教大家怎样免费将多个pdf文件合并为一个. 1 ...
批处理命令html文件合并,cmd命令行无损合并批处理TS视频文件
有时,当我们从Internet下载一些视频文件时,我们发现某些视频格式为.ts格式,并且被分成N个以上的小文件. 特别是,某些视频以.ts格式(MPEG2-TS流)播放. 因此,如果要下载此视频,则需 ...

最新文章

热门文章