*[已解決]手動標座標問題(請指導)謝謝

;[AUTO-DIML]*****標線,圓座標********
(defun C:Auto-DIML()
(setvar "cmdecho" 0) ;;指令執行過程不回應
(setq os (getvar "osmode")) ;;記錄原物件鎖點值
(setq ort (getvar "orthomode"));;記錄原正交模式
(setq sty (getvar "textstyle"));;記錄目前字型名稱
(setvar "TEXTSTYLE" "CHINA");;設定目前字型為CHINA
(setvar "DIMTAD" 0);;記錄座標文字置中
(setvar "orthomode" 1) ;;關閉正交模式
(setq th (getvar "DIMSCALE"));;記錄原文字高度
(prompt "\n標註圓的圓心或線端點座標值...")(princ)
(setvar "osmode" 5) ;;物件鎖點端點,圓心
;; ---------------------------------------------
(setq dim_0 (getpoint "\n請指定 座標原點 的位置 : "))(princ)
(command "_ucsicon" "ON")
(prompt "\n請選取要標註的圖元 : ")(princ)
(setq se (ssget))
(command "_qdim" se "P" dim_0 "o" )
(setvar "orthomode" 0) ;;關閉正交模式
(setvar "osmode" os) ;;回復原物件鎖點
(setvar "orthomode" ort) ;;回復正交模式
(setvar "textstyle" sty) ;;回復字型名稱
(command "_ucs" "w" )
(command "_ucsicon" "_off")
(prompt "\n<<指令:AUTO-DIML>>程式撰寫Tseng fu-shu[[標線,圓座標]]2008/12/5")
(princ)
)

fu4shu 寫到:;[AUTO-DIML]*****標線,圓座標********
....~[標線,圓座標]]2008/12/5")
(princ)
)

請問你的問題是?可否請說明白?還是要分享?

這是LIPS程式碼
設定文字形式,這一行有問題,
(setvar "TEXTSTYLE" "CHINA");;設定目前字型為CHINA
圖沒設這字型!則程式無法使用
(指令: Auto-DIML
; 錯誤: 已拒絕 AutoCAD 變數設定: "TEXTSTYLE" "CHINA")

必須手動設置字型形式為CHINA!方可繼續
這是一次可以標好幾各連續尺寸程式!



***指令行進如下(以下紅色是有問題!藍色字體是解說)***

指令: Auto-DIML
標註圓的圓心或線端點座標值...
請指定 座標原點 的位置: (點左邊第1條直線端點)
請選取要標註的圖元 :
選取物件: 找到 1 個 (點第1條直線)
選取物件: 找到 1 個，共 2 (點第2條直線)
選取物件: (按ENTER跳過)

; *無效的選取*
應有一個點或
窗選(W)/上一個(L)/框選(C)/方塊(BOX)/全部(ALL)/籬選(F)/多邊形窗選(WP)/多邊形框選(CP)/群組(G)/加入(A)/移除(R)/多
重(M)/前一個(P)/退回(U)/自動(AU)/單一(SI)
錯誤: 函數被取消

選取要標註的幾何圖形: 找到 1 個 (選圓形圖按)
選取要標註的幾何圖形: (按ENTER跳過)
指定標註線位置，或 [連續(C)/錯開(S)/基準線(B)/座標(O)/半徑(R)/直徑(D)/基準點(P)/編輯(E)/設定(T)] <連續>:(指定標註位置)