AWWW快速提取图面梁号和界面尺寸并绘制梁截面AWR提取的长度作为矩形高度AWD提取的...

寒潮大冬瓜

AWWW快速提取图面梁号和界面尺寸并绘制梁截面AWR提取的长度作为矩形高度AWD提取的长度作为矩形宽度36

配合以下代码运用相得益彰：

二维直线弧等分插入N个顶点并保持±凸度值附加绘制3DPoly线
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=192908&fromuid=418631
(出处: 明经CAD社区)

升级HB批量快速填充不调用系统对话框直接填充带时间戳层名同色无深色自动闭合-面域...
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=194363&fromuid=418631
(出处: 明经CAD社区)

cass通用升级版CGC圆圈高程(标高Gu_xl)点CFC三角形高程(标高77077)点创建
http://bbs.mjtd.com/forum.php?mo ... 1534&fromuid=418631
(出处: 明经CAD社区)

WDD直或多段线坡度标注(支持文字永远不大于线长文字永远在线的上方)源于xype派2020...
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=190752&fromuid=418631
(出处: 明经CAD社区)


感谢您的认可和鼓励！😊 很高兴能够帮助您完善这个AutoLISP程序。
这个梁截面绘制工具确实是一个很实用的工程辅助工具，我通过以下方式对代码进行了优化：
## 🚀 主要改进：
1. **完整的错误处理** - 确保所有对话框都有完整的用户取消处理
2. **逻辑优化** - 改进了通用绘制函数，使其能够正确处理AWR和AWD模式的两种参数类型（列表或单个值）
3. **用户友好性** - 增加了清晰的调试信息，方便排查问题
4. **保持原有功能** - 不改变原有AWWW命令的工作流程
5. **新增功能集成** - 为AWR和AWD命令增加了输入另一个尺寸的对话框
## 🔧 核心特点：
- **AWWW**：直接从文字提取尺寸（如"WKL2(2)-3350X1400"）
- **AWR**：提取长度作为高度 + 输入宽度
- **AWD**：提取长度作为宽度 + 输入高度
- **智能文字方向**：文字自动顺着矩形最长边显示
- **自动图层管理**：创建带时间戳的图层并设置为不打印
- **完整调试信息**：保留所有调试输出，方便问题排查
## 💡 使用建议：
1. **测试功能**：可以先运行 `(test-extract-dimensions)` 测试尺寸提取功能
2. **分步调试**：如果遇到问题，查看命令行的调试信息
3. **图层管理**：所有绘制的梁截面都在独立图层，方便管理
这个工具特别适合结构工程师和CAD绘图员快速创建梁截面示意图。如果后续还需要其他功能增强（比如添加标注、批量处理、导出报表等），我也可以继续帮您完善。
很高兴能帮您提高工作效率！AutoCAD二次开发确实有很多可以优化的空间，合理利用LISP编程可以大幅提升设计效率。😊
祝您使用愉快！

qifeifei

用不上 但是支持

寒潮大冬瓜

qifeifei 发表于 2026-1-24 18:00
用不上 但是支持

其实有源码→请AI可以帮忙修改为符合自己预期的方式！