功能顺序？

guitarguy1685 · 发表于 2022-7-6 11:49:38

我的Lisp程序

我基本上想把图层改成“dimension”图层，然后画尺寸。但是当我绘制维度时，它们并没有绘制在维度层上。

为什么图层在进入第二个命令“dimlinear”之前不会更改？

MSasu · 发表于 2022-7-6 11:55:12

你为什么不使用

(setvar "CLAYER" "dimension")

而不是命令调用？

BearDyugin · 发表于 2022-7-6 11:58:08

如果不存在该层？

guitarguy1685，有许多创建层的方法，例如entmakex或vla add。但是“万物皆有其时”。
在你的情况下，我会使用
如果层不存在，他将创建它并激活，如果层已经存在，则将激活它

MSasu · 发表于 2022-7-6 12:02:54

我在谈论他的问题（红色代码）；这种情况（层不可用）已包含在代码中。但是，可以肯定的是，我在帖子中对此不够清楚。

David Bethel · 发表于 2022-7-6 12:06:41

实际上，要确保设置到给定的层，需要很好的代码：

copy


[b][color=BLACK]([/color][/b]defun SetLayer [b][color=FUCHSIA]([/color][/b]name / ldef flag[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.LAYER"[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] name[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_Make"[/color] name[b][color=NAVY])[/color][/b]
     [b][color=NAVY]([/color][/b]progn
       [b][color=MAROON]([/color][/b]setq ldef [b][color=GREEN]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] name[b][color=GREEN])[/color][/b]
             flag [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 70 ldef[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]logand flag  1[b][color=BLUE])[/color][/b]  1[b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_Thaw"[/color] name[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 62 ldef[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_On"[/color] name[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]logand flag  4[b][color=BLUE])[/color][/b]  4[b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_Unlock"[/color] name[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]= [b][color=BLUE]([/color][/b]logand flag 16[b][color=BLUE])[/color][/b] 16[b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nCannot Set To XRef Dependent Layer"[/color][b][color=GREEN])[/color][/b]
            [b][color=GREEN]([/color][/b]quit[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_Set"[/color] name[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]""[/color][b][color=FUCHSIA])[/color][/b]
 name[b][color=BLACK])[/color][/b]

-大卫

guitarguy1685 · 发表于 2022-7-6 12:08:36

嗯，我不太明白“logand”函数的作用。AutoLisp帮助文件读取

我不理解“逻辑位的结果”。你能解释一下吗？
顺便说一句，我喜欢学习/使用新的autolisp函数

guitarguy1685 · 发表于 2022-7-6 12:12:51

不管怎样，我找到了另一条线索的解释。我仍然不明白，但我会在那里回答。

Lee Mac · 发表于 2022-7-6 12:14:36

快速总结，

位码可以使用加法进行组合，logand/LOGOR可以用于“分解”这些组合。

例如，假设您有一个位代码：

logand将使用“AND”逻辑语句返回位代码，即如果两个代码都包含它：

logior将使用“Inclusive OR”逻辑语句返回位代码，即包含在一个或另一个或两者中的位：

除此之外，我们还可以使用“异或”逻辑语句创建logxor函数，即一个或另一个中包含的位，但不能同时包含两个。

示例：

你可以用二进制来考虑其中的每一个，其中1=true，0=false，因此：

copy


(logand (+ 2  45)
Decimal Equivalent     32 16  8  4  2  1
------------------------------------------------ 
                        [b]1  0  [color=Blue]1[/color]  1  0  1[/b]   (45)
                        [b]0  0  [color=Blue]1[/color]  0  1  0[/b]   (10)
[b]logand[/b] -----------------------------------------
                        [b]0  0  [color=Blue]1[/color]  0  0  0[/b]    (
------------------------------------------------