cad lsp偏移到其他图层

(DEFUN c:tbk()
(setq a (ssget))
(prompt "\n超级偏移\n--->>>请指定偏移方向")
(command "OFFSET" 0.5 a pause "")
(command "chprop" (entlast) "" "la" "pps" "")
(princ))
该程序偏移到其他图层时需要输入层名，能不能改为透过选物来确定偏移的目标层？

(defun c:ff () (setvar "cmdecho" 0) (command "layoff") (setvar "cmdecho" 1) (prin1) ) ;;选择需要关闭的图层
(defun c:qw () (setvar "cmdecho" 0) (command "layiso") (setvar "cmdecho" 1) (prin1) ) ;;选择需要隔离的图层;如果要锁定或关闭;输入这个命令的时候;→向下方向键来设置;设置好了就以后默认
(defun c:tc () (setvar "cmdecho" 0) (command "laymcur") (setvar "cmdecho" 1) (prin1) ) ;;选择对象为当前图层
;;Layer
;;输入要置为当前的图层名或 <选择对象>: AA输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]:
如：(command "Layer" "ON" "AA" "");;打开AA图层;
(command "LAYER" "OFF" "AA" "");;关闭AA图层;

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pq44vqvqs7474qmmms7.html