明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4115|回复: 4

VBA中插入图块

[复制链接]
发表于 2005-7-10 20:03 | 显示全部楼层 |阅读模式
如何在VBA中实现:在当前图形中直接插入存储在电脑中的图块?这个在LISP中很容易实现,在VBA中我想了很久,不知道如何实现,请各位高手指导指导!!
发表于 2005-8-10 20:05 | 显示全部楼层
使用insertblock函数,具体可查看帮助
发表于 2011-12-13 11:57 | 显示全部楼层
占个座,一窍不通
发表于 2012-3-1 09:00 | 显示全部楼层
1楼正解! 帮顶!
发表于 2013-11-26 14:45 | 显示全部楼层
    '首先需引用AutoCAD/ObjectDBX,方法是vbaide窗口中工具--->引用--->选中AutoCAD/ObjectDBX。。。后确定
    Dim objDbx
    Dim blkName1 As String
    Dim dwgName1 As String
    Dim objBlk(0) As Object, objBlk1(0) As Object
    Dim pnt1(2) As Double
    Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    blkName1 = "CenterHole1" '引用块的名称
    dwgName1 = "路径\图名.dwg"
    objDbx.Open dwgName1
    pnt1(0) = : pnt1(1) =: pnt1(2) = '定义插入点
    Set objBlk(0) = objDbx.Blocks(blkName1)
    objDbx.CopyObjects objBlk, ThisDrawing.ModelSpace
    ThisDrawing.ModelSpace.InsertBlock pnt1, blkName1, 1 / ratio, 1 / ratio, 1 / ratio, 0   'ratio为比例因子,事先自己设定好
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:02 , Processed in 0.245901 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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