dengken204 发表于 2008-7-2 00:24:00

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

本帖最后由 作者 于 2008-7-2 0:26:01 编辑 <br /><br /> <p>请求编制把梁集中标注垂直梁线的LISP！</p><p>在画梁配筋的时候，遇到斜梁，梁的引线，梁编号，梁截面，梁钢筋全部要垂直梁线，具体操作步骤特别多！</p><p>希望能有这样一个LISP，只要框选一下梁集中标注的所有文字和线，在点击一下需要标住的梁线，这样整个梁集中标注就垂直于梁线了！</p><p>这样可以节省很多工作量<br/>希望高手们能出手相助！</p>

sailorcwx 发表于 2008-7-2 11:43:00

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

BDYCAD 发表于 2008-7-2 11:53:00

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

dengken204 发表于 2008-7-2 19:24:00

<p><strong><font face="Verdana" color="#61b713">非常感谢sailorcwx兄</font></strong></p><p><strong><font face="Verdana" color="#61b713"></font></strong></p><p><strong><font face="Verdana" color="#61b713">但是这个LISP，我加载后，一直没有能够正常使用</font></strong></p><p><strong><font face="Verdana" color="#61b713">能否说说使用条件？</font></strong></p><p><strong><font face="Verdana" color="#61b713">谢谢</font></strong></p><p><strong><font face="Verdana" color="#61b713"></font></strong></p><p>命令: yh_beam<br/>*取消*</p><p>命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是<br/>输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] &lt;1&gt;: <br/>be<br/>命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是<br/>输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] &lt;1&gt;: e<br/>命令: undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是<br/>输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] &lt;1&gt;: <br/>1 GROUP</p>

dengken204 发表于 2008-7-2 19:29:00

<p>我把文件全部放到SUPPORT目录下的时候，能够跳出对话框</p><p>但是选择梁的时候，就出现</p><p>** 形 48 未定义<br/>** 形 48 未定义<br/>** 形 49 未定义<br/>** 形 49 未定义<br/>** 形 49 未定义<br/>** 形 52 未定义<br/>** 形 52 未定义<br/>** 形 53 未定义<br/>** 形 53 未定义<br/>** 形 52 未定义<br/>** 形 48 未定义</p><p></p><p>是否具体的图层有特殊要求？</p>

dengken204 发表于 2008-7-3 10:35:00

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

dengken204 发表于 2008-7-3 19:40:00

<br/>已经弄明白了！<br/>非常感谢<strong><font face="Verdana" color="#61b713">sailorcwx兄</font></strong>

yoyoho 发表于 2018-3-29 12:47:04

谢谢! sailorcwx 分享程序!!!!
页: [1]
查看完整版本: [求助]请求编制把梁集中标注垂直梁线的LISP！