一、dcl是什麼?
前面的事情，是通過在命令列輸入引數來實現某個指令的，而dcl是通過使用者介面來實現互動的。下圖就是乙個典型的dcl。
首先說明，dcl不像lisp，可以直接通過vlide命令呼叫出來，呼叫過程如下：
1、通過vlide命令，開啟autolisp對話方塊，選擇檔案-另存為dcl格式的檔案
2、輸入下面的**儲存並載入
(defun c:viewdcl()
(if (null dcl_pt)
(setq dcl_pt '(-1 -1))
) (setq dcl_file(getfiled "開啟dcl檔案" "" "dcl" 2))
(princ "dcl檔名：")(princ dcl_file)
(setq dia_name(getstring "\n對話方塊名："))
(if (= dia_name "") (exit))
(setq dcl_id (load_dialog dcl_file))
(new_dialog dia_name dcl_id)
(action_tile "accept" "(setq dcl_pt (done_dialog 1))")
(action_tile "cancel" "(done_dialog 0)")
(setq dd(start_dialog))
(cond ((= dd 1) (princ "\n確定!!!"))
((= dd 0) (princ "\n取消!!!"))
) (prin1)
)(prompt "*****viewdcl，預覽對話方塊設計******")
(prin1)
4、完成上面的步驟，你會發現會讓你輸入兩個東西,第一是個dcl檔案，你還沒有，下一步我就給你，第二步是輸入這個dcl檔案裡的乙個函式（檔案裡可能有很多函式，你呼叫哪乙個都可以）
5、貼出示例的**（這些**不是我原創，僅僅作為練習使用）
first002:dialog
spacer_1;
ok_cancel;
}
extjs各種彈出框
1.extjs之訊息框 語法 ext.messagebox.alert string title,string msg,function fn,obejct scope 引數定義 ext.messagebox.alert 提示框 這是乙個提示框 ext.messagebox.alert 提示框 這是...
筆記 html的各種選擇框
1.單選框與核取方塊 當 type radio 時，控制項為單選框 當 type checkbox 時，控制項為核取方塊 同一組的單選按鈕，name 取值一定要一致，這樣同一組的單選按鈕才可以起到單選的作用 否則這些按鈕會被當做不同組的單選按鈕，即可以同時選中這些按鈕。預設選中的值用屬性checke...
AutoLISP查詢橢圓的相關屬性
autolisp查詢橢圓的相關屬性，包括橢圓的中心 長軸 短軸 周長和面積，如下。defun c elppt setq ss car entsel n請選擇所要查詢的橢圓 setq ssob vlax ename vla object ss setq center vlax get ssob cen...