田草博客
日志搜索


 标题   内容 评论


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件
-电信用户-|-网通用户-
-博客论坛-|-软件下载-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2020 - 6 48
 123456
78910111213
14151617181920
21222324252627
282930


站点统计

最新评论



隐藏日志,无权浏览 iTextSharp导出pdf中的图片
未知 Adding XData to AutoCAD entities using .NET   [ 日期:2016-10-10 ]   [ 来自:本站原创 ]  HTML
使用VB.net 为AutoCAD实体添加扩展数据

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime

Namespace ExtendedEntityData
    Public Class Commands
        <CommandMethod("GXD")> _
        Public Shared Sub GetXData()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim ed As Editor = doc.Editor

            ' Ask the user to select an entity
            ' for which to retrieve XData
            Dim opt As New PromptEntityOptions(vbLf & "Select entity: ")
            Dim res As PromptEntityResult = ed.GetEntity(opt)

   &nbs