大家好，我是lisp初学者。一个人独自学习lisp真是苦B了，有一点点问题都只能百度~
RT：(setq s1 (ssget (list (cons 0 "TEXT"))))
(princ "\n请选择框选范围!")
我想在出现选择框的时候在命令行提示“请选择框选范围!”但是怎么加都不行啊！

加油啊！！！！！！！！！！！！！！！！！！！

楼上的都很不错，继续研究

这句话的源程序是这样的：
(setq e (entget (car (entsel "\n 选择要清除的楼板-负筋文字"))));取实体表e
(setq txt1 (cdr (assoc 1 e)));获取字体内容
(setq tc (cdr (assoc 8 e)));获取要批量删除文字的图层
(if (= tc "楼板-负筋文字") (progn(setq s1 (ssget "_x" (list (cons 0 "TEXT") (cons 8 tc) (cons 1 txt1)))) ;○●○●
(command "ERASE" s1 "");删之
我就是想在圆圈这行加一个(princ "\n请选择框选范围!")
让程序在运行到这一步的时候，CAD命令行提示“请选择框选范围”，效果就像上面第一行一样。

你们继续加油哈。专业之间，需要交流。。。。

“选择框选范围”并不是操作，只是相当于在程序运行到创建构造集s1时，同时在命令行出现提示语句：“选择框选范围”

我要这个效果，就是在命令行提示“选择框选范围”的同时让你选择
ssget 程序应该删掉"X"
(if (= tc "楼板-负筋文字") (progn(setq s1 (ssget (list (cons 0 "TEXT") (cons 8 tc) (cons 1 txt1)))) ;○●○●
(command "ERASE" s1 "");删之


怎么感觉括号有点不对……

在百度找到了一个命令
(setq s1 (ssget "C" (getpoint "请框选范围") (getcorner (getpoint))))
但是运行过后选择框起始点有两个，要如何解决？
如果能将
(getcorner (getpoint))和(getpoint) 分别用两个变量赋值，应该可以解决。
例如变量b1=(getpoint) b2=(getcorner b1) (setq s1 (ssget "C" b1 b2)))

问题已经解决了
(setq p (getpoint "选取点位置："))
(setq s1 (ssget "C" p (getcorner p)))