将所有块设置为ByLaye

alanjt · 发表于 2022-7-6 09:39:58

我希望块定义没有太多对象。

baker · 发表于 2022-7-6 09:46:57

我只会在简单的区块上使用它，2D区块，如进水口、消防水渠。。等

alanjt · 发表于 2022-7-6 09:47:52

他知道我的意思，但我应该对其他人更清楚。
您应该在执行块定义之前存储层，然后可以应用变量中的层，而不是每次“获取”对象的层。

BlackBox · 发表于 2022-7-6 09:50:34

触摸。。。我甚至没想到。我猜这就是我回答一个不适合我的问题所得到的。

为了弥补我的错误，也许是这样的：

copy


(if
 (and
   (eq :vlax-false (vla-get-islayout block))
   (eq :vlax-false (vla-get-isxref block))
   )
  [color=blue](progn[/color]
    (vlax-for object  block
      (mapcar
        (function
          (lambda (property value / lay)
            (vl-catch-all-apply
              'vlax-put-property
              (list object property value))
            )
          )
        '(layer color linetype)
        (list [color=blue](cond (lay)
                    ((setq lay (vla-get-layer object))))[/color]
              acbylayer
              "BYLAYER")
        )
      )
    [color=blue](setq lay nil)[/color]
    [color=blue])[/color]
  )