vitalgg 发表于 2023-4-26 09:08:14

@lisp 工程管理，代码全面开源

本帖最后由 vitalgg 于 2023-4-26 12:30 编辑



@工程管理 用于工程图纸的管理、归档、专业间协同设计等。本应用基于动态块制作的带属性图框，块属性包含图纸的工程信息，如项目名称、建设单位、图号、图名等。动态属性包含图框尺寸信息。图框模板下载：高宽尺寸变值的图框（推荐使用）图框模板下载：可见性控制图幅的图框本应用根据这些动态块内的动态特性和属性信息进行目录汇总、批量转PDF等操作。主要功能：
[*]自动编图号
[*]编制图名
[*]修正图框比例值
[*]附着签名
[*]图框选中
[*]插入图框
[*]图框视图快速切换
[*]生成目录
[*]批量转PDF
功能说明工程管理@pm设置用于设置本应用的使用环境。自动编图号按图框自上至下，(上下相同时自左至右)的顺序对图号进行编序。编制图名从图中选取图名文字，写入到图框的图名属性中。修正比例值根据图框的缩放值，修正图框属性的比例内容。附着签名将项目相关人员的手写体附着到图框相应位置。选所有图框选中所有图框，以进行修改全局信息，如工程名称，项目编号，相关人员等。插入图框，阵列图框快速插入图框快速找图根据图号，图名快速显示相应的图框。快捷命令 vv 。设置图框名选择你的图框块，用于工程管理和输出所操作图框。可用于切换不同单位的图框。插入二维码 演示视频可以将一段文字转成二维码图片，附着到 dwg 文件。工程输出生成目录从图纸文件 dwg 中读取图框信息，并成生目录文件，目录文件保存在 系统设置 @pm:projects-output 设置的目录中。文件格式 csv 。目录成图将生成的目录插入到 dwg 图中。执行命令行，选择一个带有 “工程信息” 的图框，就可以把已生成的各专业目录插入到图中。如果有内部网盘，各专业可以将本专业的目录自动存及网盘中的同一项目的工程目录中。可以最终汇总所有目录。打印预处理打印前的处理工作：细化轴线，填充后置之类。批量打PDF将当前图中选中的图框打印到输出目录中。按图框中的工程信息建立相应目录。提示框选时，按“回车” 打印所有图框。本打印功能支持模型空间中任意方向的图框，均按横幅打印出图。支持模型和布局空间的所有图框混合出图。因布局空间不支持UCS坐标旋转的正视图，所以不支持布局空间的任意角度的图框，只支持横幅和竖向图幅。自动输出一键完成 自动编图号、修正比例值、附着签名、生成目录、打印预处理、转PDF.的所有工作内容。适合自动化要求较高的用户。*批量绘图仪出图因不同单位使用的打印机不同，设置方法不同，本功能对有需要的单位进行单独编制。设置打印样式表设置打印时使用的样式表。变更及工程处理变更插入变更图框处理方案插入处理方案图框
源码：https://gitee.com/vitalmm/at-pm
公众号文章：https://mp.weixin.qq.com/s?__biz=MzkzODI2NTE5Ng==&mid=2247483774&idx=1&sn=e2589ad9494d0cbe46b3848a980dba14&chksm=c2839e7df5f4176b7bd34f5f0037f322222231d6e31aac3809325cf97a4acea8e4599f10e976#rd
http://bbs.mjtd.com/data/attachment/forum/202304/24/090927kgttnctnggnvhggf.png

xfjiamy 发表于 2023-4-26 09:44:20


谢谢分享，学习学习！

nsh935 发表于 2023-4-26 12:43:01

谢谢共享！！

qiwuliao 发表于 2023-4-26 13:01:11

想知道如何使用

vitalgg 发表于 2023-4-26 13:22:43

本帖最后由 vitalgg 于 2023-4-26 13:24 编辑

qiwuliao 发表于 2023-4-26 13:01
想知道如何使用
1. 先安装 @lisp 核心（这个可以管理应用插件，包括下载安装卸载等)

将以下代码复制到 CAD 命令行内，回车即可开始安装。
(在代码行里用鼠标连续三击全选，然后右键复制或Ctrl+C 。到CAD命令行内,右键粘贴或Ctrl+V)
(progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

2.成功安装@lisp核心后。在CAD命令行输入@P ,或 菜单 @lisp/配置/应用管理。打开应用管理器，从里面选择 @lisp工程管理。然后确定即可。



关注公众号，里面有更多应用和服务。

http://bbs.mjtd.com/data/attachment/forum/202304/24/090927kgttnctnggnvhggf.png

229096767 发表于 2023-4-26 18:01:51

感谢分享   

vitalgg 发表于 2023-5-3 08:31:18

http://bbs.mjtd.com/data/attachment/forum/202305/02/130103isf9bkqankbhkb9z.png

http://bbs.mjtd.com/data/attachment/forum/202305/02/130213si77qtt41mmftfuj.png
http://bbs.mjtd.com/data/attachment/forum/202305/02/130355fapfefyn3q7p3y0x.png

http://bbs.mjtd.com/data/attachment/forum/202304/24/090927kgttnctnggnvhggf.png

Noangler 发表于 2023-5-4 11:50:01

感谢大佬分享！

mashanjie 发表于 2023-8-6 22:28:32


感谢大佬分享！

meja 发表于 2023-8-7 10:32:45

一堆乱炖，毫无章法
页: [1]
查看完整版本: @lisp 工程管理，代码全面开源