[编程申请]：求：可将4根线相交部分一个命令剪切掉的lisp

ouking1977

结构图常画梁，梁相交处要修剪，如果有命令一次剪掉就省事多了。

xyp1964

梁头处理：ltcl 或 tb
http://www.xdcad.net/forum/showt ... 1983276#post1983276

ouking1977

的确不错，但能否将命令改为TB（trim beam）这样既好记，也符合左手键盘盲打，效率高；还有：如果整张图很多梁相交，能否一次剪掉，请大侠再想想办法。第一次运行时提示输入比例，这是否很重要呢，虚心求教，不胜感激！

xyp1964

可以自己定义一个tb命令：
(defun c:tb()(load"ltcl")(c:ltcl))

不能一次剪掉，严格控制每次只能选择4条线，以免出现“宽梁”现象造成浪费！呵呵……

huiling6868

没搞懂TB命令怎么改,能否把程序里的直接改了.

xyp1964

在acad.lsp中添加以下这句就可以了：
(defun c:tb()(load"ltcl")(c:ltcl))

它山之石

最初由 ouking1977 发布
[B]结构图常画梁，梁相交处要修剪，如果有命令一次剪掉就省事多了。 [/B]

　　1、用TSSD。画出来的梁自动修剪好的。删除掉的梁也自动修剪好。
　　2、用03G101的配套软件，可以自动修剪。
　　3、晓东工具箱里就有这种程序。
　　4、论坛还有很多类似的程序。可以搜索一下。

ouking1977

我也用探索者的，画出来的梁是自动修剪好的，但有时画单根梁常搞错方向，所以除了轴线布梁，单根梁我还是习惯画一根线，再偏移的，晓东工具箱我刚装，还没试用，所以不知有这么好的东西，明天开始试用。而今天我同事用了xyp1964大哥的ltcl，也说很好，省事多了，我代他谢谢你。
原来(defun c:tb()(load"ltcl")(c:ltcl)) 这样就可以改啊，原谅我这菜鸟。
请问楼上什么是“03G101的配套软件”？
请xyp1964看看附件中的文件，这是在别家设计院的一位高手用VB编的，挺好用的，可是加密了，看看你能否做一套更好的。而且他们在这种梁的基础上编了个计算和画板配筋的命令（只适合矩形板），框选中板边的四根梁（梁虚线为固定端，实线为简支端），在对话框中选择砼、钢筋等级，在命令行输入板厚，恒荷载、活荷载，即可在板上画出完整的配筋，包括底面筋，及伸出支座长度等，还输出挠度、裂缝（文字放在不同层，方便关闭），相当不错。

xyp1964

这个要求太高。
还是使用专业软件更可靠。

它山之石

最初由 ouking1977 发布
[B]这是在别家设计院的一位高手用VB编的，挺好用的，可是加密了，看看你能否做一套更好的。而且他们在这种梁的基础上编了个计算和画板配筋的命令（只适合矩形板），框选中板边的四根梁（梁虚线为固定端，实线为简支端），在对话框中选择砼、钢筋等级，在命令行输入板厚，恒荷载、活荷载，即可在板上画出完整的配筋，包括底面筋，及伸出支座长度等，还输出挠度、裂缝（文字放在不同层，方便关闭），相当不错。
... [/B]

　　俺看了一下。水平确实不一般。不过俺同XYP斑主一样，也认为这种程序还是要用专业或者说商业的好。虽然说写出这种功能的程序也不是没有可能，俺也曾经写过一些涉及结构计算包括绘图的的CAD程序，如板配筋、梁抗弯、抗剪计算、板筋的绘制、修改等。个人毕竟精力有限，后来发现有更好的计算程序。就放弃做这方面的编程了。最多是写写其它的软件没有的而又经常用到的功能。
　　也许你能将这个好的程序放上来给大家试用吧。

ouking1977

探索者能在画梁的时候把截面多少带上就好了，再在原来计算板的基础上把钢筋画出来，这样就更好用了。
我把beam.arx发上来，但那是加密的，不知用什么方法加密，希望高手们把它解开。

它山之石

　　1、俺记得天正结构原来的3.0版本是可以自动计算并绘制楼板筋的。现在应该也还有此功能。也有其它一些软件有这个功能。
　　2、楼主提供的程序版本不是2004，俺没法加载。效果如何不知。此类程序能解密，关键是值不值得去解。确实值得，高手才会出手。论坛内许多外挂程序也是ARX文件。
　　3、你可以对探索者提建议。增加你说的功能。

网络水手

开拓思路,努力学习!

swhlzl

楼主的程序只能剪直线，像圆弧梁与直线梁相交该怎么剪？

eachy

这里有一个简单的
http://eachy.ys168.com   -> 我的工具集-〉 crossbrk