怎样实现这样的功能。[求助][求助]

matichen

象TEXT命令那样，可以直接点取位置，也可以选择关键字s j 来设置线形和对齐。如果不输入，那个关键字也不影响点选。不知该如何实现。

比如：
(initget "Rg Ct _right certen")
(setq pt(getpoint "< Rg 左对齐 \ Ct 中对齐>"))
我在输入了R 或 C后，能返回关键字，使程序跳转至另一过程。

matichen

mccad

陈伯雄

(Defun RFunction ()
       (Alert "R函数")
)
(Defun CFunction ()
       (Alert "C函数")
)
(Defun TFunction (tpt)
       (Alert (StrCat "T函数"
                      "\n" (RtoS (Car tpt)) "," (RToS (Cadr tpt))
              )
       )
)
(Defun C:Test ()
       (InitGet 1 "Right Center")
       (SetQ tp (GetPoint "\nRight(右对齐)/Center(中心对齐)/<起点>: "))
       (Cond ((= "Right" tp) (RFunction))
             ((= "Center" tp)(CFunction))
             (tp (TFunction TP))
       )
)

从您贴出的程序看，您好象还不太明白InitGet函数的使用技巧，
建议看看《Visual LISP程序设计——技巧与范例〉中的“5.12  在Get 族函数中使用关键词”章节...

hothua

陈伯雄

matichen

那如果不是输入关键字，而是象偏移那样输入数字或点选距离，该怎么做勒？

陈伯雄