AutoLISP在梁上墙载计算中的应用__墨水学术,论文发表,发表论文,(2)

分类：推荐论文 时间：关注：(1)

bsp;     Qw      txt_ag     tp1    txt_p       ltchk
           laychk
          )
;;;保存系统变量
  (setq pw_old (getvar "plinewid"))
  (setq osm_old (getvar "osmode"))
  (setq lay_old (getvar "clayer"))
;;;相关参数输入部分
  (setvar "osmode" 545)
  (princ "\n请点取墙的两端点:")
  (initget 1)
  (setq wall_p1 (getpoint "\n第一点:"))
  (initget 1)
  (setq wall_p2 (getpoint wall_p1 "\n第二点:"))
  (setq wall_l (/ (distance wall_p1 wall_p2) 1000.0))
  (if (= *wall_h0* nil)
    (setq *wall_h0* 3.0)
  )
  (if (= *wall_p0* nil)
    (setq *wall_p0* 4.0)
  )
  (if (= *window_p0* nil)
    (setq *window_p0* 0.5)
  )
  (princ
    (strcat "\n请输入墙高(单位:m)<" (rtos *wall_h0* 2 3) ">:")
  )
  (initget 4)
  (setq wall_h (getreal))
  (if (= wall_h nil)
    (setq wall_h *wall_h0*)
    (setq *wall_h0* wall_h)
  )
  (initget 4)
  (princ (strcat "\n请输入墙面荷载(单位:KN/㎡)<"
         (rtos *wall_p0* 2 3)
         ">:"
     )
  )
  (setq wall_p (getreal))
  (if (= wall_p nil)
    (setq wall_p *wall_p0*)
    (setq *wall_p0* wall_p)
  )
  (initget 4)
  (princ "\n请输入门窗宽(单位:m)<0.0>:")
  (setq window_b (getreal))
  (if (= window_b nil)
    (setq window_b 0.0)
  )
  (initget 4)
  (princ "\n请输入门窗高(单位:m)<0.0>:")
  (setq window_h (getreal))
  (if (= window_h nil)
    (setq window_h 0.0)
  )
  (initget 4)
  (princ (strcat "\n请输入门窗面荷载(单位:KN/㎡)<"
         (rtos *window_p0* 2 3)
         ">:"
    &

• 共4页:
• 上一页
• 1
• 2
• 3
• 4
• 下一页