乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 44|回复: 2

[求助]问一个很菜的问题

[复制链接]

14

主题

623

帖子

8

银币

中流砥柱

Rank: 25

铜币
679
发表于 2005-4-10 20:17:00 | 显示全部楼层 |阅读模式
我对VBA可以说一点都不懂,以前对VL比较有兴趣,现在也想学学VBA,这不想弄个简单的程序都写不下去了,大家指点一下,先看看程序:
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 basePnt As Variant
                         
                         
                         ' Define the text object
                         ThisDrawing.Utility.GetEntity textObj, basePnt, "Select an object"
                         text = ThisDrawing.Utility.GetString("Enter new string")
                         ......
                                                         
End Sub
         
当中省略号部份我是想把TEXT的内容赋予textobj并更新,可找来找去不知道用什么函数来实现,不象vlisp里有vla-put-textstring函数,大家指点一下。谢谢。。。。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-4-10 20:51:00 | 显示全部楼层
textObj.TextString=text
textObj.Update
是不是比VL简单得多
回复

使用道具 举报

14

主题

623

帖子

8

银币

中流砥柱

Rank: 25

铜币
679
发表于 2005-4-10 21:03:00 | 显示全部楼层
多谢mccad ,确实简单多了,在这之前我写过
text        =textObj.TextString ,把text的值在一个消息框中显示出来,原来反过来就是另外一种用法。其实最关键的是我不知道从何入门?我想还是从一些简单的程序学起,还望各位多多指点!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 22:05 , Processed in 0.334887 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表