在照明設計中，通常要計算照度，作為設計的依據。照度計算并不復雜，通過簡單的計算給出設計照度實際值。本文介紹使用Visual Lisp和Visual Studio實現照度計算并生成圖紙的方法。

1、照度計算依據
照度計算依據DLT5390-2014《發電廠和變電站照明設計技術規定》的附錄B:計算平均照度，對于點光源的計算，一般用的少，不單獨計算：
B.0.1 應用利用系數法計算平均展讀應按下式進行



式中：Ec為工作面的平均照度(1x)；Φ為光源光通量(1m)；N為光源數量 ；K為燈具維護系數，取決于房間的污穢等級、房間和燈具的清掃周期，可按本規定表7.0.4的規定取值；A為工作面面積(mm2)；CU為利用系數，取決于室形指數和房間的反射情況，由燈具制造廠提供。。

2、Visual Lisp實現照度計算
①Lisp 由于用戶界面不是很靈活，數據取自excel表或直接從圖紙中取。
對于這個照度計算，數據只能取自圖紙，首先人工填入相關數據：



相關的基礎數據填入表格。

②計算程序：
(setq list_TQ nil)
                (setq Get_Text1 nil)    ;;;;;長
                (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 91)  0))
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 84)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_Long0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 84)  0))   ;;;;寬
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 77)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_Width0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 77)  0))  ;;;;高
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 70)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_Hihg0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 70)  0))  ;;;;被照面
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 63)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_hfe0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
               (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 63)  0))  ;;;;燈具高度
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 56)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_hre0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                 (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 56)  0))  ;;;;燈具數量
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 49)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_sum0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                 (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 49)  0))  ;;;;光通量
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 42)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_lm0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                 (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 42)  0))  ;;;功率
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 35)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_pw0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
               (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 35)  0))  ;;;;利用系數
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 28)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_cu0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))
                 (setq Point_list01 (list (* TK_Scale2 60) (* TK_Scale2 28)  0))  ;;;;維護系數
                (setq Point_list02 (list (* TK_Scale2 110) (* TK_Scale2 21)  0))
                (setq Point_list (append (list Point_list01) (list Point_list02)))
                (setq Get_k0  (get_Text_1 Point_list Point_Base0 ))
                (setq list_TQ  (cons Get_Text1 list_TQ))
                (setq list_TQ  (list (reverse list_TQ)))

 
                (setq Get_Long1 (atof  Get_Long0))
                (setq Get_Width1 (atof  Get_Width0))
           (setq Get_Hihg1 (atof  Get_Hihg0))
      (setq Get_hfe1 (atof  Get_hfe0))
 
                (setq Get_hre1 (atof  Get_hre0))
                (setq Get_sum1 (atof  Get_sum0))
           (setq Get_lm1 (atof  Get_lm0))
      (setq Get_pw1 (atof  Get_pw0))
                (setq Get_cu1 (atof  Get_cu0))
           (setq Get_k1 (atof  Get_k0))

                (setq Ec (/ (* Get_lm1 Get_sum1 Get_cu1 Get_k1) (* Get_Long1 Get_Width1)))
                (setq RI (/ (* Get_Long1 Get_Width1) (* Get_hre1 (+ Get_Long1 Get_Width1))))
      (setq PowerD (/ (* Get_sum1 Get_pw1 ) (* Get_Long1 Get_Width1)))
 
 
        (setq Get_obj_B1 nil)           
        (setq Point_list01 (list  (* TK_Scale2 110) (* TK_Scale2 14)  0))   ;;;平均照度
        (setq Point_list02 (list  (* TK_Scale2 60) (* TK_Scale2 21 ) 0))
        (setq Point_list nil)
        (setq Point_list (append (list Point_list01) (list Point_list02)))
        (setq Get_obj_B1  (get_obj_1 Point_list Point_Base0 ))
        (vla-put-TextString Get_obj_B1 (rtos Ec 2 2))
               (setq Get_obj_B1 nil)           
        (setq Point_list01 (list  (* TK_Scale2 110) (* TK_Scale2 7)  0))   ;;;室型指數
        (setq Point_list02 (list  (* TK_Scale2 60) (* TK_Scale2 14 ) 0))
        (setq Point_list nil)
        (setq Point_list (append (list Point_list01) (list Point_list02)))
        (setq Get_obj_B1  (get_obj_1 Point_list Point_Base0 ))
        (vla-put-TextString Get_obj_B1 (rtos RI 2 2))
              (setq Get_obj_B1 nil)           
        (setq Point_list01 (list  (* TK_Scale2 110) (* TK_Scale2 0)  0))   ;;;功率密度
        (setq Point_list02 (list  (* TK_Scale2 60) (* TK_Scale2 7 ) 0))
        (setq Point_list nil)
        (setq Point_list (append (list Point_list01) (list Point_list02)))
        (setq Get_obj_B1  (get_obj_1 Point_list Point_Base0 ))
        (vla-put-TextString Get_obj_B1 (rtos PowerD 2 2))
因為取數據設計圖紙的比例，因此計算相對比較復雜。

③計算結果：



計算后結果填入表格相關位置。

3、C#的實現方法
①C#通過視圖界面輸入數據：



②計算數據：
double HightB = House_Hith - House_HithB;
            Ec = (Light_Number * Light_lm * Factor_CU * Factor_K) / (House_Length * House_weith);
            Factor_K2 = (House_Length * House_weith) / (HightB * (House_Length + House_weith));
            Power_D = (Light_Number* Light_Power)/(House_Length * House_weith);

③添加圖紙：
AcadApp.ActiveDocument.Utility.Prompt("給定插入點：");
            insertionPoint = (double[])AcadApp.ActiveDocument.Utility.GetPoint();
            Function_CAD.InsertBlock(AcadApp, insertionPoint, "照度計算塊_100");
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] +8550 , House_Length.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700* 1 , House_weith.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 2, House_Hith.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 3, House_HithB.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 4, HightB.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 5, Light_Number.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 6, Light_lm.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 7, Light_Power.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 8, Factor_CU.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 9, Factor_K.ToString(), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 10, Ec.ToString("f2"), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 11, Factor_K2.ToString("f2"), 400, 0);
            Function_CAD.DrawText(AcadApp, insertionPoint[0] + 8110, insertionPoint[1] + 8550 - 700 * 12, Power_D.ToString("f2"), 400, 0);

④運行結果：



和Lisp計算的結果完全相同。

4、小結
對應復雜的運行和涉及大量原始數據的運算，使用Visual Studio具有明顯的優勢。直接取數計算，結果添加到圖形塊中，非常簡單。

相關閱讀
◆識別簡單標識選購符合光生物安全的學生LED燈