BIGAL 发表于 2022-7-31 13:01:53

帮助:旋转视窗ucs rotati文本和块

你好当我旋转视口ucs（以打印图形为例）时，我使用此代码来死记硬背文本（以便于阅读）。我需要帮助来更新代码。我想选择多个块和文本或多行文字
(defun c:ROV ( / ss2 i vta tmp)
(vl-load-com)
(prompt "\n Select TEXT and MTEXT to rotate ")
(setq ss2 (ssget '((0 . "*TEXT")))
      i   0
      vta (- 0 (getvar "viewtwist"))
)
(repeat (sslength ss2)
    (setq tmp (vlax-ename->vla-object (ssname ss2 i)))
    (if (eq (vla-get-ObjectName tmp) "AcDbText")
      (progn
      (vlax-put tmp "Rotation" vta)
      (vlax-put tmp "Alignment" acAlignmentLeft)
      )
      (progn
      (vlax-put tmp "Rotation" 0.0)
      (vlax-put tmp "AttachmentPoint" acAttachmentPointTopLeft)
      )
    )
    (setq i (1+ i))
)
)

谢谢
**** Hidden Message *****

Crank 发表于 2022-7-31 19:46:25

不确定如何选取块，（setq ss2 （ssget '（0 .“*TEXT，INSERT”））））
）Mtext支持在家庭作业的视口中自动旋转。

Crank 发表于 2022-8-1 13:20:15

@PM：
如果您安装了expresstools，请查看TORIENT命令。（你可以在ACETTXT.lsp中找到lisp）
页: [1]
查看完整版本: 帮助:旋转视窗ucs rotati文本和块