带属性的故障排除块

GregGleason · 发表于 2022-7-5 15:16:01

我有一个带有属性的块，我正在使用lee macs lisp例程填充标题块。它适用于所有图纸，除了一个我的工作。

我认为这不是Lisp程序的问题。没有显示任何属性，我尝试了ATTDISP和ATTSYNC，但仍然看不到属性，即使其中有默认数据。

有我错过的开关吗？

格雷格

Grrr · 发表于 2022-7-5 15:39:28

它们可能是“常量属性”，最好上传一个示例块。

GregGleason · 发表于 2022-7-5 15:58:00

这是图纸。块为“ISOBORDER”。

格雷格
测验图纸

Grrr · 发表于 2022-7-5 16:11:00

经过测试，没有常数属性，我可以使用这个测试子功能更改每个属性的值：

copy


(defun C:test ( / e o )
 (and 
   (setq e (car (entsel "\nPick the block: ")))
   (setq o (vlax-ename->vla-object e))
   (foreach x (vlax-invoke o 'GetAttributes)
     (if (vl-catch-all-error-p (vl-catch-all-apply '(lambda nil (vlax-put x 'TextString "abc"))))
       (alert (strcat "\nError at "" (vlax-get x 'TagString) ""."))
     )
   )
 )
 (princ)
)

该块定义中有5个不同的层（可能问题是：如果某些属性位于锁定层上），
用于检查块定义内图层的快速测试功能：

copy

(defun C:test ( / e o s lyr L )
 (and 
   (setq e (car (entsel "\nPick the block: ")))
   (setq o (vlax-ename->vla-object e))
   (setq s "")
   (progn
   (vlax-for x (vla-item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-EffectiveName o))
     (or (member (setq lyr (vlax-get x 'Layer)) L)
       (setq
         s (strcat lyr "\n" s)
         L (cons lyr L)
       )
     )
   )
   L
   )
   (alert (strcat ">>> " (itoa (length L)) " Layers contained in the block:\n" s))
 )
 (princ)
)

如果这就是问题所在，那么非lisp修复就是将层0中的所有对象更改为层0。
你能说出给你带来麻烦的确切属性（或其中一些属性）吗？

GregGleason · 发表于 2022-7-5 16:19:51

嗯，修复方法（就像以前一样）是将属性复制出来并粘贴到新图形中。

在那之后一切都很好。

谢谢你的建议。

格雷格

[编程交流] 带属性的故障排除块

发表回复

精选推荐