（完成）[求助]：怎么调钢筋粗细？

游手好闲 · 发表于 2002-11-9 11:07:32

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

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

×

我这个用1:30画的，钢筋有点粗，怎么改啊？我把钢筋的特性中Fit/Smooth项 None改为Quadratic，它就换成矩形了，不用撤销怎么改回来？

jspdi709 · 发表于 2002-11-9 13:21:51

请看下图的操作：

蓝猫 · 发表于 2002-11-9 20:59:51

http://www.xdcad.net/forum/showthread.php?s=&threadid=15864
叶子朋友答复：在初始设置中的-钢筋设定——钢筋尺寸宽度——主筋宽度
默认0。6
你自己改

yy225cn · 发表于 2002-11-9 21:08:04

在tssd的初始设置中，粗线宽改成0.45就差不多了，点钢筋的大小在初始设置的钢筋设定里面，应该比较简单的

XDSoft · 发表于 2002-11-9 21:13:44

机器重装，没有装R14，哪位朋友给附上一个上面钢筋的大样图，我看看，给大家写一个修改大小的工具。

yy225cn · 发表于 2002-11-9 21:38:06

不太明白你需要的是什么东西？

jspdi709 · 发表于 2002-11-10 12:31:48

我来提供！

ll_j · 发表于 2002-11-10 12:47:32

最初由游手好闲发布
我这个用1:30画的，钢筋有点粗，怎么改啊？我把钢筋的特性中Fit/Smooth项 None改为Quadratic，它就换成矩形了，不用撤销怎么改回来？

是该点大小吗？

jspdi709 · 发表于 2002-11-10 13:00:33

你可以用 AUTOCAD中的命令来修改！
在HELP 命令中可以找到！

yuyuyu · 发表于 2002-11-11 20:55:57

<H3>在初始设定里改默认值即可，未必每次画图都要修改？</h>

XDSoft · 发表于 2002-11-11 22:39:14

[FONT=courier new]
;|
命令：XDTB_REIN_SCL
功能：对TSSD结构软件的钢筋大样图的点钢筋根据比例缩放
说明：1、请在世界坐标系下使用。
2、回车处理图中所有箍筋，否则，用户要选箍筋进行处理
|;
(defun c:XDTB_REIN_SCL (/ ss scl e e1 box p1 ss1 arcinfo cen wid)
(prompt "\n请选取要缩放点钢筋的外箍筋<全选>:")
(if (not (setq ss (ssget '((0 . "lwpolyline") (8 . "rein")))))
(setq ss (ssget "x" '((0 . "lwpolyline") (42 . 0.0)
(70 . 0)
(8 . "rein")
)
)
)
)
(if (not $tssd_rein_scl)
(setq $tssd_rein_scl 1.0)
)
(initget 6)
(if (setq scl (getreal (strcat "\n请输入点钢筋缩放比例<" (rtos $tssd_rein_scl
2 2
) ">:"
)
)
)
(setq $tssd_rein_scl scl)
)
(xdrx_begin)
(setq $dist 100) ; 搜索顶点范围，找点钢筋
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq box (xdrx_entity_box e))
(while (car box)
(setq p1 (car box)
box (cdr box)
wid (xdrx_polyline_getConstantWidth e)
ss1 (xdrx_getptss p1 $dist '((8 . "rein") (0 . "LWPOLYLINE")))
)
(xdrx_setsstodb ss1 1)
(while (setq e1 (xdrx_getentdata 1))
(if (xdrx_polyline_hasbulges e1)
(progn
(setq arcinfo (xdrx_polyline_getArcSegAt e1 0)
cen (car arcinfo)
p1 (polar p1 (angle p1 cen) (/ (* (sqrt 2) wid) 2)));箍筋内侧基点
(setq mt (xdrx_matrix_setScale (xdrx_matrix_identity) $tssd_rein_scl p1));构造缩放矩阵
(xdrx_entity_transform e1 mt);;实体缩放
)
)
)
)
)
(xdrx_end)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   命令：XDTB_REIN_SCL 
   功能：对TSSD结构软件的钢筋大样图的点钢筋根据比例缩放 
   说明：1、请在世界坐标系下使用。 
        2、回车处理图中所有箍筋，否则，用户要选箍筋进行处理 
       
|; 
(defun c:XDTB_REIN_SCL (/ ss scl e e1 box p1 ss1 arcinfo cen wid) 
  (prompt "\n请选取要缩放点钢筋的外箍筋<全选>:") 
  (if (not (setq ss (ssget '((0 . "lwpolyline") (8 . "rein"))))) 
    (setq ss (ssget "x" '((0 . "lwpolyline") (42 . 0.0) 
                     (70 . 0) 
                     (8 . "rein") 
                    ) 
             ) 
    ) 
  ) 
  (if (not $tssd_rein_scl) 
    (setq $tssd_rein_scl 1.0) 
  ) 
  (initget 6) 
  (if (setq scl (getreal (strcat "\n请输入点钢筋缩放比例<" (rtos $tssd_rein_scl 
                                                                 2 2 
                                                           ) ">:" 
                         ) 
                ) 
      ) 
    (setq $tssd_rein_scl scl) 
  ) 
  (xdrx_begin) 
  (setq $dist 100)                       ; 搜索顶点范围，找点钢筋 
  (xdrx_setsstodb ss 0) 
  (while (setq e (xdrx_getentdata 0)) 
    (setq box (xdrx_entity_box e)) 
    (while (car box) 
      (setq p1 (car box) 
            box (cdr box) 
            wid (xdrx_polyline_getConstantWidth e) 
            ss1 (xdrx_getptss p1 $dist '((8 . "rein") (0 . "LWPOLYLINE"))) 
      ) 
      (xdrx_setsstodb ss1 1) 
      (while (setq e1 (xdrx_getentdata 1)) 
        (if (xdrx_polyline_hasbulges e1) 
          (progn 
            (setq arcinfo (xdrx_polyline_getArcSegAt e1 0) 
                  cen (car arcinfo) 
                  p1 (polar p1 (angle p1 cen) (/ (* (sqrt 2) wid) 2)));箍筋内侧基点 
            (setq mt (xdrx_matrix_setScale (xdrx_matrix_identity) $tssd_rein_scl p1));构造缩放矩阵 
            (xdrx_entity_transform e1 mt);;实体缩放 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
) 
[/FONT]

下面是演示，程序能保证点钢筋正确位置，紧贴箍筋内侧角点，不仅仅是缩放。

下载地址：http://www.xdcad.net/tech/tssd-rein1.swf

<embed src=http://www.xdcad.net/tech/tssd-rein1.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

点下面附件下载，拷贝到“晓东工具箱”LISP目录下，加载后，用命令：XDTB_Rein_Scl 执行

jspdi709 · 发表于 2002-11-12 08:19:59

谢谢小东！我已经下载！

XDSoft · 发表于 2002-11-12 12:06:06

最初由 jspdi709 发布
[B]谢谢小东！我已经下载！ [/B]

还有什么问题，发到论坛来。能解决的，就给大家写程序。

wufei1 · 发表于 2002-11-13 12:26:58

0.27版可以出来了吗？

XDSoft · 发表于 2002-11-17 14:18:54

最初由游手好闲发布
[B]东哥：你真是我的亲哥！真强！我也下了！
不过你也要注意身体啊！熬夜上网、写程序百害一益！那一益也是为了我们！
衷心感谢！

东哥：我的这个没好用，是不是因为我的是试用版？在我输入0.4回车后,TSSD提示选颜... [/B]

你安装晓东工具箱了吗？在晓东工具先箱环境下用。当然晓东工具箱可以和TSSD一起使用。

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

（完成）[求助]：怎么调钢筋粗细？

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

相关帖子

Re: [求助]：怎么调钢筋粗细？

点钢筋缩放程序写好了