跨多通道替换块

SteveK · 发表于 2022-7-6 12:48:25

你好
我还想知道如何在多个布局中插入块，但这可能一箭双雕。
无论如何，我正在尝试跨多个布局替换块。我只是通过更改dxf代码2来实现这一点。问题是，如果新块在图形中不存在，它将无法工作。好的，我只需要使用insert命令先插入块。但是我的画里有一个额外的方块。。。一定有更好的方法，这是我的代码：

谢谢，

注：如果您想知道所有布局的foreach循环的意义是什么，这只是暂时的，因为CAB发布了一个布局选择程序（一些简单的Autolisp问题的第5页）因此，之后我将把（布局列表）更改为选项卡列表。

旁白：如何链接到线程中的特定帖子？

Patrick_35 · 发表于 2022-7-6 12:52:14

你好

一个例子
+

SteveK · 发表于 2022-7-6 12:55:53

谢谢Patrick，尽管我只是vlisp的初学者，这很有意义，而且效果很好。
我有几个学习问题：cvport 1决定我目前是否在paperspace？我尝试在模型空间中运行代码，但它仍然改变了paperspace中的所有块，vla获取paperspace和vla获取模型空间如何影响代码？

另一方面：
如果我有一个我想要使用的布局列表（即不是图形中的所有布局），我想我可以在ssget函数之前放置一个foreach循环并添加（cons 410 layout），但这会产生很多循环。我想知道什么是将列表直接放入ssget函数的最好方法？
如果我能得到这份清单（“第1页”、“第3页”、“第5页”等）
然后将其放入ssget筛选器中，如
（cons 410“第1页、第3页、第5页等”），我认为这是最好的方法。

编辑：除非有更好的方法，否则别担心，我只是想到了这个：
谢谢

Lee Mac · 发表于 2022-7-6 13:00:14

或者，这应该可以：

copy


(setq str (car (layoutlist)))
(foreach lay (cdr (layoutlist))
 (setq str (strcat str (chr 44) lay)))

SteveK · 发表于 2022-7-6 13:01:54

谢谢李，是的，这很有效。
实际上，这很方便，因为出于某种原因，我用我的方法发现第一个和最后一个布局没有包含在选择集中。。。？

Lee Mac · 发表于 2022-7-6 13:04:41

还没有真正正确地查看您的重复循环，但乍一看，没有必要使用：

copy

(setq laystr (strcat """ laystr """))

变量laystr将解释为：

“”布局1，布局2，布局3“”

SteveK · 发表于 2022-7-6 13:09:31

啊，行了。

好的，现在我的程序一切都很好；还有一件事我想添加到它，那就是，有一个单一的属性在块中，我想改变。现在我可以用autolisp实现这一点（见下面Patrick编辑的代码），但在所有vlisp编码中看起来都很糟糕。在vlisp中容易做到吗？没什么太复杂的

同样，我仍然想知道在Patricks代码中vla get paperspace和vla get modelspace函数的影响。

Patrick_35 · 发表于 2022-7-6 13:13:13

你好

试试这个

copy

(defun rplce_Issue_blks(block tablist rev_date / bl block doc file sel
           laylist laystr
           ss subenlst)
 (vl-load-com)
 (setq doc (vla-get-activedocument (vlax-get-acad-object))
 )
 (vla-startundomark doc)
 (or (tblsearch "block" block)
     (not (setq file (findfile (strcat "R:\\AutoCAD\\Blocks\" block ".dwg"))))
   (vla-delete (vla-insertblock (if (eq (getvar "cvport") 1)
                  (vla-get-paperspace doc)
                  (vla-get-modelspace doc)
                )
                (vlax-3d-point '(0.0 0.0 0.0))
                file
                1
                1
                1
                0
       )
   )
 )
; Added layouts
 (setq laystr (car tablist))
 (foreach lay (cdr tablist)
   (setq laystr (strcat laystr (chr 44) lay))
 )
 ;(princ laystr)
 (and (tblsearch "block" block)
      (ssget "_x" (list (cons 0 "insert") (cons 2 "IFA,IAC,IFC") (cons 410 laystr) (cons 67 1))) ; dxf 67=1 only paperspace
   (progn
     (vlax-for bl (setq sel (vla-get-activeselectionset doc))
       (vla-put-name bl block)
[color=Red][b]    (and (setq att (vlax-invoke bl 'getattributes))
     (vla-put-textstring (car att) rev_date)
   )
[/b][/color]      )
     (vla-delete sel)
   )
 )
 ; This is deffinately Bad Practice (using autolisp in a vlisp routine), but I don't know how to change an attribute any other way...
;   (If (setq ss (ssget "_x" (list (cons 0 "insert") (cons 2 "IFA,IAC,IFC") (cons 410 laystr) (cons 67 1))))
;(Progn
;  (foreach en (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
;    (If (= (cdr (assoc 0 (setq subenlst (entget (entnext en))))) "ATTRIB")
;      (entmod (subst (cons 1 rev_date) (assoc 1 subenlst) subenlst))
;      (Princ "Couldn't change the date in the new Issue Blocks\n"))
;    ))(Princ "No Blocks found\n"))
 ; End of Bad Practice
 
 (vla-endundomark doc)
 (princ)
)

未测试

@+

Lee Mac · 发表于 2022-7-6 13:16:10

作为旁白Steve，我想进一步解释一下Patrick提供的方法，如果您在一个块中处理多个属性，这将对您有所帮助。

有两种方法可以获取块中的属性列表，如下所示。每个将返回不同的数据类型，列表或变体。

假设块对象设置为变量Obj。

现在，有两种方法来检索属性，这两种方法还取决于您是否也要获取常量属性。

使用Patricks方法：

copy


(vlax-invoke Obj 'GetAttributes)

将返回块中的属性列表，不包括常量属性。

将返回类似的内容：

copy


(#<VLA-OBJECT IAcadAttributeReference 0e13b9ec> 
#<VLA-OBJECT IAcadAttributeReference 0e13b76c>)

一种替代方法，您可能更习惯于看到的一种方法是：

这将再次为您提供一个AttributeReference对象列表，以便您可以随心所欲地进行操作。

要包含常量属性，您需要调用另一个方法，并附加结果，例如：

这将返回块中所有属性的列表，例如：

使用如上所述的另一种方法，可以这样做：

copy


(apply 'append
 (mapcar
   (function
     (lambda (x)
       (vlax-safearray->list
         (vlax-variant-value x))))
   (list (vla-getAttributes Obj)
         (vla-getConstantAttributes Obj))))

或类似内容，取决于您是否要使用mapcar。

更进一步，如果我们想从一个块中获取所有属性，但我们不知道它是否具有常量属性，该怎么办。

使用此方法：

copy


(append
 (vlax-invoke Obj 'GetAttributes)
 (vlax-invoke Obj 'GetConstantAttributes)
)

不会引起问题，因为第二个列表只是一个空列表['（）或nil]，可以成功地追加。

但是，您无法将空的safearray转换为列表，因为您将收到有关safearray索引的错误。

这可以通过一些错误捕获来避免：

当将安全阵列转换为列表的操作出错时，使用vl catch all apply将防止程序崩溃。如果vl-catch-all-error-p返回一个错误对象（#），则vl-catch-all-error-p将返回T，这与我们需要的结果（列表）相反。

检查空safearray的另一种方法是检查safearray维度的上界。

vla GetConstantatAttributes方法返回的safearray只有一个维度（vla对象列表），因此我们可以使用以下方法检查该维度的上限：

上述结果为-1表示safearray为空，因此，在继续将safearray转换为列表之前，可以使用一个简单的条件来检查这一点。

注意：请记住，安全数组的上界比维度包含的元素数少一个，因为它是从零开始索引的。因此，具有3个属性的块将返回一个上限为2的一维安全数组。

我希望这能帮助你更好地理解这个过程。

如果你对我发布的任何东西有任何进一步的问题，尽管问。

干杯

李

SteveK · 发表于 2022-7-6 13:20:01

Patrick谢谢，它可以工作-2个函数，多么简单！

李，这是一个巨大的帮助，我会有更多的问题，但我必须先仔细考虑这里的一切。然而，一个明显的问题是，当vlax invoke（1个函数）如此简单时，为什么会有人使用vlax safearray方法（3个函数）？我认为这是因为较长的方法是学习vlisp的常见途径。不过，我还是可以跳过调用：wink：

谢谢

[编程交流] 跨多通道替换块

发表回复

精选推荐