使用LISP命令更改块属性的X值
我想创建一个LISP命令，允许我选择一个块并将属性（块描述）向右移动（编辑属性位置的x坐标）。如果LISP命令使用“（setq-ss（ssget‘（（0.“INSERT”）））”允许我一次选择多个块，然后将其所有属性移动到指定的X坐标，那将是一件好事。我不想使用Bedit，因为块的某些属性将被移动到不同的位置。这是我目前掌握的代码。目前，它将允许我选择多个块并遍历每个块的所有属性。但是，我不知道如何只更改每个属性的X坐标。
(defun c:shiftatt ( / i ss obj)
(setq i 0)
(if
(and
(setq ss (ssget '((0 . "INSERT"))))
)
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss i)))
(foreach x (vlax-invoke obj 'GetAttributes)
;code to change x-coordinate of each attribute
)
(setq i (1+ i))
)
)
(princ)
)
如果某些属性需要位于与其他属性不同的位置，则需要使用动态点参数，然后将有问题的属性链接到该参数。之后，您可以使用（vlax invoke obj‘getdynamicblockproperties）获取动态属性并从中更改值。
编辑：
经过进一步检查，这实际上是可能的。除上述代码外：
(foreach x (vlax-invoke obj 'GetAttributes)
(setq pt (vlax-get x 'InsertionPoint))
(vla-put-insertionpoint x (vlax-3d-point _your_x_value_ (cadr pt) (caddr pt)))
)
页:
[1]