如何使属性始终保持在 0 旋转

T-Square · 发表于 2008-9-1 17:37:02

你好，
有没有办法让属性保持0旋转，不管块旋转是什么？
附加的db是一个内部4方向的高程标记。只有外部属性需要它总是在0旋转。
我也想在我的其他一些块上使用它。
此外，当您走出db编辑器进入主图形屏幕时，如何保持所有属性、行工作等可见？
感谢任何帮助。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2008-9-2 11:25:50

我不确定动态块是否可以做到这一点。您可以使用它快速将所有atts置于0旋转：

copy

(defun c:atts0 (/ ss blk att)
  (if (setq ss (ssget '((0 . "INSERT") (66 . 1))))
    (foreach blk (mapcar 'vlax-ename->vla-object
                         (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                 )
      (foreach att (vlax-invoke blk 'getattributes)
        (vla-put-rotation att 0.)
        (vla-update att)
      )
    )
  )
  (princ)
)