只需一步,快速开始
使用道具 举报
都试了
用的语句为: 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文件名称,已定义过,在红色语句以下语句不执行。
看不懂你提问些什么,再说清楚一些吧。
是指用程序插入的属性块,块可以看到,但属性却看不到?
不好意思,前面较着急,没讲清楚。
是指用程序插入的属性块,块看不到。
花了几天功夫,问题终于解决了,是插入点定义时不能用
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.181851 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.