宏命令帮助

rotaidar · 发表于 2022-7-6 23:19:18

你好有人可以帮我，告诉我或解释给我如何创建新的层与宏。
我想定义一个新的按钮，当我按下它将使新层，并要求我定义新层的名称和颜色。
我是个新手。

我使用LISP只找到了这段代码。但我想要按钮的宏。

(defun c:SetLayer  (/ name col)
 (if (setq name (getstring t "New layer name: "))
   (if (tblsearch "LAYER" name)
     (progn (prompt "Layer already exists, set as current.") (setvar "CLayer" name))
     (if (setq col (acad_colordlg 7 nil))
       (progn (entmake (list '(0 . "LAYER")
                             '(100 . "AcDbSymbolTableRecord")
                             '(100 . "AcDbLayerTableRecord")
                             '(70 . 0)
                             (cons 2 name)
                             (cons 62 col)))
              (prompt "Layer created and set current.")
              (setvar "CLayer" name)))))
 (princ))

谢谢你们抽出时间，伙计们，祝你们度过愉快的一天

BIGAL · 发表于 2022-7-6 23:36:53

为下面的getvals3问题添加类似DCL的内容。lsp

copy


; can add linetype if required
(defun c:SetLayer  (  / name col )
(if (not AH:Getval3)(Load "getval3"))
(ah:getval3 "Enter layer name"12 10 "New" "Enter Colour" 5 4 "3" "Enter Linetype"12 10 "Continuous")
(setq name val1 col val2)
    (if (tblsearch "LAYER" name)
     (progn (prompt "Layer already exists, set as current.") (setvar "CLayer" name))
     (if (setq col (acad_colordlg 7 nil))
       (progn (entmake (list '(0 . "LAYER")
                             '(100 . "AcDbSymbolTableRecord")
                             '(100 . "AcDbLayerTableRecord")
                             '(70 . 0)
                             (cons 2 name)
                             (cons 62 col)))
; add linetype here
              (prompt "Layer created and set current.")
              (setvar "CLayer" name))))
 (princ))