[求助]：求提示函数！

god54188

用什么函数能出现下面的提示？

选择第一个对象或 [多段线(P)/半径(R)/修剪(T)/多个(U)]:
就是CAD里的F命令提示开头。
谢谢大家帮忙！

ll_j

initget 和 entsel

Durain

长老可不可以再说详细一点，或者给一个贴子的连接也可以的，我用 initget+entsel的论坛上搜索老是说找不到匹配的贴子，只用一个条件的时候有几百个，看都看不过来了！

我的问题是：
我们定义KeyWrod之后，如下代码：

(initget "Text Color")
(setq a (entsel "选择物体：")
(if ………

这个if的条件代码应该怎么定？（输入关键字的情况！）

eachy

(initget "Text Color")
(setq a (entsel "选择物体："))
(cond
  ((= a "TEXT")
   .
   .
   .
  )
  ((= a "COLOR")
   .
   .
   .
   .
  )
  (t . . . .)
)

sdwy19691229

..................
(initget (+ 1 2 4) "Color Entity Layer   ")
(setq t1 (getkword "\nColor颜色/Layer图层/<Entity实体>: "))
....................................

Durain

还是不行，eachy 可否帮我看看下面的代码：

;;=====================================================
(defun c:ttt (/ A AS ED EN INDEX N SS TTEXT)
  ;;c:Liu_mtbrush
  (initget "T")
  (setq a (car (entsel "选择原文字<T--输入文字>:")))
  (if (= a "T")
    (progn
      ;;(princ "输入文字")
      (setq ttext (getstring "输入文字:"))
    )
    (progn
      (setq a (entget a))
      (setq ttext (cdr (assoc 1 a)))
    )
  )
  (setq n 1)
  (while (>= n 0)
    (setq ss (SSGET ":S"))
    (setq n (sslength ss))
    (setq index 0)
    (repeat n
      (SETQ EN (SSNAME SS index))
      (setq index (+ index 1))
      (SETQ ed (ENTGET EN))
      (SETQ AS (CDR (ASSOC '0 ed)))
      (if (= AS "TEXT")
        (progn
          (setq        ed (subst (cons 1 ttext)
                          (assoc 1 ed)
                          ed
                   )
          )
          (entmod ed)
        )
      )

    )
  )
)
;;;;代码结束
;;======================================

这是一个文本刷子，是我根据论坛上的代码改编的，
我的用意在于：当文字内容找不到时，可以自己进行输入！
这个程序进行一般的文字内容复制时是正常的，但键入关键字："T"时程序静默退出！怎么回事。

ll_j

输入T退出的原因是“(setq a (car (entsel "选择原文字:")))”一句中的car函数，关键字有效，entsel函数返回关键字“T”，不是表，使用car当然出错，这里的car应该放在确实选择了实体后进行。

Durain

明白了，多谢长老！

chenuu2000

哦明白了想不到可以这样