（求助）垂直构造线、水平构造线源码 问题

999999

求助各位论坛大神，有空帮小弟解决一下问题 ，，
谢谢
以下是845245015大神帮忙发的代码，后面更新了一个完整的插件，可选择的垂直  水平构造线，http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182161&page=1#pid874788链接在这，有需要的可以去下载，但是本人现在需要直接输入对应的命令就出现对应的构造线，求各位大神修改，下面的代码，连续用了两次后，就随图层了，能不能改成，一直是设置好的层，取消命令后，图层还是回到命令前的图层

垂直辅助线
(defun c:Z ()
   (setq oldlay (getvar "CLAYER"))
   (setq aa (getpoint))
   (command "-layer" "m" "layer9"  "")
   (command "xline" "v" aa)
   (setvar "clayer" oldlay)
   (princ)
)
水平辅助线
(defun c:A ()
(setq oldlay (getvar "CLAYER"))
(setq aa (getpoint))
(command "-layer" "m" "layer9"  "")
(command "xline" "h" aa)
(setvar "clayer" oldlay)
(princ)
)

845245015

999999 发表于 2020-8-28 18:51
大神，可以帮忙改一下比如，直接输入Z是垂直线， 输入A是水平线吗，，您发的那个插件太完整 ...

(defun c:Z ()
  (setq oldlay (getvar "CLAYER"))
  (if (null (tblsearch "layer" "layer9"))
    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord") '(370 . 0) '(70 . 0) '(290 . 1) '(2 . "layer9")))
    )
  (while (setq pt (getpoint))
        (entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") '(8 . "layer9") (cons 10 pt) (cons 11 '(0 1 0))))
        )
  (setvar "clayer" oldlay)
  (princ)
)
(defun c:A ()
  (setq oldlay (getvar "CLAYER"))
  (if (null (tblsearch "layer" "layer9"))
    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord") '(370 . 0) '(70 . 0) '(290 . 1) '(2 . "layer9")))
    )
  (while (setq pt (getpoint))
        (entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") '(8 . "layer9") (cons 10 pt) (cons 11 '(1 0 0))))
        )
  (setvar "clayer" oldlay)
  (princ)
)

845245015

我都给您发过改后的了

999999

845245015 发表于 2020-8-28 18:46
我都给您发过改后的了

大神，可以帮忙改一下比如，直接输入Z是垂直线， 输入A是水平线吗，，您发的那个插件太完整了，有选择性，偶尔使用是比较好的，但是我使用的次数太多，直接输入，加空格，就完成的对我很适用

999999

845245015 发表于 2020-8-28 19:05
(defun c:Z ()
  (setq oldlay (getvar "CLAYER"))
  (if (null (tblsearch "layer" "layer9"))

谢谢大神，，这个就是我想要的效果，，