电缆护套感应计算

yjwht

再优化一下，合并DCL与LSP：

1. (defun NP_DCL (/ Dcl_File file str)
   
2.   (setq        file
   
3.          (open
   
4.            (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".DCL"))
   
5.            "w"
   
6.          )
   
7.   )
   
8.   (foreach str '("cable_calc : dialog {"
   
9.                  "    label = \"电缆感应电动势计算\";"
   
10.                  "    :boxed_column {"
    
11.                  "        label = \"电气参数\";"
    
12.                  "        alignment = centered;"
    
13.                  "        :edit_box {"
    
14.                  "            key = \"IA\";"
    
15.                  "            label = \"正常工作电流(A)：\";"
    
16.                  "            value = \"100\";"
    
17.                  "            width = 25;"
    
18.                  "            fixed_width = true;"
    
19.                  "            edit_limit = 10;"
    
20.                  "        }"
    
21.                  "        :edit_box {"
    
22.                  "            key = \"L1\";"
    
23.                  "            label = \"电缆分段长度(m)：\";"
    
24.                  "            value = \"100\";"
    
25.                  "            width = 25;"
    
26.                  "            fixed_width = true;"
    
27.                  "            edit_limit = 10;"
    
28.                  "        }"
    
29.                  "        :edit_box {"
    
30.                  "            key = \"GMRs\";"
    
31.                  "            label = \"金属护套几何平均半径(mm)：\";"
    
32.                  "            value = \"50\";"
    
33.                  "            width = 25;"
    
34.                  "            fixed_width = true;"
    
35.                  "            edit_limit = 10;"
    
36.                  "        }"
    
37.                  "    }"
    
38.                  ""
    
39.                  "    spacer_1;"
    
40.                  "    ok_cancel;"
    
41.                  "}"
    
42.                  ""
    
43.                  "  "
    
44.                 )
    
45.     (write-line str file)
    
46.   )
    
47.   (close file)
    
48.   tmp-dcl-file-name
    
49. )
    
50. 
    
51. (defun c:tt (/ dcl_id dd p1 p2 p3 IA L1 GMRs m n S mS nS
    
52.               Ea-x Ea-y Eb-x Eb-y Ec-x Ec-y)
    
53. 
    
54.   ;; 在调用对话框前先指定三相电缆中心
    
55.   (setq p1 (getpoint "\n指定A相电缆中心："))
    
56.   (setq p2 (getpoint p1 "\n指定B相电缆中心："))
    
57.   (setq p3 (getpoint p2 "\n指定C相电缆中心："))
    
58. 
    
59.   ;; 加载并显示对话框
    
60.   (setq dcl_id (load_dialog (setq Dcl_File (NP_DCL))))
    
61.   (vl-file-delete Dcl_File)
    
62.   (if (not (new_dialog "cable_calc" dcl_id))
    
63.     (progn
    
64.       (alert "对话框加载失败！")
    
65.       (unload_dialog dcl_id)
    
66.       (exit)
    
67.     )
    
68.   )
    
69. 
    
70.   ;;事件处理
    
71.   (action_tile "accept" "(tt1)(done_dialog 1)")
    
72.   (action_tile "cancel" "(done_dialog 0)")
    
73.   
    
74.   ;; 显示对话框并获取用户输入
    
75.   (setq dd (start_dialog))
    
76.   (unload_dialog dcl_id)
    
77. 
    
78.   ;; 确定后计算并输出
    
79.   (if (= dd 1)
    
80.     (tt2)
    
81.   )
    
82. 
    
83.   (princ)
    
84. )
    
85. 
    
86. (defun tt1()
    
87.     ;; 获取输入参数并转换为数值类型
    
88.   (setq IA (atof (get_tile "IA"))
    
89.         L1 (atof (get_tile "L1"))
    
90.         GMRs (atof (get_tile "GMRs")))
    
91. )
    
92. 
    
93. (defun tt2()
    
94.   ;; 绘制三相电缆中心线
    
95.   (grdraw p1 p2 1 1)
    
96.   (grdraw p2 p3 1 1)
    
97.   (grdraw p1 p3 1 1)
    
98.   
    
99.   ;; 计算距离参数
    
100.   (setq S (distance p1 p2)
     
101.         mS (distance p2 p3)
     
102.         nS (distance p1 p3)
     
103.         m (/ mS S)
     
104.         n (/ nS S))
     
105.   
     
106.   ;; 计算各相感应电动势分量
     
107.   (setq Ea-x (* pi IA 0.00001 (log n) (sqrt 3) L1)
     
108.         Ea-y (* pi IA 0.00001 (log (/ (* n S S) (* GMRs GMRs))) L1)
     
109.         Eb-x (* pi IA 0.00001 (log (/ mS GMRs)) (sqrt 3) L1)
     
110.         Eb-y (* pi IA -0.00001 (log (/ S (* m GMRs))) L1)
     
111.         Ec-x (* pi IA -0.00001 (log (/ mS GMRs)) (sqrt 3) L1)
     
112.         Ec-y (* pi IA -0.00001 (log (/ (* n nS) (* m GMRs))) L1))
     
113. 
     
114.   ;; 格式化输出结果
     
115.   (princ "\n===== 电缆感应电动势计算结果 =====")
     
116.   (princ (strcat "\nEa = " (rtos Ea-x 2 2) "+" (rtos Ea-y 2 2) "i(V)"))
     
117.   (princ (strcat "\nEb = " (rtos Eb-x 2 2) (rtos Eb-y 2 2) "i(V)"))
     
118.   (princ (strcat "\nEc = " (rtos Ec-x 2 2) (rtos Ec-y 2 2) "i(V)"))
     
119.   (princ "\n====================================\n")
     
120. 
     
121.   (princ)
     
122. )

(defun NP_DCL (/ Dcl_File file str)<br />   (setq        file<br />          (open<br />            (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".DCL"))<br />            "w"<br />          )<br />   )<br />   (foreach str '("cable_calc : dialog {"<br />                  "    label = \"电缆感应电动势计算\";"<br />                  "    :boxed_column {"<br />                  "        label = \"电气参数\";"<br />                  "        alignment = centered;"<br />                  "        :edit_box {"<br />                  "            key = \"IA\";"<br />                  "            label = \"正常工作电流(A)：\";"<br />                  "            value = \"100\";"<br />                  "            width = 25;"<br />                  "            fixed_width = true;"<br />                  "            edit_limit = 10;"<br />                  "        }"<br />                  "        :edit_box {"<br />                  "            key = \"L1\";"<br />                  "            label = \"电缆分段长度(m)：\";"<br />                  "            value = \"100\";"<br />                  "            width = 25;"<br />                  "            fixed_width = true;"<br />                  "            edit_limit = 10;"<br />                  "        }"<br />                  "        :edit_box {"<br />                  "            key = \"GMRs\";"<br />                  "            label = \"金属护套几何平均半径(mm)：\";"<br />                  "            value = \"50\";"<br />                  "            width = 25;"<br />                  "            fixed_width = true;"<br />                  "            edit_limit = 10;"<br />                  "        }"<br />                  "    }"<br />                  ""<br />                  "    spacer_1;"<br />                  "    ok_cancel;"<br />                  "}"<br />                  ""<br />                  "  "<br />                 )<br />     (write-line str file)<br />   )<br />   (close file)<br />   tmp-dcl-file-name<br /> )<br /> <br /> (defun c:tt (/ dcl_id dd p1 p2 p3 IA L1 GMRs m n S mS nS <br />               Ea-x Ea-y Eb-x Eb-y Ec-x Ec-y)<br /> <br />   ;; 在调用对话框前先指定三相电缆中心<br />   (setq p1 (getpoint "\n指定A相电缆中心："))<br />   (setq p2 (getpoint p1 "\n指定B相电缆中心："))<br />   (setq p3 (getpoint p2 "\n指定C相电缆中心："))<br /> <br />   ;; 加载并显示对话框<br />   (setq dcl_id (load_dialog (setq Dcl_File (NP_DCL))))<br />   (vl-file-delete Dcl_File)<br />   (if (not (new_dialog "cable_calc" dcl_id))<br />     (progn<br />       (alert "对话框加载失败！")<br />       (unload_dialog dcl_id)<br />       (exit)<br />     )<br />   )<br /> <br />   ;;事件处理<br />   (action_tile "accept" "(tt1)(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   <br />   ;; 显示对话框并获取用户输入<br />   (setq dd (start_dialog))<br />   (unload_dialog dcl_id)<br /> <br />   ;; 确定后计算并输出<br />   (if (= dd 1)<br />     (tt2)<br />   )<br /> <br />   (princ)<br /> )<br /> <br /> (defun tt1()<br />     ;; 获取输入参数并转换为数值类型<br />   (setq IA (atof (get_tile "IA"))<br />         L1 (atof (get_tile "L1"))<br />         GMRs (atof (get_tile "GMRs")))<br /> )<br /> <br /> (defun tt2()<br />   ;; 绘制三相电缆中心线<br />   (grdraw p1 p2 1 1)<br />   (grdraw p2 p3 1 1)<br />   (grdraw p1 p3 1 1)<br />   <br />   ;; 计算距离参数<br />   (setq S (distance p1 p2)<br />         mS (distance p2 p3)<br />         nS (distance p1 p3)<br />         m (/ mS S)<br />         n (/ nS S))<br />   <br />   ;; 计算各相感应电动势分量<br />   (setq Ea-x (* pi IA 0.00001 (log n) (sqrt 3) L1)<br />         Ea-y (* pi IA 0.00001 (log (/ (* n S S) (* GMRs GMRs))) L1)<br />         Eb-x (* pi IA 0.00001 (log (/ mS GMRs)) (sqrt 3) L1)<br />         Eb-y (* pi IA -0.00001 (log (/ S (* m GMRs))) L1)<br />         Ec-x (* pi IA -0.00001 (log (/ mS GMRs)) (sqrt 3) L1)<br />         Ec-y (* pi IA -0.00001 (log (/ (* n nS) (* m GMRs))) L1))<br /> <br />   ;; 格式化输出结果<br />   (princ "\n===== 电缆感应电动势计算结果 =====")<br />   (princ (strcat "\nEa = " (rtos Ea-x 2 2) "+" (rtos Ea-y 2 2) "i(V)"))<br />   (princ (strcat "\nEb = " (rtos Eb-x 2 2) (rtos Eb-y 2 2) "i(V)"))<br />   (princ (strcat "\nEc = " (rtos Ec-x 2 2) (rtos Ec-y 2 2) "i(V)"))<br />   (princ "\n====================================\n")<br /> <br />   (princ)<br /> )