明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2019|回复: 7

急!!!Vb中插入属性块,在图形中看不到

[复制链接]
发表于 2007-12-29 03:26:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-1-3 2:40:56 编辑

               在VB中插入属性块,在图形文件中的插入块命令中能看到块,但在图形文件中看不到,我用的是VB6.0+AutoCAD2006
发表于 2007-12-29 17:31:00 | 显示全部楼层
在图形文件中看不到什么?属性?
 楼主| 发表于 2008-1-1 16:31:00 | 显示全部楼层
看不到块
发表于 2008-1-1 20:47:00 | 显示全部楼层
update一下试试
发表于 2008-1-1 22:43:00 | 显示全部楼层
blockreference
 楼主| 发表于 2008-1-2 00:49:00 | 显示全部楼层

都试了

用的语句为:    Dim bgblk As AcadBlockReference
                tkinsertd(0) = 0: tkinsertd(1) = 0: tkinsertd(2) = 0
                Set bgblk = Acadapp.ActiveDocument.ModelSpace.InsertBlock(tkinsertd, bgtmc,1#, 1#, 1#, 0)
                bgblk.Update
 bgtmc为图块名称或dwg文件名称,已定义过,在红色语句以下语句不执行。          

发表于 2008-1-2 12:32:00 | 显示全部楼层

看不懂你提问些什么,再说清楚一些吧。

是指用程序插入的属性块,块可以看到,但属性却看不到?

 楼主| 发表于 2008-1-3 02:39:00 | 显示全部楼层
本帖最后由 作者 于 2008-1-3 2:42:44 编辑

 不好意思,前面较着急,没讲清楚。

 是指用程序插入的属性块,块看不到。
 

    花了几天功夫,问题终于解决了,是插入点定义时不能用

    Dim tkinsertd(0 To 2),lscrd1(0 To 2),lscrd2(0 To 2) As Double

    语句定义,用下列方法定义就可以了,要分开定义

           Dim tkinsertd(0 To 2) As Double
           Dim lscrd1(0 To 2) As Double
           Dim lscrd2(0 To 2) As Double

    

 

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 11:44 , Processed in 0.183073 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表