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

合并LISP

有人能启发我吗？我正在尝试修改lisp。有没有办法将所有现有图层设置为线宽的默认值？此外，我想将我的LTscale设置为96，将网格线更改为Hidden with color 154，并将其添加到现有的lisp中。有关于组合lisp的代码参考吗？我对修改或更改lisp是新手。
 
 
谢谢你抽出时间
 
#（defun c:111（）
（命令“LTSCALE”“96”））#
 
 
(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

简单附加线路
 

(vlax-for obj vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-Lineweight obj -3) ; 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

我在你的代码中添加了一行，复制并粘贴到你的代码中。
页: [1]
查看完整版本: 合并LISP