平行线、换向、缩放、程序内错误后执行的几个问题

sds2sds

新手，问题比较多，还请各位不吝赐教
(defun C:HT()
        (setq a(getvar"cmdecho"))
        (setq b(getvar"texteval"))
        (setvar "texteval" 0)
        (setvar"cmdecho" 0)
        (if (not(tblobjname "layer" "SXSS")) (command "layer" "n" "SXSS" "c" "5" "SXSS" ""))        ;新建层SXSS，如有层SXSS就不执行
        (setq dqtc (getvar "clayer"))                 ;取得当前图层
        (SETQ dqxx (GETVAR "CELTYPE"))        ;取得当前线型
        (setvar "clayer" "SXSS")                ;设置当前图层为SXSS
        (command "linetype" "S" "DGPSG" ENTER)        ;设置当前线型为DGPSG

        (if (setq p (getpoint "\n指定起点<退出>:"))      ;感谢marting提供的代码
        (progn (command "pline" p)                           ;感谢marting提供的代码
                           (while (/= (getvar "cmdactive") 0)                 ;感谢marting提供的代码
                (progn (princ "\n指定下一点或[放弃(U)]:")            ;感谢marting提供的代码
                (command pause)))))                                    ;感谢marting提供的代码
        (setq jl (getreal  "\n输入宽度（左+ 右-）<0.5>:"))
       
********这里不会写了*********


        (setvar "clayer" dqtc )                ;恢复原来图层
        (SETVAR "CELTYPE" dqxx)                ;恢复原来线型
        (setvar"cmdecho"a)
        (setvar"texteval"b)
(princ))
问题如下：
想实现的功能是输入宽度后自动画一条平行线（普通直线），同时根据所输入的宽度对刚画完的线进行缩放，使小竖线长度等于输入的宽度，如果宽度大于0，则直接缩放，如果宽度小于0，则将刚画完的线换向，再进行缩放。
问题1：如何在程序内自动选择刚画完线？
问题2：如何画平行线？
问题3：如何换向？
问题4：如果中途按了ESC，退出LISP，怎么执行下面的恢复图层、恢复线型的语句？好像是要用*ERROR*函数，语句怎么编呢？

Lisphk

建议楼主截图用，屏幕实体颜色和背景反差大些，现在看不清楚

Lisphk

刚画过的实体，用(entlast)函数得到

sds2sds

Lisphk 发表于 2019-4-24 10:24
刚画过的实体，用(entlast)函数得到

谢谢,我查查这个函数怎么样

sds2sds

Lisphk 发表于 2019-4-24 10:24
刚画过的实体，用(entlast)函数得到

谢谢,我查查这个函数怎么用