分布筋长度代码

hphkjz · 发表于 2013-11-24 10:22:48

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

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

×

请求编制一个分布筋长度的lisp代码，规则如图片：

st788796 · 发表于 2013-11-24 10:42:19

1 以后申请帖发 "编程申请" 分坛
2 直接画Num2, 无需先画总长

hphkjz · 发表于 2013-11-24 11:06:10

st788796 发表于 2013-11-24 10:42
1 以后申请帖发 "编程申请" 分坛
2 直接画Num2, 无需先画总长

哥，我记住了，以后就去编程申请分坛。哥，要是直接画num2的话我就不用这么麻烦了，问题是不能直接画num2，只能先画一条直线，再把两头去掉留下中间的。哥，这个代码好编码？不行的话在num1和num3先打断再删掉。哥，你看如何？

st788796 · 发表于 2013-11-24 11:31:13

hphkjz 发表于 2013-11-24 11:06
哥，我记住了，以后就去编程申请分坛。哥，要是直接画num2的话我就不用这么麻烦了，问题是不能直接画num2 ...

为什么不能直接画中间的？不懂结构
如果可以，做个演示贴上来

(defun c:tt (/ p1 p2 n1 n3 d an pcen txt h pl)
(if (setq h (getdist (strcat "\nTextHeight<"
(rtos (getvar "textsize") 2 2)
">: "
)
)
)
(setvar "textsize" h)
(setq h (getvar "textsize"))
)
(while
(and
(setq p1 (getpoint "\nFirst Point<Exit>: "))
(setq p2 (getpoint p1 "\nSecond Point<Exit>: "))
(setq pl (xdrx_polyline_make p1 p2))
(or (setq N1 (getdist p1 "\nNum1 dist<Exit>: "))
(progn (xdrx_entity_delete pl) nil)
)
(progn
(if (not
(setq
N3 (getdist p2
(strcat "\nNum3 dist<" (rtos n1 2 0) ">: ")
)
)
)
(setq n3 n1)
)
t
)
)
(setq d (distance p1 p2)
an (XD::Geom:AngleFormat (angle p1 p2))
pcen (xdrx_line_midp p1 p2)
)
(setq txt (xdrx_text_make
pcen
(strcat "分布筋" (rtos n1 2 0) "+300")
(getvar "textsize")
an
)
)
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 1)
(setq txt (xdrx_text_make
pcen
(rtos d 2 0)
(getvar "textsize")
an
)
)
(xdrx_text_setvermode txt 3)
(xdrx_text_sethozmode txt 1)
)
(princ)
)

(defun c:tt (/ p1 p2 n1 n3 d an pcen txt h pl) 
  (if (setq h (getdist (strcat "\nTextHeight<" 
                               (rtos (getvar "textsize") 2 2) 
                               ">: " 
                       ) 
              ) 
      ) 
    (setvar "textsize" h) 
    (setq h (getvar "textsize")) 
  ) 
  (while 
    (and 
      (setq p1 (getpoint "\nFirst Point<Exit>: ")) 
      (setq p2 (getpoint p1 "\nSecond Point<Exit>: ")) 
      (setq pl (xdrx_polyline_make p1 p2)) 
      (or (setq N1 (getdist p1 "\nNum1 dist<Exit>: ")) 
          (progn (xdrx_entity_delete pl) nil) 
      ) 
      (progn 
        (if (not 
              (setq 
                N3 (getdist p2 
                            (strcat "\nNum3 dist<" (rtos n1 2 0) ">: ") 
                   ) 
              ) 
            ) 
          (setq n3 n1) 
        ) 
        t 
      ) 
    ) 
     (setq d        (distance p1 p2) 
           an        (XD::Geom:AngleFormat (angle p1 p2)) 
           pcen        (xdrx_line_midp p1 p2) 
     ) 
     (setq txt (xdrx_text_make 
                 pcen 
                 (strcat "分布筋" (rtos n1 2 0) "+300") 
                 (getvar "textsize") 
                 an 
               ) 
     ) 
     (xdrx_text_setvermode txt 1) 
     (xdrx_text_sethozmode txt 1) 
     (setq txt (xdrx_text_make 
                 pcen 
                 (rtos d 2 0) 
                 (getvar "textsize") 
                 an 
               ) 
     ) 
     (xdrx_text_setvermode txt 3) 
     (xdrx_text_sethozmode txt 1) 
  ) 
  (princ) 
)

hphkjz · 发表于 2013-11-24 11:57:01

st788796 发表于 2013-11-24 11:31
为什么不能直接画中间的？不懂结构
如果可以，做个演示贴上来

哥，意思就是这条直线就是钢筋，分成三段，两头的两段搭在梁上，中间的这段又搭在它两头的钢筋上，搭接一边150。所以它的长度要加300

菜菜学ODCL · 发表于 2013-11-24 12:03:50

hphkjz 发表于 2013-11-24 11:57
哥，意思就是这条直线就是钢筋，分成三段，两头的两段搭在梁上，中间的这段又搭在它两头的钢筋上，搭接一 ...

是啊，为什么要画出来然后输入长度后裁剪下去呢，直接画出中间的，然后根据你输入的两边长度直接写文字不行吗？

hphkjz · 发表于 2013-11-24 12:13:04

菜菜学ODCL 发表于 2013-11-24 12:03
是啊，为什么要画出来然后输入长度后裁剪下去呢，直接画出中间的，然后根据你输入的两边长度直接写文字不 ...

兄弟，这个我觉得需要这条线的总长，不画出来也行，但一定要鼠标点击两边的点，然后输入num1和num3，cad自动运算得出num2，这样也行。但是中间的这条线必须要画出来且放在中间

菜菜学ODCL · 发表于 2013-11-24 12:18:20

hphkjz 发表于 2013-11-24 12:13
兄弟，这个我觉得需要这条线的总长，不画出来也行，但一定要鼠标点击两边的点，然后输入num1和num3，cad ...

中间这条线不是图中画好的，只是要标注吗？

hphkjz · 发表于 2013-11-24 12:25:58

菜菜学ODCL 发表于 2013-11-24 12:18
中间这条线不是图中画好的，只是要标注吗？

不是，只是相当于给了两头的点，好引出中间的线，分布筋嘛，都是在中间布置的呀！

newer · 发表于 2013-11-24 12:47:26

hphkjz 发表于 2013-11-24 12:25
不是，只是相当于给了两头的点，好引出中间的线，分布筋嘛，都是在中间布置的呀！

我觉得，你最好还是用录像软件，把你操作的过程画一遍，传上来比较好。

hphkjz · 发表于 2013-11-24 12:51:52

st788796 发表于 2013-11-24 11:31
为什么不能直接画中间的？不懂结构
如果可以，做个演示贴上来

哥，我试了一下，有些地方得稍作修改，字高在代码里要固定，先要把这条直线画出来，得到总长num，然后分别输入num1和num3，num2=num－num1－num3 然后把两头的线删掉，留下中间的num2长的线，然后在线上显示:分布筋num4 （num4=num2+300）不知道哥懂我的意思了没有

q3_2006 · 发表于 2013-11-24 13:07:44

本帖最后由 q3_2006 于 2013-11-24 13:17 编辑

hphkjz 发表于 2013-11-24 12:51
哥，我试了一下，有些地方得稍作修改，字高在代码里要固定，先要把这条直线画出来，得到总长num，然后分 ...

上GIF。。。你这样别人看不明白的。。上DWG测试

st788796 · 发表于 2013-11-24 13:12:07

hphkjz 发表于 2013-11-24 12:51
哥，我试了一下，有些地方得稍作修改，字高在代码里要固定，先要把这条直线画出来，得到总长num，然后分 ...

你这样问太让人不好理解，不是搞结构的

(defun c:tt (/ p1 p2 n1 n3 d an pcen txt h pl)
(while
(and
(setq p1 (getpoint "\nFirst Point<Exit>: "))
(setq p2 (getpoint p1 "\nSecond Point<Exit>: "))
(progn (grdraw p1 p2 1) t)
(setq N1 (getdist p1 "\nNum1 dist<Exit>: "))
(progn
(if (not
(setq
N3 (getdist p2
(strcat "\nNum3 dist<" (rtos n1 2 0) ">: ")
)
)
)
(setq n3 n1)
)
(xdrx_polyline_make
(setq p1 (polar p1 (angle p1 p2) n1))
(setq p2 (polar p2 (angle p2 p1) n3))
)
)
)
(setq an (XD::Geom:AngleFormat (angle p1 p2))
pcen (xdrx_line_midp p1 p2)
)
(setq txt (xdrx_text_make
pcen
(strcat "分布筋" (rtos (+ (distance p1 p2) 300) 2 0))
(getvar "textsize");_字高自己设定
an
)
)
(xdrx_text_setvermode txt 1)
(xdrx_text_sethozmode txt 1)
(redraw)
)
(princ)
)

(defun c:tt (/ p1 p2 n1 n3 d an pcen txt h pl) 
  (while 
    (and 
      (setq p1 (getpoint "\nFirst Point<Exit>: ")) 
      (setq p2 (getpoint p1 "\nSecond Point<Exit>: ")) 
      (progn (grdraw p1 p2 1) t) 
      (setq N1 (getdist p1 "\nNum1 dist<Exit>: ")) 
      (progn 
        (if (not 
              (setq 
                N3 (getdist p2 
                            (strcat "\nNum3 dist<" (rtos n1 2 0) ">: ") 
                   ) 
              ) 
            ) 
          (setq n3 n1) 
        ) 
        (xdrx_polyline_make 
          (setq p1 (polar p1 (angle p1 p2) n1)) 
          (setq p2 (polar p2 (angle p2 p1) n3)) 
        ) 
      ) 
    ) 
     (setq an        (XD::Geom:AngleFormat (angle p1 p2)) 
           pcen        (xdrx_line_midp p1 p2) 
     ) 
     (setq txt (xdrx_text_make 
                 pcen 
                 (strcat "分布筋" (rtos (+ (distance p1 p2) 300) 2 0)) 
                 (getvar "textsize");_字高自己设定 
                 an 
               ) 
     ) 
     (xdrx_text_setvermode txt 1) 
     (xdrx_text_sethozmode txt 1) 
     (redraw) 
  ) 
  (princ) 
)

hphkjz · 发表于 2013-11-24 13:57:38

st788796 发表于 2013-11-24 13:12
你这样问太让人不好理解，不是搞结构的

哥，我试了，就是这样子的。谢谢呐。就是不知道“字高自己设定在哪儿设定，我把textsize改成数字不管用”

st788796 · 发表于 2013-11-24 14:00:39

hphkjz 发表于 2013-11-24 13:57
哥，我试了，就是这样子的。谢谢呐。就是不知道“字高自己设定在哪儿设定，我把textsize改成数字不管用”

把 (getvar "textsize") 改成数字

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

[求助] 分布筋长度代码

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评