out```图发甲方 及 win右键菜单【新建今日文件夹】
本帖最后由 masterlong 于 2023-11-1 11:57 编辑;;这个程序用来生成发送甲方的dwg
;|
1.存在参照时，参照绑定
2.存在敏感图块或参照（如电子签、公章等）时，删除或拆离
3.无法清空的敏感图块或参照，清空块定义
4.文件名附加“今日日期·发甲方”字样
5.自动另存于特定路径，再存回原路径
|;
;;注：不能在不开图的情况下绑定文件，所以就不要指望有静默批处理版本了。
------------------------------------------2023年11月01日：以下附件已更新
修改了功能介绍
添加了遗漏三个公共函数
另将dos函数替换为了vl函数
漏的公共函数如下
;999公共函数
;;16.1 [功能] 返回对象的名称
(defun aboutName ( obj )
(if (vlax-property-available-p obj 'Name)
(vlax-get-Property obj 'Name)
"<NONE_NAME>"
)
)
;999公共函数
;;dxf获取图元某个dxf组码（内参不限种类顺序：：： n ent ）
(defun dxf( n ent / temp tmp )
(if (/= (type n) 'int)
(setq tempent
ent n
ntemp
)
)
(if (= (type ent) 'ENAME)
(setq temp (entget ent))
(setq temp ent)
)
(cond
((= n 62) (if (setq tmp (assoc n temp))(cdr tmp)256)) ;;颜色
;;;;;;((= n 6 ) (if (setq tmp (assoc n temp))(cdr tmp)"BYLAYER"));;线型
;;;;;;((= n 48) (if (setq tmp (assoc n temp))(cdr tmp)(getvar "celtscale")));;线型比例
( T (cdr (assoc n temp)))
)
)
;999公共函数
;;删除表中重复元素
(defun delsame( biao / a new )
(while biao
(setq a (car biao))
(if (vl-position a new) nil (setq new (cons a new)))
(setq biao (cdr biao))
)
(reverse new)
)
本帖最后由 masterlong 于 2022-4-15 19:18 编辑
总结没有到位
发甲方的图纸删除敏感图块
这是必须的
参照绑定和按时间回存
同样重要
现在我不管和谁对图纸
首先问你看的是哪一版图纸
前段时间琢磨了一下windows的右键菜单
感觉很爽
水平有限
采用bat文件实现的
下载后解压到【D:\tools\dirmk_today】文件夹
其它路径请自行修改注册表里的路径
masterlong 发表于 2022-4-13 16:36
图层归并指的啥
绑定图层$#$前的符号名称？
发甲方的图没必要去归并
就是平时画图时我的习惯是一些图层会分开，方便操作。但公司标准图里的这些图层是统一的，所以想到归档时把自己的习惯图层按标准图统一一下。
自己弄了下，对于含有天正对象的，操作就会有问题。想看下你这边的归并思路是怎么样的。 本帖最后由 masterlong 于 2022-4-13 09:12 编辑
这个程序我自己用了很久
昨天发上来的时候
加了两个自己用不到的功能
敏感参照的拆离
清不掉的敏感块清空块定义
加日期另存和回存
既不破坏现有的图纸
又相当于发甲方图纸做了留存
对于反反复复修改的项目
有时候太重要了
下了看看，甲方咋了！ 瞅瞅，哈哈:lol 谢谢大神分享，下载下来用了一下，智商有限，不知道是什么作用 no function definition: ABOUTNAME 感谢分享，试用一下 这个功能确实好用，能不能加一个图层归并的功能？ 命令: (LOAD "F:/桌面/新建文件夹/out```图发甲方.lsp")
out```图发甲方by masterlong"\nout```图发甲方by masterlong"
命令: OUT no function definition: DXF
图层归并指的啥
绑定图层$#$前的符号名称？
发甲方的图没必要去归并
如果是要在绑定后的图纸上画图
我建议将这样的底图做成参照
其实参照归并的程序我倒是有
而且比较彻底
但是经常归并完以后不能保存了