[求助]：怎么编写不同输入类型的并存？？？？

turner407

怎么编写像FILLET选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]
选择函数对象是entsel  而后者函数是getstring两者的输入怎么并存？？？？

zxq0220

在GET系列函数(除GETSTRING和GETVAR外)前使用INITGET函数。例如：
(INITGET 1 "Pline Radius Trim")
(SETQ EN (GETENT "选择第一个对象或 [多段线(P)/半径(R)/修剪(T)]"))
大写字母为缩写，键入后EN中得到整个字串。

turner407

但选择对象的函数可是ent系列的entsel，怎么和get系列的并存？？？？

这是ET目录下的 EXFILLET.LSP程序的不完整一部分，我是没看懂。哪位高手解释一下！！！！ths
他实现的方法（不完整的话，去ET目录里看吧）：
(setq sRad (rtos (getvar "filletrad"))) ;setq
      (princ (acet-str-format "\nCurrent settings: Mode = %1, Radius = %2" sTrim sRad))
      ;(princ (strcat "\nCurrent settings: Mode = " sTrim ", Radius = " sRad ))
      (initget "Polyline Radius Trim Undo")
      (setq option (entsel "\nSelect first object or [Polyline/Radius/Trim/Undo]: "));
      (cond
        ((= (type option) 'LIST) (acet-exfillet-optUserPick option))
        ((= option "Polyline") (acet-exfillet-optPline))
        ((= option "Radius") (acet-exfillet-optRadius))
        ((= option "Trim") (acet-exfillet-optTrim))
        ((= option "Undo") (acet-exfillet-optUndo))
      );cond

梦断江南

entsel支持关键字
看vlisp中initget 的帮助