乐筑天下

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

AECCIPE/Structure是否总是返回false

[复制链接]

6

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
35
发表于 2017-6-11 18:48:42 | 显示全部楼层 |阅读模式
有人知道为什么吗;是AECCIPE“;和“;是AeccStructure“;一直返回false?昨晚同样的代码工作了,但自从我的CAD崩溃后,同样的代码就不再是了;t认识到我画的管道实际上是一个管道,我可以#039;我不明白为什么…
  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.GetEntity…
  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的分配;本周早些时候,我可以让它通过这个,然后遍历图形中的对象,但是对象。名称是AeccDbPipe,不会在AeccPipe中键入
&nbsp
将oApp Dim作为应用程序设置为oApp=ThisDrawing。应用程序将sAppName设置为字符串;AeccXUiPipe.AeccPipeApplication.13.2“
将oPipeApplication设置为AECCIPeappication。GetInterfaceObject(sAppName)
&039;获取对当前活动文档的引用
将oPipeDocument设置为AeccPipeDocument。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资料可以发布;如果您或其他人需要,请提供详细信息。通过工具栏的Smart surface manager。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

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

© 2020-2025 乐筑天下

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