out```图发甲方 及 win右键菜单【新建今日文件夹】

masterlong

;;这个程序用来生成发送甲方的dwg
;|
1.  存在参照时，参照绑定
2.  存在敏感图块或参照（如电子签、公章等）时，删除或拆离
3.  无法清空的敏感图块或参照，清空块定义
4.  文件名附加“今日日期·发甲方”字样
5.  自动另存于特定路径，再存回原路径
|;
;;注：不能在不开图的情况下绑定文件，所以就不要指望有静默批处理版本了。


------------------------------------------2023年11月01日：以下附件已更新
修改了功能介绍
添加了遗漏三个公共函数
另将dos函数替换为了vl函数





漏的公共函数如下

2. 
   
3. ;999公共函数
   
4. ;;16.1 [功能] 返回对象的名称
   
5. (defun aboutName ( obj )
   
6. (if (vlax-property-available-p obj 'Name)
   
7.   (vlax-get-Property obj 'Name)
   
8.   "<NONE_NAME>"
   
9. )
   
10. )
    
11. 
    
12. ;999公共函数
    
13. ;;dxf  获取图元某个dxf组码（内参不限种类顺序：：： n ent [entget ent] ）
    
14. (defun dxf( n ent / temp tmp )
    
15. (if (/= (type n) 'int)
    
16.   (setq temp  ent
    
17.     ent n  
    
18.     n  temp
    
19.   )
    
20. )
    
21. (if (= (type ent) 'ENAME)
    
22.   (setq temp (entget ent))
    
23.   (setq temp ent)
    
24. )
    
25. (cond
    
26.   ((= n 62) (if (setq tmp (assoc n temp))  (cdr tmp)  256))    ;;颜色
    
27.   ;;;;;;((= n 6 ) (if (setq tmp (assoc n temp))  (cdr tmp)  "BYLAYER"))  ;;线型
    
28.   ;;;;;;((= n 48) (if (setq tmp (assoc n temp))  (cdr tmp)  (getvar "celtscale")))  ;;线型比例
    
29.   ( T (cdr (assoc n temp)))
    
30. )
    
31. )
    
32. 
    
33. ;999公共函数
    
34. ;;删除表中重复元素
    
35. (defun delsame( biao / a new )
    
36. (while biao
    
37.   (setq a (car biao))
    
38.   (if (vl-position a new) nil (setq new (cons a new)))
    
39.   (setq biao (cdr biao))
    
40. )
    
41. (reverse new)
    
42. )

<br /> ;999公共函数<br /> ;;16.1 [功能] 返回对象的名称<br /> (defun aboutName ( obj )<br /> (if (vlax-property-available-p obj 'Name)<br />   (vlax-get-Property obj 'Name)<br />   "<NONE_NAME>"<br /> )<br /> )<br /> <br /> ;999公共函数<br /> ;;dxf  获取图元某个dxf组码（内参不限种类顺序：：： n ent [entget ent] ）<br /> (defun dxf( n ent / temp tmp )<br /> (if (/= (type n) 'int)<br />   (setq temp  ent<br />     ent n  <br />     n  temp<br />   )<br /> )<br /> (if (= (type ent) 'ENAME)<br />   (setq temp (entget ent))<br />   (setq temp ent)<br /> )<br /> (cond<br />   ((= n 62) (if (setq tmp (assoc n temp))  (cdr tmp)  256))    ;;颜色<br />   ;;;;;;((= n 6 ) (if (setq tmp (assoc n temp))  (cdr tmp)  "BYLAYER"))  ;;线型<br />   ;;;;;;((= n 48) (if (setq tmp (assoc n temp))  (cdr tmp)  (getvar "celtscale")))  ;;线型比例<br />   ( T (cdr (assoc n temp)))<br /> )<br /> )<br /> <br /> ;999公共函数<br /> ;;删除表中重复元素<br /> (defun delsame( biao / a new )<br /> (while biao<br />   (setq a (car biao))<br />   (if (vl-position a new) nil (setq new (cons a new)))<br />   (setq biao (cdr biao))<br /> )<br /> (reverse new)<br /> )

masterlong

总结没有到位
发甲方的图纸删除敏感图块
这是必须的
参照绑定和按时间回存
同样重要
现在我不管和谁对图纸
首先问你看的是哪一版图纸


前段时间琢磨了一下windows的右键菜单
感觉很爽


水平有限
采用bat文件实现的

下载后解压到【D:\tools\dirmk_today】文件夹
其它路径请自行修改注册表里的路径

Bao_lai

masterlong 发表于 2022-4-13 16:36
图层归并指的啥
绑定图层$#$前的符号名称？
发甲方的图没必要去归并

就是平时画图时我的习惯是一些图层会分开，方便操作。但公司标准图里的这些图层是统一的，所以想到归档时把自己的习惯图层按标准图统一一下。
自己弄了下，对于含有天正对象的，操作就会有问题。想看下你这边的归并思路是怎么样的。

masterlong

这个程序我自己用了很久
昨天发上来的时候
加了两个自己用不到的功能
敏感参照的拆离
清不掉的敏感块清空块定义

加日期另存和回存
既不破坏现有的图纸
又相当于发甲方图纸做了留存
对于反反复复修改的项目
有时候太重要了

liufii

下了看看，甲方咋了！

伪书虫86

瞅瞅，哈哈

999999

谢谢大神分享，下载下来用了一下，智商有限，不知道是什么作用

菜卷鱼

no function definition: ABOUTNAME

paulpipi

感谢分享，试用一下

Bao_lai

这个功能确实好用，能不能加一个图层归并的功能？

忙出一个未来

命令: (LOAD "F:/桌面/新建文件夹/out```图发甲方.lsp")
out```图发甲方  by masterlong"\nout```图发甲方  by masterlong"
命令: OUT no function definition: DXF

masterlong

图层归并指的啥
绑定图层$#$前的符号名称？
发甲方的图没必要去归并

如果是要在绑定后的图纸上画图
我建议将这样的底图做成参照

其实参照归并的程序我倒是有
而且比较彻底
但是经常归并完以后不能保存了