突发奇想,用lisp模拟电缆裕度曲拉伸效果,弯曲半径1900mm,直径86mm。
一直按回车键则一直拉伸,直到完全平直。再回车则再次循环该动画。代码如下

网友答: 本帖最后由 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)下一步需改为左方向键小幅减少拱高,右方向小幅增加;上方向键大幅增加,下方向大幅减少。
另外将每次调整后的拱高、拉伸量、还剩余的预留量显示出来。
网友答: 专业人士干专业
一直按回车键则一直拉伸,直到完全平直。再回车则再次循环该动画。代码如下

- (defun c:tt (/ R L1 Lt H a1 p1 p2 p3 p4 p6 p7 p8 p9 p10 Lx)
- (setq R 1900) ;设置弯曲半径(mm)
- (setq L1 1000) ;设置直线段初始长度(mm)
- (setq Lt (+ (* 2 L1) (* 2 pi R)))
- (setq p1 '(0 0)
- p2 '(1000 0)
- p3 '(1000 1900)
- )
- (setq H 3800)
- (while (>= H 0)
- (setq a1 (atan (- (* R 2) H) (sqrt (- (* R H 4) (* H H)))))
- (setq p4 (polar p3 (* a1 -1) R))
- (setq p6 (polar p3 (* a1 -1) (* R 2)))
- (setq p7 (polar p6 a1 R))
- (setq p8 (polar p6 a1 (* R 2)))
- (setq p9 (polar p8 (* pi -0.5) R))
- (setq Lx (- Lt (* pi R 2) (* a1 R -4) 1000))
- (setq p10 (polar p9 0 Lx))
- (command "PLINE" p1 "W" 86 86 p2 "A" "CE" p3 p4 p7 "CE" p8 p9 "L"
- p10 "")
- (if (tt2)
- (progn
- (entdel (entlast))
- (setq H (- H 50))
- )
- (exit)
- )
- )
- (princ)
- )
- (defun tt2 (/ s)
- (setq s (getstring t "\n按Enter键拉伸"))
- (cond
- ((= s "") T)
- (T nil)
- )
- )
网友答: 本帖最后由 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)下一步需改为左方向键小幅减少拱高,右方向小幅增加;上方向键大幅增加,下方向大幅减少。
另外将每次调整后的拱高、拉伸量、还剩余的预留量显示出来。
网友答: 专业人士干专业