要更改的AutoCAD Lisp例程

Grrr · 发表于 2022-7-5 15:56:24

Rlx，
块引用不被视为集合对象（它们不具有“Count”属性）。

因此，如果您尝试：


(setq blkref (vlax-ename->vla-object (car (entsel "\nPick Block reference: "))))
(vlax-for o blkref
 (print o)
)

它应该出现以下错误：

copy

Error: bad argument type: VLA-object collection: #<VLA-OBJECT IAcadBlockReference 0000008a2cc23a68>

综上所述：

copy

(if (vlax-property-available-p obj 'Count)
 (princ "\nObj is collection.")
 (princ "\nObj is not a colletion.")
)

或者我错过了什么。。

rlx · 发表于 2022-7-5 15:59:09

不，这正是问题所在。因此，我可以更改块定义的样式，当我打开已处理的图形并插入新块时，其属性将具有新样式。但现有区块将需要attsync。

p、我只是在想，假设我只想更新某些块的某些属性的样式，其中某个属性具有特定值。。。

Grrr · 发表于 2022-7-5 16:03:03

但是您正在访问块定义-这是一个集合，然后通过插入该块参照（包含新blkdef）在新图形中重新定义它。

或者你的意思是，如果块定义是嵌套的（包含块引用），那么同样需要从引用中访问定义（需要这样的递归技术）。

rlx · 发表于 2022-7-5 16:07:14

我承认，大部分都是纯学术性的，可能有也可能没有任何实际用途，但有时我想要比当时需要的更多的控制，只是一个“如果将来我想做这件事怎么办”的例子，你知道。。。无论如何，感谢您的意见，非常感谢：-）

gr.Rlx

Grrr · 发表于 2022-7-5 16:10:23

不用担心，Rlx，
有一次我也很好奇——可以迭代块引用的图形对象（如直线/圆等）吗（并且不访问其块定义）。
但我仍然知道的最接近的事情是通过分解方法/命令，仅从生成的对象中提取一些数据（并根据例程擦除分解的几何体）。

rlx · 发表于 2022-7-5 16:11:53

其想法是能够只更新某些块的属性，而不是全部，但我认为getattributes方法也能很好地工作。现在希望OP能用上它。。。

gr.Rlx

Grrr · 发表于 2022-7-5 16:17:25

啊，现在我明白你在尝试什么了——确实看起来是一个奇怪的失败。
也许可以这样尝试：

copy

(vlax-for obj (vla-get-block layout)
 ; do stuff and obtain bn-list
)
(setq Blks (vla-get-Blocks odbxdoc))
(foreach blkname bn-list
 (vlax-for blkdef (vla-Item Blks blkname)
   (vlax-for obj blkdef
     (and 
       (vlax-write-enabled-p obj)
       (vlax-property-available-p obj 'StyleName)
       (vla-put-StyleName obj "Company_Name")
     ); and
   ); vlax-for obj
 ); vlax-for blkdef
); foreach

rlx · 发表于 2022-7-5 16:18:04

不。。。相同的错误。。。在我的脑海里，我在想对象所有者/id。。。我隐约记得有一次读过这样的东西。。。嗯，总有一天我会想到的。

我想我已经搞定了，并且更新了代码。我只是扫描了所有的物体。。。

gr.Rlx

Grrr · 发表于 2022-7-5 16:22:34

令人印象深刻的编码，Rlx！

顺便说一句，下面是关于您使用的voidp函数的2c：

copy

rlx · 发表于 2022-7-5 16:26:33

thanx Grrr。最后（或者我应该说开始），问题是vla get block和vla get block之间的区别。。。一封愚蠢的信。。。

是的，我的虚空只在一个空字符串中深入这么多层次，这是因为我在vlisp存在之前和vl string->list/-trim等存在之前编写了它。尽管如此，这些年来，它一直很好地服务于我，纯粹的怀旧

[编程交流] 要更改的AutoCAD Lisp例程

发表回复

精选推荐