乐筑天下

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

请问如何修改块里的属性?

[复制链接]

2

主题

35

帖子

4

银币

初来乍到

Rank: 1

铜币
43
发表于 2004-1-15 17:16:00 | 显示全部楼层 |阅读模式
我将块里的属性的TextGenerationFlag的值设置为acTextFlagBackward,如何恢复为原来的值,初始值为0。在VBA的帮助里只提供了两个参数acTextFlagBackward和acTextFlagUpsideDown。
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-1-16 12:48:00 | 显示全部楼层
设置之后,确实不能再更改回去,只能通过其它方法,比如在Lisp中修改。
  1. Sub test()
  2.     Dim textobj As AcadText
  3.     Set textobj = ThisDrawing.ModelSpace(0)
  4.     ThisDrawing.SendCommand "(setq e (entget (handent " & """" & textobj.Handle & """" & ")))" & vbCr
  5.     ThisDrawing.SendCommand "(setq e (subst (cons 71 0) (assoc 71 e) e))" & vbCr
  6.     ThisDrawing.SendCommand "(entmod e)" & vbCr
  7.     ThisDrawing.SendCommand "(setq e nil)" & vbCr
  8. End Sub
回复

使用道具 举报

2

主题

35

帖子

4

银币

初来乍到

Rank: 1

铜币
43
发表于 2004-1-16 14:07:00 | 显示全部楼层
谢谢!
这个问题我已经解决了。
由于用VB只是做的控件(访问数据库方便),载体是用VC做的对话框,所以我把这段改在VC下,命令行里也不会有信息显示了,而且速度也快了很多。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 10:42 , Processed in 0.342422 second(s), 58 queries .

© 2020-2025 乐筑天下

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