【已解决】如何用Alisp代码自动拾取对象 比如“线(Line)”

(defun c:main()
;(setvar "cmdecho" 0)
;(setvar "blipmode" 0)
(setq AAA '(100 8000))
(setq AK01 100)
(setq AK02 8000)
(setq AAAend (list (+ AK01 0.175) (- AK02 0.245)))
(command "rectang" AAA AAAend "")
;
(setq Lw001 (list AK01 (- AK02 0.007)))
(setq Lw001end (list (+ AK01 0.175) (- AK02 0.007)))
(command "line" Lw001 Lw001end "")
;;;问题在下面这一行
(setq en (entsel "选择一条线(select a Line)："))
;这里需要使用者操作鼠标来选择一条线，但是我现在想实现如下语句类似的意思来选择这条已经画好的线来操作其“群码”，不知道有什么办法没有？或者我的出发点就有问题。(setq en (entsel (+ AK01 0.1) (- AK002 0.007)))
;;;

【解决方案】：
(setq w001 (list (+ ak01 1) (- ak02 0.35)))
(setq w001end (list (+ ak01 3.0) (- ak02 0.36)))
(command "mtext" w001 w001end "\\pxqc;工程名称" "")
(setq en (entlast))
(setq en_date (entget en))
(setq en_o040 (assoc 40 en_date))
(setq en_040 (cons 40 0.3))
(setq en_o071 (assoc 71 en_date))
(setq en_071 (cons 71 5))
(setq en_date (subst en_040 en_o040 en_date))
(setq en_date (subst en_071 en_o071 en_date))
(entmod en_date)

在这里感谢023yousu，给出了正确的解答。
原帖位置：鸿翔技术中心
最后推荐一本书，现阶段解决Alisp、Vlisp、DCL最好的书了。“AutoCAD完全应用指南”作者：吴永进、林美樱

謝謝您的回報~
也感謝您補上來源網址!

Tiger&蘋果爸 寫到:謝謝您的回報~
也感謝您補上來源網址!

不知道Tiger是不是能解释一下呢？
或者用什么便捷的方式能实现application自动存盘成不同的文件名的文件？？
saveas 后面只支持简单的文件名存储？
能不能实现变量存储的方法？或者怎么样才能支持变量存储呢？

现在都没有找到能完成说明各种指令使用的详细方法，所以很纠结各种命令的表现形式。