使用Visual basic更改文本

mien · 发表于 2022-7-6 15:01:11

有人能教我如何使用Visual basic或lips在autocad中显示高度值吗？但文本格式必须如下所示，例如9.5。。。

lpseifert · 发表于 2022-7-6 15:12:16

如果我理解你的要求，并假设它是多行文字。。。您需要检查两个dxf代码，即文本高度和字符串的值和格式。

(cdr(assoc 43 (entget(car(entsel)))))
(cdr(assoc 1 (entget(car(entsel)))))

Lee Mac · 发表于 2022-7-6 15:19:49

也许这可以帮助您：

http://www.cadtutor.net/forum/showthread.php?t=33006

CarlB · 发表于 2022-7-6 15:30:05

可以使用具有属性的块标记高程（高度）；在您的示例中，“9”和“5”可以是单独的属性，右对齐和左对齐。

Lee Mac · 发表于 2022-7-6 15:36:41

在多行文字中，可以通过将以下代码替换到elist中来改变文字的高度：

{\\H0.5x；文本}

以上内容将使文本高度为多行文字中前一个文本的一半。

Lee Mac · 发表于 2022-7-6 15:43:57

例如：

copy


(defun c:tht (/ ent tval nval 1st)
 (if (and (setq ent (car (entsel "\nSelect MTEXT Entity... ")))
      (eq "MTEXT" (cdadr (entget ent))))
   (progn
     (setq tval (cdr (assoc 1 (entget ent)))
       nval (substr tval 2) 1st (substr tval 1 1))
     (entmod (subst (cons 1 (strcat 1st "\{\\H0.5x;" nval "\}"))
            (assoc 1 (entget ent)) (entget ent))))
   (princ "\nNo MTEXT Selected"))
 (princ))