合并LISP

Efeezy · 发表于 2022-7-5 17:30:28

有人能启发我吗？我正在尝试修改lisp。有没有办法将所有现有图层设置为线宽的默认值？此外，我想将我的LTscale设置为96，将网格线更改为Hidden with color 154，并将其添加到现有的lisp中。有关于组合lisp的代码参考吗？我对修改或更改lisp是新手。

谢谢你抽出时间

#（defun c:111（）
（命令“LTSCALE”“96”））#

copy

(defun c:9 ( / col lay lst )
   (setq lst
      '(
           ("*grid*"          . 154)       
       )
   )
   (vlax-for obj (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
       (if (setq lay (strcase (vla-get-name obj))
                 col (vl-some '(lambda ( x ) (if (wcmatch lay (strcase (car x))) (cdr x))) lst)
           )
           (vla-put-color obj col)
       )
   )
   (princ)
)
(vl-load-com) (princ)

iconeo · 发表于 2022-7-5 17:54:59

为了使您的代码不会混乱，最好只使用一个defun来调用其他defun。

BIGAL · 发表于 2022-7-5 18:14:43

简单附加线路

copy


(vlax-for obj vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
[color=red](vla-put-Lineweight obj -3)[/color] ; note -3 is Default
(if (setq lay (strcase (vla-get-name obj))

Efeezy · 发表于 2022-7-5 18:17:44

嘿，比格尔，我怎么激活这个？我没有看到（defun c:comand（），我不知道如何激活它？

BIGAL · 发表于 2022-7-5 18:31:30

我在你的代码中添加了一行，复制并粘贴到你的代码中。

[编程交流] 合并LISP

发表回复

精选推荐