請教 initgetd函數的疑問

lead009

initget  設定下次 getxxx 函數的有效輸入


在以下的程式有讓使用者輸入a b c d ，判別開起相對應的副程式
  (initget "A B C D");;
  (setq facetype(getkword"\n A-喜、B怒、C哀、D樂:<A>"))

可是在我把 (initget "A B C D");; 這一行從該程式刪除後。
程式還是可以不受影響，只靠"getkword"就能正確的叫出副程式，並執行完畢
不知，initget它具體的做用是什麼??
為何在此範例中可有可無?

4. (defun C:221()
5.   (setvar "cmdecho" 0)
6.   (setq en(entsel"\nselect a circle"))
7.   
8.   (if(null en)
9.     (progn
10.       (setq srr(getvar "circlerad"));;取得當前系統變數值
11.       (setq cen(getpoint"\nselect a point"))
12.       (setq rr(getdist"\n enter r value" cen))
13.       (if(null rr) (setq rr srr));;如果沒有r值輸入，就載入當前系統r值
14.       (command "circle" cen rr)
15.       (setq en(entlast))
16.      )
17.    
18.     (progn
19.       (setq en(car en));;得x物件
20.       (setq data(entget en))
21.       (setq cen(cdr(assoc 10 data)))
22.       (setq rr(cdr(assoc 40 data)))
23.     )
24.   )
25.   (initget "A B C D");;
26.   (setq facetype(getkword"\n A-喜、B怒、C哀、D樂:<A>"))
27.   (if (null facetype) (setq facetype "A"))
28.   (cond
29.     ((= facetype "A")(lsp_21a))
30.     ((= facetype "B")(lsp_21b))
31.     ((= facetype "C")(lsp_21c))
32.     ((= facetype "D")(lsp_21d))
33.   )
34.    
35. (prin1)
36. )

(defun C:221()   (setvar "cmdecho" 0)   (setq en(entsel"\nselect a circle"))      (if(null en)     (progn       (setq srr(getvar "circlerad"));;取得當前系統變數值       (setq cen(getpoint"\nselect a point"))       (setq rr(getdist"\n enter r value" cen))       (if(null rr) (setq rr srr));;如果沒有r值輸入，就載入當前系統r值       (command "circle" cen rr)       (setq en(entlast))      )         (progn       (setq en(car en));;得x物件       (setq data(entget en))       (setq cen(cdr(assoc 10 data)))       (setq rr(cdr(assoc 40 data)))     )   )   (initget "A B C D");;   (setq facetype(getkword"\n A-喜、B怒、C哀、D樂:<A>"))   (if (null facetype) (setq facetype "A"))   (cond     ((= facetype "A")(lsp_21a))     ((= facetype "B")(lsp_21b))     ((= facetype "C")(lsp_21c))     ((= facetype "D")(lsp_21d))   )     (prin1) )

ljttjl

新建个图形先用(getkword)  输入字母，看看

 

然后再用 (initget "A B") (getkword)  回车 输入字母看看，还是有差别的。

 

 

 

(initget "A B")函数功能是定义其后getXXX函数的关键字

lead009

我剛剛又再自己試驗了一次

把 (initget "A B C D");; 刪除之後程式就會出現錯誤，說輸入了無效關鍵字。

 

謝謝你的解釋，

我了解了INITGET函數的作用了