[求助]：画角钢平面图

lzyscgy · 发表于 2005-7-16 01:09:27

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

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

×

经常画角钢结构平面图，那位DX能不能提供程序，一笔旧画出角钢的中心线、边线、虚线。

zhynt · 发表于 2005-7-18 02:41:44

想了一下，
需要输入一下条件（交互输入）
肢长(b)/壁厚(h)/正反(z)/上下(p)/<下一点:>

zhynt · 发表于 2005-7-18 03:24:06

先来个简单的：
[php]
(defun C:jiaogang ()
  (setq oldla (getvar "CLAYER"))
  (setq pt1 (getpoint "\n角钢的起点:"))
  (setq pt2 (getpoint pt1 "\n角钢的下一点:"))

  (setq pt3 (polar pt1 (+ (angle pt1 pt2) (* 0.5 pi)) 35)
pt4 (polar pt1 (+ (angle pt1 pt2) (* 1.5 pi)) 15)
pt5 (polar pt2 (+ (angle pt1 pt2) (* 0.5 pi)) 35)
pt6 (polar pt2 (+ (angle pt1 pt2) (* 1.5 pi)) 15)
pt7 (polar pt4 (+ (angle pt1 pt2) (* 0.5 pi)) 5)
pt8 (polar pt6 (+ (angle pt1 pt2) (* 0.5 pi)) 5)
  )
  (command "layer" "m" "角钢中心线" "c" 1 "" "")
  (command "line" pt1 pt2 "")
  (command "layer" "m" "角钢" "c" 2 "" "")
  (command "line" pt3 pt4 pt6 pt5 "c")
  (command "layer" "m" "角钢肢" "c" 4 "" "")
  (command "line" pt7 pt8 "")
  (setvar "CLAYER" oldla)
)
[/php]

coolzhb · 发表于 2005-7-18 09:16:48

很多结构的外挂程序都可以，asde和tssd推荐！

lzyscgy · 发表于 2005-7-18 10:43:46

非常感谢大家！但我在加载zhynt的软时运行CLAYER时，命令行提示“输入CLAYER的新值<"0">”,然后试输数字或点坐标显示无效，鼠标在屏幕上也不起作用，不知如何使用，麻烦zhynt斑竹在告知。

zhynt · 发表于 2005-7-18 22:44:25

用"jiaogang"命令运行

lzyscgy · 发表于 2005-7-18 23:11:19

再次感谢热心的zhynt斑竹！我用jiaogang成功了，zhynt斑竹不愧为当代活雷锋！！

PFD8667 · 发表于 2005-7-19 06:13:09

这程序无尺寸标注能不能编一个角钢断面.

zhynt · 发表于 2005-7-20 00:49:26

[php]
(defun C:jiaogang (/ pt1 pt2 pt3 pt4 oldla oldos)
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (if (= (tblsearch "LTYPE" "center") nil)
(command "linetype" "l" "center" "" "")
  )
  (if (= (tblsearch "LTYPE" "dashed") nil)
(command "linetype" "l" "dashed" "" "")
  )
  (defun init ()
(if (= kuandu nil)
   (setq kuandu 50)
)
(if (= sc nil)
   (setq sc 10)
)
(if (= sx nil)
   (setq sx 1)
)
(if (= zf nil)
   (setq zf 1)
)
  )
  (init)
  (setq oldla (getvar "CLAYER"))
  (setq oldos (getvar "osmode"))
  (SETQ pt1 (getpoint "\n指定起点:")
  )
  (setq pt2 t)
  (while (and (/= pt2 "X") (/= pt2 "x") (/= nil))
(prompt (strcat "\n当前：[宽度："
      (rtos kuandu)
      "][比例：1:"
      (rtos sc)
      "][角钢肢在"
      (if (= sx 0)
      "上面"
      "下面"
      )
      "][角钢的"
      (if (= zf 1)
      "正面"
      "反面"
      )
      "画法]"
      )
)
(initget "W S A Z X")
(setq
   pt2
   (getpoint
   pt1
   "\n指定下一点或 [宽度(W)/比例(S)/上下(A)/正反(Z)/退出(X)]:"
   )
)
(cond
   ((= pt2 "W")
   (setq kuandu (getreal "\n输入角钢的宽度<50>"))
   )
   ((= pt2 "S")
   (setq sc (getreal "\n输入绘制比例1:<10>"))
   )
   ((= pt2 "A")
   (setq sx (getreal "\n角钢肢在下面(1)/在上面(0):<1>"))
   )
   ((= pt2 "Z")
   (setq zf (getreal "\n角钢是正(1)/还是反(0):<1>"))
   )
   ((listp pt2)
   (if (/= pt2 nil)
   (progn
   (init)
   (if (= sx 1)
      (setq ang (angle pt1 pt2))
      (setq ang (angle pt2 pt1))
   )
   (setvar "osmode" 0)
   (setvar "cmdecho" 0)
   (command "layer"  "m"    "角钢中心线" "c"
      1       ""       "lt"    "center" ""
      ""
   )
   (command "line" pt1 pt2 "")
   (command "layer" "m" "角钢" "c" 2 "" "")
   (command "line"
      (polar pt1
   (+ ang (* 0.5 pi))
   (* (/ 100.0 sc) (/ (* 7 kuandu) 10.0))
      )
      (setq pt3 (polar pt1
      (+ ang (* 1.5 pi))
      (* (/ 100.0 sc) (/ (* 3 kuandu) 10.0))
      )
      )
      (setq pt4 (polar pt2
      (+ ang (* 1.5 pi))
      (* (/ 100.0 sc) (/ (* 3 kuandu) 10.0))
      )
      )
      (polar pt2
   (+ ang (* 0.5 pi))
   (* (/ 100.0 sc) (/ (* 7 kuandu) 10.0))

      )
      "c"
   )
   (if (= zf 1)
      (command "layer" "m" "角钢肢正" "c" 4 "" "")
      (command "layer"  "m" "角钢肢反"    "c"
      4          "" "lt"    "dashed" ""
      ""
      )
   )
   (command "line"
      (polar pt3 (+ ang (* 0.5 pi)) (* (/ 100.0 sc) 5))
      (polar pt4 (+ ang (* 0.5 pi)) (* (/ 100.0 sc) 5))
      ""
   )
   (setq pt1 pt2)
   (setvar "CLAYER" oldla)
   (setvar "osmode" oldos)
   (setvar "cmdecho" cmd)
   )
   )
   )
)
  )
)
[/php]

PFD8667 · 发表于 2005-7-20 07:18:55

斑竹
我用了怎么还是不能标注大小呢?最好有角钢断面.

freedomyang · 发表于 2005-7-20 17:47:10

角钢心线和厚度可以输入调整吗？

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

[求助] [求助]：画角钢平面图

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

相关帖子