乐筑天下

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

AeccPipe/Structure 是否总是返回 false

[复制链接]

6

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
35
发表于 2017-6-11 18:48:42 | 显示全部楼层 |阅读模式
有人知道为什么“Is AECCIPE”和“Is AeccStructure”不断返回false吗?昨晚使用了相同的代码,但自从我的CAD崩溃后,相同的代码就无法识别我绘制的管道实际上是一个管道,我不明白为什么…
  1.    Dim spsPipe As AeccPipe
  2.    Dim spsAcadObj As AcadObject
  3.    Dim spsPoint As Variant
  4.    Dim spsStructure As AeccStructure
  5.    
  6.    Dim spsPipeStyle As AeccPipeStyle
  7.    Dim spsStructureStyle As AeccStructureStyle   
  8.    
  9.    Dim spsApp As AcadApplication
  10.    Set spsApp = ThisDrawing.Application
  11.    Dim spsAppName As String
  12.    spsAppName = "AeccXUiPipe.AeccPipeApplication.10.5"   
  13.    
  14.    Dim spsPipeApplication As AeccPipeApplication   
  15.    Set spsPipeApplication = spsApp.GetInterfaceObject(spsAppName)
  16.    
  17.    Dim spsPipeDocument As AeccPipeDocument   
  18.    Set spsPipeDocument = spsPipeApplication.ActiveDocument
  19.    x = False
  20.    Do Until x = True
  21.       ThisDrawing.Utility.GetEntity spsAcadObj, spsPoint, vbLf & "Select pipe"  
  22.       If (TypeOf spsAcadObj Is AeccPipe) Then

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

6

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
35
发表于 2017-6-11 19:05:02 | 显示全部楼层
作为测试,我在ThisDrawing下面添加了这条线。获取实体...
  1. Msgbox spsAcadObj.ObjectName

并且确实返回了“AeccDBPipe”
回复

使用道具 举报

0

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
2
发表于 2019-11-7 15:26:44 | 显示全部楼层
有没有人解决这个问题? 我在vba中有一个管网实用程序,就像AutoCAD工作了几年一样。 现在,在2020年搬到一家新公司后,它还没有成功。 此外,在安装2020 Service Pack 2之后,它甚至不会通过AeccXUiPipe.AeccPipeApplication.13.2的分配。 本周早些时候,我可以让它通过这个并走过绘图中的对象,但是 object.name 是AeccDbPipe,不会在AeccPipe上打字吗?

Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Dim sAppName As String
sAppName = “AeccXUiPipe.AeccPipeApplication.13.2”
Dim oPipeApplication As AeccPipeApplication
Set oPipeApplication = oApp.GetInterfaceObject(sAppName)

' 获取对当前活动文档的引用。
Dim oPipeDocument As AeccPipeDocument
Set oPipeDocument = oPipeApplication.ActiveDocument
  
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2019-11-7 18:39:01 | 显示全部楼层
不是你问题的答案,而是一个通用的,有两种方法可以通过版本或通过注册找到CIV3d的版本号,只是其他人可能想要使用,并且有非
2020
  1. ((vl-string-search "R17.2" vrsn) (setq appstr "6.0")) ;09
  2.          ((vl-string-search "R18.0" vrsn) (setq appstr "7.0")) ;2010
  3.          ((vl-string-search "R18.1" vrsn) (setq appstr "8.0")) ;2011
  4.          ((vl-string-search "R18.2" vrsn) (setq appstr "9.0")) ;2012
  5.          ((vl-string-search "R19.0" vrsn) (setq appstr "10.0")) ;2013
  6.          ((vl-string-search "R19.1" vrsn)(setq appstr "10.3"));;2014
  7.          ((vl-string-search "R20.0" vrsn)(setq appstr "10.4"));;2015
  8.          ((vl-string-search "R20.1" vrsn)(setq appstr "10.5"));;2016     
  9.          ((vl-string-search "R21.0" vrsn)(setq appstr "11.0"));;2017  
  10.          ((vl-string-search "R22.0" vrsn)(setq appstr "12.0"));;2018   
  11.          ((vl-string-search "R23.0" vrsn)(setq appstr "13.0"));;2019
  12.          ((vl-string-search "R23.1" vrsn)(setq appstr "13.2"));;2020
  13.          ((alert "This version of C3D not supported!"))

我有其他civ3d的东西可以发布细节,如果你或任何其他人想要。通过工具栏实现智能曲面管理器。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-7 18:40 , Processed in 0.301411 second(s), 60 queries .

© 2020-2025 乐筑天下

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