乐筑天下

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

[求助]ACAD2004中如何使用VLAX类

[复制链接]
WWWDONG

15

主题

28

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-6-1 09:30:00 | 显示全部楼层 |阅读模式
在调用如下函数时出错，错误行如下：
Public Function GetDXFCodeValue(ent As AcadEntity, gCode As Integer) As Variant
  
   
    Dim obj As VLAX, retval
   
    Set obj = New VLAX
    retval = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & _
                                     Chr(34) & ent.Handle & Chr(34) & "))))")
    Set obj = Nothing
    GetDXFCodeValue = retval
   
End Function
回复

使用道具 举报

WWWDONG

15

主题

28

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-6-1 18:06:00 | 显示全部楼层
VLAX.CLS v1.2 (Last updated 12/21/2000)
' Copyright 1999, 2000 by Frank Oquendo
回复

使用道具 举报

lh_163

2

主题

10

帖子

4

银币

初来乍到

Rank: 1

铜币
18
发表于 2003-6-5 17:52:00 | 显示全部楼层
把vlax类初始化模块中的第一句"set VL=ThisDrawing.Application.GetInterfaceObject("VL.Application.1")"最后的“1”改为“16”即可。
回复

使用道具 举报

mccad

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-6-5 20:52:00 | 显示全部楼层
对，2004在程序中的版本为16，所以引用时不管是AutoCAD，ObjectDBX还是VL均应更改为16[br]
回复

使用道具 举报

WWWDONG

15

主题

28

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-6-6 13:57:00 | 显示全部楼层
版主果然高手
谢谢！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 17:40 , Processed in 0.534103 second(s), 62 queries .

© 2020-2025 乐筑天下

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