*<已解決>使用CAD書附贈的DCL範例，卻無法順利打開!!

(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 "\nDialog 交談框名=>"))
(if (= dia_name "")
(setq dia_name dcl_file)
)
(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))
(princ "DD=")(prin1 dd)
(cond ((= dd 1)(princ "\n確定!!!"))
((= dd 0)(princ "\n取消!!!"))
)
(prin1)
)

(prompt "*******這是僅供瀏覽DCL的程式********")
(prin1)
------------------------------------------------------------------------------------
first001:dialog{ //dialog name
label="第一個DCL設計"; //對話框主表頭
:text{ //文字物件
label="新手上路,請多包涵"; //文字內容
}
ok_only; //僅有OK『確定』按鍵
} //end dialog
*****檔案名稱為first.DCL*****
-------------------------------------------------------------------------------------
我照著書上的解說順序執行，卻跳出錯誤視窗

對話方塊[C:\LSPTOOLS\first.dcl]內有錯誤，第一行:
警告:重新定義物件
符號:[first001]。

對話方塊[C:\LSPTOOLS\first.dcl]內有錯誤，第一行:
警告:語法錯誤
符號:[first001]。

請問要如何才能讓他正常運作?

目前就卡在這裡無法再進一步學習，所以只需要了解怎麼讓他正常運作或是解決的方案就行了。
----------------------------------------------------------
我常是用了後面的範例，卻沒有一個能用

照說明看了一下ACAD.dce

結果都是一堆

錯誤 於「dia5a1」內。(widget 類型 = ** undefined **，key =「」)
這個類型的 Widget 不能有子系。

而且仍會跳出物件重新定義和語法錯誤的視窗出來

是我電腦的問題嗎?還是操作上有錯誤?

嗯...請問有將範例的DCL及LSP檔案放置到 系統的支援路徑嗎?

問題已經解決了，雖然還是不知道原因為何，可能是我胡亂設定的緣故吧?

後來我用了新增移除程式來還原CAD預設值就可以順利的打開了。

因為我雖然使用CAD，但是卻偏向於計算與統計之類的作業，所以必須要做一些繁瑣的動作，

因此LISP與DCL算是我最需要學的，此外還有EXCEL的編寫等。

雖然還只是個新手，不過目前靠自學已經有點成果了，但經驗與見識還遠遠不足。

現在問題已經解決了，總覺得好像白忙一場，不過還是先謝過頻果爸了。

有問題的時候去新增移除程式選移除CAD(我的版本是2008)就會跳出移除或是還原預設值的視窗。

還原後工具列與個人設定不變，不過 工具=>選項=>檔案 裡的變更都恢復到原來的樣子了。

或許是先前使用CAD書刊附贈的光碟範例加入時，沒先點加入就直接點瀏覽的緣故，覆蓋掉原來的路徑也說不定。

有了這一招，不管CAD怎麼設定到亂七八糟也能簡單的恢復原狀了。(其實是我不熟才會這樣子......)

如果是路徑的問題倒是有可能...
不過，建議有問題請先提出來討論，真的不行再來移除重灌比較不會浪費時間!!

那不是移除重灌，只是還原預設值而已。

bin1111 寫到:那不是移除重灌，只是還原預設值而已。

喔...你是說 選項 的 個案設定 重置(RESET) 嗎~
那你的狀況應該就是路徑問題~
這是一個不錯的方法，可以解決一般的狀況!

應該是不一樣的，重置似乎是屬於個案設定，工作區與個人化介面的問題。

不過我弄到的是支援檔案路徑，在這種情況下個案設定無法還原。

另外我之前有一點說錯了，應該是再一次安裝CAD時，選擇第二選項

<修復或重新安裝>

然後選擇修復我的AUTOCAD2008安裝，將CAD回復到預設值的狀態

不過在個案設定方面並不會受到影響，另外個案設定也可以匯出以防萬一重灌或是轉移電腦用(檔名為 .arg)

個案也可以設立許多種，如2D繪圖用，3D繪圖用，圖型模組等

最主要是將自己的偏好設定轉換為不同頁面以方便切換

謝謝你的分享~
選項 的 重置 的功能是可以回復預設路徑的喔，你可以在試試看!

早期我也是使用 個案設定 來設定 2D繪圖用介面及3D繪圖用介面
，而現在我都使用 工作區 時來快速設定，但是各有利弊及用途，可以依照使用用途來選擇你要的方式!!

*********以下Viewdcl 這個檔案要存成 lsp 檔  並載入AUTOCAD****************
(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 "\nDialog 交談框名=>"))
(if (= dia_name "")
    (setq dia_name dcl_file)
)
(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))
(princ "DD=")(prin1 dd)
(cond ((= dd 1)(princ "\n確定!!!"))
      ((= dd 0)(princ "\n取消!!!"))
)
(prin1)
)

(prompt "*******這是僅供瀏覽DCL的程式********")
(prin1)

*********以上Viewdcl 這個檔案要存成 lsp 檔  並載入AUTOCAD****************



*********以下first001 這個檔案要存成 dcl 檔****************
first001:dialog{ //dialog name
   label="第一個DCL設計"; //對話框主表頭
   :text{ //文字物件
      label="新手上路,請多包涵"; //文字內容
   }
   ok_only; //僅有OK『確定』按鍵
} //end dialog
*********以上first001 這個檔案要存成 dcl 檔****************

然後在AUTOCAD 裡面執行Viewdcl

他會跳出視窗 選擇 first001.dcl 的檔案

然後會要你輸入交談框名 first001 確定

即可看到 交談框