一個(gè)利用DCL設(shè)置CAD系統(tǒng)變量的例子，類似的利用這個(gè)可以設(shè)置其它系統(tǒng)變量。

DCL對(duì)話框代碼如下。

dia5a:dialog {
    label = "系統(tǒng)變量設(shè)置" ;
    :edit_box {
        edit_width = 6 ;
        key = "edit_p" ;
        label = "PlineWid" ;
    }
    :edit_box {
        edit_width = 6 ;
        key = "edit_f" ;
        label = "FilletRad" ;
    }
    :edit_box {
        edit_width = 6 ;
        key = "edit_t" ;
        label = "TextSize" ;
    }
    :edit_box {
        edit_width = 6 ;
        key = "edit_s" ;
        label = "SaveTime" ;
    }
    ok_cancel;
}

LSP文件代碼如下。

(defun c:dia5a ()
    (setvar "cmdecho" 0)
    (dcl_dia5a)
    (prin1)
)
(defun dcl_dia5a ()
    (setq dcl_id (load_dialog "dia5a"))
    (new_dialog "dia5a" dcl_id)
    (set_tile "edit_p" (rtos (getvar "plinewid")))
    (set_tile "edit_f" (rtos (getvar "filletrad")))
    (set_tile "edit_t" (rtos (getvar "textsize")))
    (set_tile "edit_s" (rtos (getvar "savetime")))
    (action_tile "accept" "(ok_dia5a) (done_dialog 1)")
    (start_dialog)
)
(defun ok_dia5a    ()
    (setvar "plinewid" (atof (get_tile "edit_p")))
    (setvar "filletrad" (atof (get_tile "edit_f")))
    (setvar "textsize" (atof (get_tile "edit_t")))
    (setvar "savetime" (atof (get_tile "edit_s")))
)

代碼完。

先將DCL和LSP文件路徑設(shè)置為AutoCAD自動(dòng)搜索路徑，才可以加載成功。