道亨电力电缆计算软件也可以进行电缆护套感应计算，手算还是有些麻烦。程序计算就快多了
网友答: 本帖最后由 qifeifei 于 2025-12-13 10:59 编辑
可以试试用dcl输入；或者用net；效果更好。
- (defun c:tt (/ p1 p2 p3 IA L1 GMRs m n S mS nS Ea-x Ea-y Eb-x Eb-y Ec-x Ec-y)
- (setq p1 (getpoint "\n 指定A相电缆中心："))
- (setq p2 (getpoint p1 "\n 指定B相电缆中心："))
- (setq p3 (getpoint p2 "\n 指定C相电缆中心："))
- (grdraw p1 p2 1 1)
- (grdraw p2 p3 1 1)
- (grdraw p1 p3 1 1)
- (setq IA (getreal "\n请输入电缆导体正常工作电流（A）："))
- (setq L1 (getreal "\n请输入电缆分段长度（m）："))
- (setq GMRs (getreal "\n请输入金属护套的几何平均半径（mm）："))
- (setq S (distance p1 p2) mS (distance p2 p3) nS (distance p1 p3))
- (setq m (/ mS S) n (/ nS s))
- (setq Ea-x (* pi IA 0.00001 (log n) (sqrt 3) L1))
- (setq Ea-y (* pi IA 0.00001 (log (/ (* n S S) GMRs GMRs)) L1))
- (setq Eb-x (* pi IA 0.00001 (log (/ mS GMRs)) (sqrt 3) L1))
- (setq Eb-y (* pi IA -0.00001 (log (/ S m GMRs)) L1))
- (setq Ec-x (* pi IA -0.00001 (log (/ mS GMRs)) (sqrt 3) L1))
- (setq Ec-y (* pi IA -0.00001 (log (/ (* n nS) m GMRs)) L1))
- (princ (strcat "Ea=" (rtos Ea-x 2 2) "+" (rtos Ea-y 2 2) "i(V)"))
- (princ (strcat "\n" "Eb=" (rtos Eb-x 2 2) (rtos Eb-y 2 2) "i(V)"))
- (princ (strcat "\n" "Ec=" (rtos Ec-x 2 2) (rtos Ec-y 2 2) "i(V)"))
- (princ)
- )
网友答: 本帖最后由 qifeifei 于 2025-12-13 10:59 编辑
可以试试用dcl输入；或者用net；效果更好。