社区 › AutoLISP/Visual LISP 编程技术 › 关于标注文字的“垂直放置文字”

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 static/image/common/back.gif
试试命令 DIMOVERRIDE
按照提示一次输入下面的值
DIMTAD


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

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

给你写了一个你试试，不会vl函数，抱歉
(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" """P" "")
(princ)
)

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

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

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

查看完整版本: 关于标注文字的“垂直放置文字”