[求助]请求编制把梁集中标注垂直梁线的LISP！

dengken204

请求编制把梁集中标注垂直梁线的LISP！

在画梁配筋的时候，遇到斜梁，梁的引线，梁编号，梁截面，梁钢筋全部要垂直梁线，具体操作步骤特别多！

希望能有这样一个LISP，只要框选一下梁集中标注的所有文字和线，在点击一下需要标住的梁线，这样整个梁集中标注就垂直于梁线了！

这样可以节省很多工作量
希望高手们能出手相助！

sailorcwx

N年前帮一个做结构的朋友编写的程序,希望对你有帮助

BDYCAD

二楼的作品看上去专业性很强,顶一下:)

dengken204

非常感谢sailorcwx兄

但是这个LISP，我加载后，一直没有能够正常使用

能否说说使用条件？

谢谢

命令: yh_beam
*取消*

命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>:
be
命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: e
命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>:
1 GROUP

dengken204

我把文件全部放到SUPPORT目录下的时候，能够跳出对话框

但是选择梁的时候，就出现

** 形 48 未定义
** 形 48 未定义
** 形 49 未定义
** 形 49 未定义
** 形 49 未定义
** 形 52 未定义
** 形 52 未定义
** 形 53 未定义
** 形 53 未定义
** 形 52 未定义
** 形 48 未定义

是否具体的图层有特殊要求？

dengken204

换了台机器，发现能够正常运行程序了。
但是还有几个问题要请教。
如何设置集中标注的：
1.初始字高
2.初始图层
3.初始文字行间距

dengken204

已经弄明白了！
非常感谢sailorcwx兄

yoyoho

谢谢! sailorcwx 分享程序!!!!