我收集的一些vb专题源程序

cqy

你好：

我弄了很久，无法将图面的数字赋值给A，烦请高手指教，多谢！

图面 100

选择集 text

A= ThisDrawing.ModelSpace.text

A值为0

王咣生

你要先得到text对象,然后读取它的属性值如下autocad帮助文件中的例子)

Sub Example_TextString()
    ' This example creates a text object in model space.
    ' It then returns the text string for that object.
    
    Dim textObj As AcadText		'声明
    Dim text As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    
    ' Define the text object
    text = "Hello, World."
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
    
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)
    '赋值
    ZoomAll
    
    ' Return the current text string for the object
    text = textObj.textString	'读属性
    MsgBox "The TextString property equals: " & text, vbInformation, "TextString Example"
        
End Sub

cnks

好东西。

jordan

谢谢楼主。。啊。。顶。。。。

hangc

下啦很多有用的东西，不顶一下对不起自己呀！

树袋熊

楼主辛苦了

cgboy88

up

chilli

真是感谢！辛苦了！

zhuangbin

不错，多谢！！！！


但是我现在没用到。


多上传别的关于画图标注的源代码！！


谢谢！！！！

洋葱老爹

好，很好，非常好！！！！谢谢！特别感谢！！！！