LISP如何調用CAD命令選擇對象，比如調用fillet命令時如何選擇對象？

(if(=(setq R(get real " \ n \ nreradius R = "))nil)

(setq r 0.0)

)

(if(setqent 1(entsel " \ n選擇第1個對象:"))

(if(setqent 2(entsel " \ n選擇第二個對象:"))

(程序

(命令“圓角”

(命令“圓角”ent1 ent2)

)

)

)

(setvar "cmdecho" 1)