[LISP程序]：VLISP-反向标注还原

lsjjm

VLISP-反向标注还原
打开图纸发现原来标注的尺寸反过来了, 下面的程序可以将反向的标注还原过来:
(defun c:test ()
  ;(vl-load-com)
  (setq dd  (ssget '((0 . "DIMENSION"))))
  (setq n 0)
  (while (< n (sslength dd))
    (setq obj (vlax-ename->vla-object (ssname dd n)))
    (setq p (vla-get-TextPosition obj))
    (vla-put-normal obj (vlax-3d-point '(0 0 1)))
    (vla-put-TextPosition obj p)
    (setq n (1+ n))
  )
)

陌生人

问一下，一般情况下，正常的标注用刷子刷不正常的标注，可以恢复正常么？

chstart

最初由 陌生人 发布
[B]问一下，一般情况下，正常的标注用刷子刷不正常的标注，可以恢复正常么？ [/B]

不正常的标注指的是那些啊？
要看尺寸是不是被人为改动过，比如拉伸、移动过尺寸数字的位置等，这些改不了。

陌生人

楼上，这个帖子说的是“反向标注”，还会是什么？