梁箍筋数量代码

hphkjz · 发表于 2013-11-21 23:31:23

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

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

×

请求帮忙编2个lisp代码，这2个代码是用来显示梁箍筋数量的一个代码，具体如下：
1、鼠标依次点击1点2点
2、电脑把1点到2点的长度代入公式，分别写成两套代码：公式1：（长度+3×梁高<梁高需要键盘键入>）/200 得数四舍五入公式2：长度/200 得数四舍五入
3、在上面居中显示“箍筋支”中间填上公式得出的数字
谢谢！

st788796 · 发表于 2013-11-21 23:38:52

程序不难，感觉楼主考虑的还不周全

hphkjz · 发表于 2013-11-21 23:50:25

st788796 发表于 2013-11-21 23:38
程序不难，感觉楼主考虑的还不周全

对于大哥来说这自然不是难事啦！可是对于我来说可以减轻我的工作量呢。所以每次都劳烦大哥了。还有什么不全还请大哥明示

hphkjz · 发表于 2013-11-22 09:44:22

st788796 发表于 2013-11-21 23:38
程序不难，感觉楼主考虑的还不周全

大哥，能不能帮小弟把这2个代码给编一下哇

st788796 · 发表于 2013-11-22 17:03:34

(defun c:tt (/ p1 p2 h l)
(if (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
(setq H (getdist p1 "\nHeight: "))
)
(progn
(setq L (distance p1 p2))
(princ "\n")
(princ (fix (+ 0.5 (/ (* H (+ L 3)) 200))))
(princ "\n")
(princ (fix (+ 0.5 (/ L 200))))
)
)
(princ)
)

hphkjz · 发表于 2013-11-22 18:25:24

st788796 发表于 2013-11-22 17:03

大哥，我试了这个代码，没有把结果用文字写在线上面，格式是“箍筋支”例如5000长度，500高度，显示结果应是“箍筋33支” 麻烦大哥给稍微修改一下哦，嘻嘻

st788796 · 发表于 2013-11-22 18:27:50

hphkjz 发表于 2013-11-22 18:25
大哥，我试了这个代码，没有把结果用文字写在线上面，格式是“箍筋支”例如5000长度，500高度，显示结 ...

2 个公式哪个是数量？

hphkjz · 发表于 2013-11-22 18:42:34

st788796 发表于 2013-11-22 18:27
2 个公式哪个是数量？

大哥，我的意思是编制两个代码，一个代码用公式1，一个代码用公式2。得出来的数套进“箍筋支”中，显示出来是“箍筋33支”。因为梁的箍筋有的需要加密有的不需要，所以得要两套代码。大哥，显示出来的文字要固定字高，麻烦你了。

st788796 · 发表于 2013-11-22 19:07:04

hphkjz 发表于 2013-11-22 18:42
大哥，我的意思是编制两个代码，一个代码用公式1，一个代码用公式2。得出来的数套进“箍筋支”中，显 ...

(defun c:tt (/ callback p1 p2 h l txt)
(defun callback (dynpt /)
(xdrx_entity_move txt p1 dynpt)
(setq p1 dynpt)
)
(if (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
(setq H (getdist p1 "\nHeight: "))
)
(progn
(XD::Begin)
(setq l (fix (+ 0.5 (/ (distance p1 p2) 200)))
txt (xdrx_text_make
p1
(strcat "箍筋 " (itoa l) " 支")
3.5;_字高
0.
)
)
(xdrx_pointmonitor "Callback" txt)
(getpoint)
(xdrx_pointmonitor)
(XD::End)
)
)
(princ)
)
(defun c:tt1 (/ callback p1 p2 h l txt)
(defun callback (dynpt /)
(xdrx_entity_move txt p1 dynpt)
(setq p1 dynpt)
)
(if (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
(setq H (getdist p1 "\nHeight: "))
)
(progn
(XD::Begin)
(setq l (fix (+ 0.5 (/ (+ (distance p1 p2) (* H 3)) 200)))
txt (xdrx_text_make
p1
(strcat "箍筋 " (itoa l) " 支")
3.5;_字高
0.
)
)
(xdrx_pointmonitor "Callback" txt)
(getpoint)
(xdrx_pointmonitor)
(XD::End)
)
)
(princ)
)

(defun c:tt (/ callback p1 p2 h l txt) 
  (defun callback (dynpt /) 
    (xdrx_entity_move txt p1 dynpt) 
    (setq p1 dynpt) 
  ) 
  (if (and (setq p1 (getpoint "\nFirst Point: ")) 
           (setq p2 (getpoint p1 "\nSecond Point: ")) 
           (setq H (getdist p1 "\nHeight: ")) 
      ) 
    (progn 
      (XD::Begin) 
      (setq l        (fix (+ 0.5 (/ (distance p1 p2) 200))) 
            txt        (xdrx_text_make 
                  p1 
                  (strcat "箍筋 " (itoa l) " 支") 
                  3.5;_字高 
                  0. 
                ) 
      ) 
      (xdrx_pointmonitor "Callback" txt) 
      (getpoint) 
      (xdrx_pointmonitor) 
      (XD::End) 
    ) 
  ) 
  (princ) 
) 
(defun c:tt1 (/ callback p1 p2 h l txt) 
  (defun callback (dynpt /) 
    (xdrx_entity_move txt p1 dynpt) 
    (setq p1 dynpt) 
  ) 
  (if (and (setq p1 (getpoint "\nFirst Point: ")) 
           (setq p2 (getpoint p1 "\nSecond Point: ")) 
           (setq H (getdist p1 "\nHeight: ")) 
      ) 
    (progn 
      (XD::Begin) 
      (setq l        (fix (+ 0.5 (/ (+ (distance p1 p2) (* H 3)) 200))) 
            txt        (xdrx_text_make 
                  p1 
                  (strcat "箍筋 " (itoa l) " 支") 
                  3.5;_字高 
                  0. 
                ) 
      ) 
      (xdrx_pointmonitor "Callback" txt) 
      (getpoint) 
      (xdrx_pointmonitor) 
      (XD::End) 
    ) 
  ) 
  (princ) 
)

hphkjz · 发表于 2013-11-22 20:25:04

st788796 发表于 2013-11-22 19:07

大哥，我试了试，完美运行，非常不错，只是第一个代码不需要再输入高了，直接需要长度就可以了，我把其中输入高的那段代码删掉了，不影响结果，哥编的代码非常的棒。
哥，还有个代码根这个很类似，叫板钢筋间距，具体是：
水平钢筋间距，依次点击A点和B点，得到长度，长度/200，得到num，在屏幕上显示num支，文字要是水平的
竖直钢筋间距，依次点击1点和2点，得到长度，长度/200，得到num，在屏幕上显示num支，但文字方向一定要是水平方向逆时针旋转90度
说白了就是梁箍筋间距的一个延伸，只是文字方向有要求，大哥不要分开编，不管水平还是竖直都编在一个代码里，电脑自动识别是水平还是竖直，好吗？大哥
如图所示：

st788796 · 发表于 2013-11-22 21:15:03

(defun c:tt (/ callback p1 p2 txt)
(defun callback (dynpt /)
(xdrx_entity_move txt p1 dynpt)
(setq p1 dynpt)
)
(xd::begin)
(while (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
)
(setq txt
(xdrx_text_make
p1
(strcat (itoa (fix (+ 0.5 (/ (distance p1 p2) 200)))) "支")
3.5 ;_Text heiht
(XD::Geom:AngleFormat (angle p1 p2))
)
)
(xdrx_pointmonitor "Callback" txt)
(getpoint)
(xdrx_pointmonitor)
)
(xd::end)
(princ)
)

hphkjz · 发表于 2013-11-22 23:44:17

st788796 发表于 2013-11-22 21:15

哥，不好意思，出来的结果是对的，就是文字方向修改一下，量水平方向的长度出来的文字逆时针旋转90° 量竖直方向的长度文字方向是水平的。

st788796 · 发表于 2013-11-23 07:49:40

hphkjz 发表于 2013-11-22 23:44
哥，不好意思，出来的结果是对的，就是文字方向修改一下，量水平方向的长度出来的文字逆时针旋转90° ...

(XD::Geom:AngleFormat (angle p1 p2))
->
(XD::Geom:AngleFormat (+ (* pi 0.5) (angle p1 p2)))

hphkjz · 发表于 2013-11-23 09:07:38

st788796 发表于 2013-11-23 07:49
(XD::Geom:AngleFormat (angle p1 p2))
->
(XD::Geom:AngleFormat (+ (* pi 0.5) (angle p1 p2)))

哥，我改了之后运行出现了bug,显示:输入的字符串有缺陷。

hphkjz · 发表于 2013-11-23 13:14:32

st788796 发表于 2013-11-23 07:49
(XD::Geom:AngleFormat (angle p1 p2))
->
(XD::Geom:AngleFormat (+ (* pi 0.5) (angle p1 p2)))

哥，是少个参数？还是怎么回事呢？

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

[求助] 梁箍筋数量代码

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

点评

点评

点评

点评

点评

点评

点评

点评