突发奇想,用lisp模拟电缆裕度曲拉伸效果,弯曲半径1900mm,直径86mm。
一直按回车键则一直拉伸,直到完全平直。再回车则再次循环该动画。代码如下
  1. (defun c:tt  (/ R L1 Lt H a1 p1 p2 p3 p4 p6 p7 p8 p9 p10 Lx)
  2.   (setq R 1900)                          ;设置弯曲半径(mm)
  3.   (setq L1 1000)                        ;设置直线段初始长度(mm)
  4.   (setq Lt (+ (* 2 L1) (* 2 pi R)))
  5.   (setq  p1 '(0 0)
  6.         p2 '(1000 0)
  7.         p3 '(1000 1900)
  8.   )
  9.   (setq H 3800)
  10.   (while (>= H 0)
  11.     (setq a1 (atan (- (* R 2) H) (sqrt (- (* R H 4) (* H H)))))
  12.     (setq p4 (polar p3 (* a1 -1) R))
  13.     (setq p6 (polar p3 (* a1 -1) (* R 2)))
  14.     (setq p7 (polar p6 a1 R))
  15.     (setq p8 (polar p6 a1 (* R 2)))
  16.     (setq p9 (polar p8 (* pi -0.5) R))
  17.     (setq Lx (- Lt (* pi R 2) (* a1 R -4) 1000))
  18.     (setq p10 (polar p9 0 Lx))
  19.     (command "PLINE" p1  "W"  86 86  p2 "A" "CE"  p3 p4  p7 "CE"  p8 p9  "L"
  20.              p10 "")
  21.     (if  (tt2)
  22.       (progn
  23.         (entdel (entlast))
  24.         (setq H (- H 50))
  25.       )
  26.       (exit)
  27.     )
  28.   )
  29.   (princ)
  30. )

  31. (defun tt2 (/ s)
  32.   (setq s (getstring t "\n按Enter键拉伸"))
  33.   (cond
  34.     ((= s "") T)
  35.     (T nil)
  36.   )
  37. )




网友答: 本帖最后由 yjwht 于 2025-12-25 08:36 编辑

1)补充一张示意图,便于理解。另外,说一下裕度弯拉伸的实际意义。
2)一般10kV、35kV电缆均在户外设置电缆盘井,用不到这个Ω形裕度弯。
3)但110kV电缆在电缆夹层内可设置这个裕度弯,用于GIS电缆终端损坏时重做电缆头。一般考虑做两次电缆头的预留长度。
    以110kV 1*500mm2电缆为例,外径约95mm(上面86mm是10kV 3*300mm2的铠装电缆,需修改),弯曲半径1900mm。
    我们需要计算采用多大弯曲半径、多高的拱形才能满足这个预留长度(该型号暂按2米做一次电缆头)。

    还需考虑三种情况(最大拱高,放出一次或二次电缆头的量)下电缆路径与夹层内10kV支架(顶天立地式)不冲突。
    以前是采用WPS表格做简单计算,现在可以动态调整得到实际弯曲多段线,直接定点粘贴到实际位置。
4)下一步需改为左方向键小幅减少拱高,右方向小幅增加;上方向键大幅增加,下方向大幅减少。
    另外将每次调整后的拱高、拉伸量、还剩余的预留量显示出来。


网友答: 专业人士干专业
  • 上一篇:URL编码转换URLencode
  • 下一篇:没有了