向图层名称添加文字

ksperopoulos · 发表于 2022-7-6 00:04:56

我试图通过lisp将文字添加到图层名称中，但通过我的研究，我找不到任何有关这方面的信息。有人能给我指一下正确的方向吗？

hmsilva · 发表于 2022-7-6 00:16:51

单向：


(defun c:test ( / LAy LAYN LAYNAME)
 (if (setq layname (cdr (assoc 8 (entget (car (entsel "\nSelect an object to change the LayerName: "))))))
   (progn
     (vlax-for lay (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq layn (vla-get-name lay))
(if (and (wcmatch layn layname)
  (/= layn "0")
  (/= layn "Defpoints")
    );; and
  (vla-put-Name lay "My-Test-Layer")
);; if
     );; vlax-for
   );; progn
 );; if
 (princ)
);; test

要将文字添加到图层名，请执行以下操作：

copy


(vla-put-Name lay (strcat layname "your text to add"))

HTH公司
亨里克

ksperopoulos · 发表于 2022-7-6 00:24:22

谢谢你的回复。这是visual lisp，对吗？我正在努力学习Autolisp。有没有办法用Autolisp来代替？

hmsilva · 发表于 2022-7-6 00:32:44

可能是这样的：

copy


(defun c:test ( / LAYNAME)
 (if (and (setq layname (cdr (assoc 8 (entget (car (entsel "\nSelect an object to change the LayerName: "))))))
   (/= layname "0")
   (/= layname "Defpoints")
     );; and
  (command "._rename" "_Layer" layname (strcat layname "your text to add"))
);; if
 (princ)
);; test