关于标注文字的“垂直放置文字”

weilu · 发表于 2016-5-20 20:39:55

请教如何用LISP代码实现将某一标注的文字由默认的上方改为下方？

yaokui25 · 发表于 2016-5-20 20:48:23

试试命令 DIMOVERRIDE
按照提示一次输入下面的值
DIMTAD
0
DIMTVP
-1

weilu · 发表于 2016-5-20 20:53:04

yaokui25 发表于 2016-5-20 20:48
试试命令 DIMOVERRIDE
按照提示一次输入下面的值
DIMTAD

有什么组码或者vl函数可以去控制么？

yaokui25 · 发表于 2016-5-20 20:58:19

给你写了一个你试试，不会vl函数，抱歉[em0]
(defun C:DIM_MM( / ObjSet )
  (princ "\n 标注文字移动")
(princ "\n **********************************")
(setq ObjSet nil)
(while (= ObjSet nil)
  (setq ObjSet (ssget '((0 . "DIMENSION"))))
)
(command "DIMOVERRIDE" "DIMTAD" "0" "DIMTVP" "-1" ""  "

" "")
(princ)
)

weilu · 发表于 2016-5-20 21:01:44

yaokui25 发表于 2016-5-20 20:58
给你写了一个你试试，不会vl函数，抱歉
(defun C:DIM_MM( / ObjSet )
(princ "\n 标注文字移动")
...

谢谢你，但是希望有不通过command来实现的~

账号		自动登录	找回密码
密码			注册

[提问] 关于标注文字的“垂直放置文字”

浏览过的版块