LWeight后续问题。。

ILoveMadoka · 发表于 2022-7-6 11:59:18

这是此线程的后续。。

http://www.cadtutor.net/forum/showthread.php?t=43123

是否有用于切换以显示线宽的SETVAR？

我有一个可以不时切换的东西
希望在Autocad启动时将其设置为关闭。
在我的创业公司更喜欢。

TIA！！

ReMark · 发表于 2022-7-6 12:16:02

也许是这个？

默认值由LWDEFAULT系统变量设置，其初始值为0.01英寸或0.25毫米。所有新图层都使用默认设置。线宽值0以指定打印设备上可用的最薄线宽打印，并在模型空间中以一个像素宽显示

wizman · 发表于 2022-7-6 12:19:02

我想是的。

ILoveMadoka · 发表于 2022-7-6 12:26:30

LWDisplay！！

你是我的英雄！！

顺便提一下，我该如何编写一个例程来遍历图形中的所有层
并将每个层的线宽设置为默认值？
从Solidworks导入的图形有时会为不同的图层设置线宽。。。

Lee Mac · 发表于 2022-7-6 12:39:49

试试这个：

copy


(defun c:lwd nil
 (vl-load-com)
 (vlax-for lay (vla-get-Layers
                 (vla-get-ActiveDocument
                   (vlax-get-acad-object)))
   
   (vla-put-lineweight lay acLnWtByLwDefault))
 (princ))

或

copy


(defun c:lwd (/ tdef)
 (while (setq tdef (tblnext "LAYER" (not tdef)))
   (entmod (subst (cons 370 -3) (assoc 370 tdef) tdef)))
 (princ))

wizman · 发表于 2022-7-6 12:42:17

大家圣诞快乐！

ILoveMadoka · 发表于 2022-7-6 12:52:55

李。。。

再一次

你就是那个男人！！

当我长大后，我想像你一样编程！！

谢谢你，圣诞快乐！！

Lee Mac · 发表于 2022-7-6 13:06:43

很乐意帮忙，圣诞快乐

[编程交流] LWeight后续问题。。

发表回复

精选推荐