[编程申请]：一次性去掉钢筋弯钩的工具

ln2127105 · 发表于 2005-6-3 20:33:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我原先发过一个贴，现在说简单点，就是想捕捉一条带有宽度的多段线的两个拐点，以这两点画为端点画一条线段，然后把原来的多段线删除。
当然，上述过程选择对象的时候，要能框选。如果一次只能处理一条，也就没什么作用了。

登录/注册后可看大图

1楼楼主说：[编程申请]：哪位大虾能提供一个一次性去掉钢筋弯钩的工具！！哪位大虾能提供一个一次性去掉钢筋弯钩的工具！！
在PKPM自动生成的板配筋图中，支座负钢筋带有向下的直钩。而平法的的图要求不带钩。

在TSSD中有命令可以处理弯钩，但是要用光标一一点选才能去除，哪位大虾可以在此基础上继续加工，最理想的是一次性去除弯钩，或者把支座钢筋的图层隔离，然后框选所有钢筋，去除弯钩。

eachy · 发表于 2005-6-3 20:42:26

发个 dwg 图上来，含尽可能多的钢筋形式

ln2127105 · 发表于 2005-6-3 20:59:36

这个图是PKPM自动生成的，里面的图层很多，板底钢筋和支座钢筋放在不同的图层。我想改的是支座钢筋，就是直钩部分。有X，Y方向的，也有倾斜的。有谢谢斑竹。

使用的时候，理想的情况大致如下，
在所有图层都打开的情况下，框选一个范围后，程序自动找到“支座钢筋”这个图层里的多段线进行重画处理，重画的钢筋也放在原来的“支座钢筋”图层中。

xyp1964 · 发表于 2005-6-3 21:52:41

去弯钩：qwg

ln2127105 · 发表于 2005-6-3 22:19:16

多谢楼上！很好用。LISP能写这样的吗？能写一个吗？

xyp1964 · 发表于 2005-6-3 22:29:35

最初由 ln2127105 发布
[B]多谢楼上！很好用。LISP能写这样的吗？能写一个吗？ [/B]

就是用LISP写的。

ln2127105 · 发表于 2005-6-3 22:47:04

本帖最后由 xyp1964 于 2015-9-17 13:55 编辑

(load "xyp_lib");加载通用函数
这个句子和修改钢筋有关系？？是什么函数啊？

我把这个句子去掉了后
命令: _appload 已成功加载支座钢筋去弯勾.lsp。
命令: ; 错误: no function definition: PXYP
命令: qwg ; 错误: no function definition: CMDLA0

就是说需要你的一些子程序？？那么如下：
命令: _appload 已成功加载 xyp_lib.VLX。
已成功加载支座钢筋去弯勾.lsp。
命令:
命令:
程序命令: qwg (去弯钩)
命令:
命令: qwg
输入出图比例1 : 100

？？？？？？？？？？？？？？？为什么需要出图比例啊？？？？

xyp1964 · 发表于 2005-6-3 23:12:58

最初由 ln2127105 发布
[B](load "xyp_lib");加载通用函数
这个句子和修改钢筋有关系？？是什么函数啊？

我把这个句子去掉了后
命令: _appload 已成功加载支座钢筋去弯勾.lsp。
命令: ; 错误: no function definition: PXYP
命令: qw... [/B]

出图比例是“通用函数”中的内容，在“去弯钩”程序中确实没有用，不过只会出现一次。

ln2127105 · 发表于 2005-6-7 09:15:27

斑竹能说明一下pxyp函数吗

xyp1964 · 发表于 2005-6-7 13:34:55

最初由 ln2127105 发布
[B]斑竹能说明一下pxyp函数吗 [/B]

PXYP 显示程序命令及作者信息：
(pxyp"命令缩写 (程序注释)")

它山之石 · 发表于 2005-6-7 18:40:34

　　最好的办法是把第1、4个顶点坐标合并到第2、3个顶点上。如果要恢复也很容易。俺有个板底钢筋级别转换就是这么写的。根本不需要再生成新的直线，删除原来的钢筋线等。

eachy · 发表于 2005-6-7 19:31:23

(defun c:tt (/ ss ssl el)
(if (setq ss (ssget '((90 . 4))))
(progn
(setq ssl (sslength ss))
(while (> ssl 0)
(setq el (entget (ssname ss (setq ssl (1- ssl))))
el (vl-remove (assoc 10 el) el)
el (vl-remove (assoc 10 (reverse el)) el)
el (subst '(90 . 2) '(90 . 4) el)
)
(entmod el)
)
)
)
(princ)
)

小鱼儿 · 发表于 2005-6-8 11:39:31

不错，很全面和深入！！！表示感谢和支持！！！

ln2127105 · 发表于 2005-6-10 00:14:17

最初由它山之石发布
[B]　　最好的办法是把第1、4个顶点坐标合并到第2、3个顶点上。如果要恢复也很容易。俺有个板底钢筋级别转换就是这么写的。根本不需要再生成新的直线，删除原来的钢筋线等。 [/B]

是好方法...当时也这么想的...就怕这么说了以后很多编程的高人不明白，所以选了个简单的说法加线删线....最好是做结构的兼编程...有好的思路很重要....

eachy · 发表于 2005-6-10 00:26:29

可以用 ldata 记录去掉的点的没必要合并什么点

账号		自动登录	找回密码
密码			立即注册

[编程申请]：一次性去掉钢筋弯钩的工具

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块