[分享]：获得 Text 的“真实”的宽度...

XDSoft

How to get the actual width of a text string using VBA?  
ID    65788  
Applies to:    AutoCAD 2000
AutoCAD 2000I
AutoCAD 2002

Date    7/23/2002  

This document is part of   Visual Lisp   Text, Mtext   VBA   


Question
I do not see a property of the MText object that will return the actual string
width. The GetBoundingBox method returns values based on the bounding box of
the MText object, not the actual text string.
Answer
The MText object does not have a property that returns the width of the actual
text string. As a potential work around, you can get the Width value from DXF
group code 42 of the object. Below is a Lisp routine and a VBA procedure.  To
use this example, load the Lisp routine before running the VBA procedure.

The Lisp code will add a command named myMTextWidth. The VBA procedure adds
MText to the current drawing, and then it runs the Lisp code, using SendCommand.
The Lisp code gets the width of the last entity (the MText) and puts the value
in the USERR1 system variable. The VBA procedure retrieves this value, and prints
it in the 'Immediate' window (Ctrl+G in the VBA IDE).


(defun c:myMTextWidth ( )
   (setq ent (entlast))
   (setq entdata (entget ent))
   (setq tHeight(cdr (assoc 42 entdata)))
   (setvar "USERR1" tHeight)
   (princ)
   (princ)
)



Sub testMtextHeight()
' This example creates an MText object in model space.


   Dim MTextObj As AcadMText
   Dim corner(0 To 2) As Double
   Dim width As Double
   Dim text As String


   corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
   width = 1
   text = "This test 11111111111"
   ' Creates the mtext Object
   Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)


   ' ZoomAll
   ThisDrawing.SendCommand "MyMTextWidth "


   Debug.Print ThisDrawing.GetVariable("Userr1")


End Sub

心渐凉

我的办法是：把字串设置成某种对齐方式，去两个夹点间的坐标差值即可。

efan2000

对于单行文字，可以用GetBoundingBox获取，但有条件，文字必须是水平的，并且不能用ScaleFactor设置比例因子。

yingxy1234

用lisp的话，是用本身提供的一个函数就可以