乐筑天下

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

[编程交流] 我怎样才能得到详细的定义

[复制链接]
san

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 08:55:04 | 显示全部楼层 |阅读模式
大家好,
 
如何获得AECC\u坐标几何点的更详细定义?
 
当我试图在Civil 3D中获得AECC\u坐标几何点的定义时,它是这样出现的,
  1. ((-1 . <Entity name: 7ef20ad8>) (0 . "AECC_COGO_POINT") (330 . <Entity name: 7ef16c10>) (5 . "943") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
  2. (100 . "AeccDbCogoPoint"))

 
虽然我使用了LDD 2009,但AECC_点定义显示了更多细节,
  1. ((-1 . <Entity name: 7ef01d48>) (0 . "AECC_POINT") (330 . <Entity name:
  2. 7ef01c10>) (5 . "29") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
  3. (100 . "AecDbEntity") (102 . "{AEC_SUBOBJECT") (300 . "AeccImpPoint") (100 .
  4. "AecImpObj") (3 . "") (100 . "AecImpEnt") (171 . 0) (100 . "AecImpGeo") (10 0.0
  5. 0.0 0.0) (15 1.0 -0.000387814 0.0) (16 0.000387814 1.0 0.0) (210 0.0 0.0 1.0)
  6. (360 . <Entity name: 0>) (100 . "AeccImpPoint") (90 . 1) (11 280.857 38.6458
  7. 0.0) (302 . "Crest") (301 . "") (300 . "") (280 . 0) (303 . "Crest") (304 . "")
  8. (305 . "") (10 0.0 0.0 0.0) (285 . 0) (286 . 1) (170 . 34) (141 . 5.0) (306 .
  9. "L80") (140 . 10.0) (282 . 1) (283 . 1) (284 . 1) (171 . 2) (172 . 1) (173 . 3)
  10. (287 . 1) (142 . 0.0) (288 . 1) (102 . "AEC_SUBOBJECT}") (102 .
  11. "{AEC_NULLOBJECT}") (100 . "AecDbGeo") (100 . "AeccDbPoint"))

 
有人知道如何获得AECC\u COGO\u点的更详细定义吗?我正在使用Civil 3D、Map 3D和常规AutoCAD。
 
非常感谢!
 
存储区域网络
回复

使用道具 举报

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 09:03:24 | 显示全部楼层
对于autocad,我使用CAB工具
MakeEntmake。lsp
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:13:31 | 显示全部楼层
祝贺你第一次发帖,欢迎来到论坛!
 
也许这会让你获得你想要的“更详细”的信息:
 
  1. (defun c:DUMP  (/ eName)
  2. (vl-load-com)
  3. (if (setq eName (car (entsel "\n  >>  Select Object  >> ")))
  4.    (progn
  5.      (textpage)
  6.      (vlax-dump-object (vlax-ename->vla-object eName) T)))
  7. (princ))
回复

使用道具 举报

san

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 09:20:47 | 显示全部楼层
感谢RenderMan的欢迎和回复。
昨天我发现这个论坛对一个新的lisp学习者很有帮助,我想向所有的成员表示感谢。
 
我尝试了你的DUMP-lisp,得到了这样的信息(见下文)。它确实给了我关于点的更多细节,但没有包含点编号、X、Y、Z和描述,这实际上是我需要的。
顺便问一下,Civil 3D点不允许复制或移动吗?如果我想复制或移动(而不是创建),我该怎么做?
 
我有很多问题。
再次感谢你,RenderMan。
 
我得到的要点信息:
  1. >> Select Object >> ; IAcadEntity2: AutoCAD Entity Interface
  2. ; Property values:
  3. ; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140682e28>
  4. ; Document (RO) = #<VLA-OBJECT IAcadDocument 0000000033118380>
  5. ; EntityTransparency = "ByLayer"
  6. ; Handle (RO) = "3C030"
  7. ; HasExtensionDictionary (RO) = 0
  8. ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000038c62ec8>
  9. ; Layer = "0"
  10. ; Linetype = "ByLayer"
  11. ; LinetypeScale = 1.0
  12. ; Lineweight = -1
  13. ; Material = "ByLayer"
  14. ; ObjectID (RO) = 44
  15. ; ObjectID32 (RO) = 44
  16. ; ObjectName (RO) = "AeccDbCogoPoint"
  17. ; OwnerID (RO) = 43
  18. ; OwnerID32 (RO) = 43
  19. ; PlotStyleName = "ByLayer"
  20. ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000038c63ac0>
  21. ; Visible = -1
  22. ; Methods supported:
  23. ; ArrayPolar (3)
  24. ; ArrayRectangular (6)
  25. ; Copy ()
  26. ; Delete ()
  27. ; GetBoundingBox (2)
  28. ; GetExtensionDictionary ()
  29. ; GetXData (3)
  30. ; Highlight (1)
  31. ; IntersectWith (2)
  32. ; Mirror (2)
  33. ; Mirror3D (3)
  34. ; Move (2)
  35. ; Rotate (2)
  36. ; Rotate3D (3)
  37. ; ScaleEntity (2)
  38. ; SetXData (2)
  39. ; TransformBy (1)
  40. ; Update ()
  41. ---The End

 
 
回复

使用道具 举报

san

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 09:24:51 | 显示全部楼层
感谢asos2000。
我正在搜索你的链接,希望我能得到一些东西。
干杯
回复

使用道具 举报

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 09:34:00 | 显示全部楼层
 
需要检查的几个地方:
 
http://forums.autodesk.com/t5/AutoCAD-Civil-3D/Extracting-AECC-COGO-POINT-information/td-p/2479521
 
http://forums.autodesk.com/t5/AutoCAD-Civil-3D/AECC-Cogo-Point-Lisp-VBA/m-p/1540208
 
http://forums.autodesk.com/t5/AutoCAD-Civil-3D-Customization/Extract-AECC-COGO-POINT-information/m-p/1989388
 
http://blog.civil3dreminders.com/2009/05/add-point-to-point-group-part-iii.html
 
http://www.theswamp.org/index.php?action=printpage;主题=1990.0
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 09:40:58 | 显示全部楼层
 
 
不客气。
 
由于您是论坛新手,这可能会有所帮助:发布代码指南
 
 
 
... 啊,我现在明白了。
 
您希望访问AECC数据库本身。为了做到这一点,您首先需要使用Civil 3D,而不是Map。
 
请记住,您首先要备份数据。。。你将在外部(AECC)对象中“戳来戳去”,如果操作时未正确释放,可能会造成损坏。在您变得更加熟练之前,可能会发生大量应用程序崩溃。只要备份了数据,就没有什么可担心的。
 
Buzzard为您提供了许多链接。看看你能做些什么,如果你需要我们,我们会在这里。
 
祝你好运
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-6 09:47:42 | 显示全部楼层
查看autocad目录中的支持文件,这里有vlisp Vba和的编码示例。用网把这些过滤掉。您可以打开和读取的dvb文件。
 
\Autocad 2009\sample\civil 3d API\vba曲面点?
\Autocad 2011\sample\civil 3d API\com\vba
 
而且http://www.cadtutor.net/forum/showthread.php?49417-更改-CIV3d-contours-simply&highlight=轮廓
回复

使用道具 举报

san

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 09:49:21 | 显示全部楼层
 
 
 
谢谢你们的帮助和指导,我很感谢你们让一个新的学习者对Lisp感到舒服。
我每天都在通过你提供的链接学习,似乎需要长时间的搜索才能达到我的目的,我想知道如何访问几何空间点特征以及如何更改它们,如点编号和描述。(使用subst?)
 
再次感谢大家,祝你们周末愉快。
回复

使用道具 举报

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 10:00:17 | 显示全部楼层
注:我目前正在尝试将表格LD3切换到Civil 3d 2012。。。所以我可能在学习曲线上有点落后。。。。。
 
我在Civil 3d 2012中访问详细的AECC\u坐标几何点定义时遇到了相同的问题。。。
 
我找到了一个解决方法。。。如果取Civil 3d坐标几何点
爆炸它。。。然后返回的enity信息更具信息性(我可以
坐标)。
 
注意:分解点会将其从当前Civil 3d数据库中删除。
所以我一直在阐述这一点。。。获取实体信息,然后撤消
爆炸以重新获得其作为civil 3d项目点的状态。。。
这种方法有点过时(不推荐)。
 
注:
将点分解一次会将其从数据库中删除
并删除点的(100。“AeccDbCogoPoint”)属性。
 
第二次、第三次和第四次分解点开始将点分解为其单独的实体。。。。i、 e.指引线箭头、点节点、点描述块等。
 
所以,我想我正在寻找的是访问嵌入的实体信息的方法
在AECC\u坐标几何点中。。。。我曾尝试使用“nentsel”访问嵌入实体的名称,但它似乎只给了我实体名称(容器AECC\u坐标几何点)和与该点相关联的引线箭头第一个顶点上的坐标(注意,即使没有使用实际的引线箭头,顶点坐标仍然存在)----
 
任何想法。。。。除了多次分解之外,有没有办法找到与AECC\u坐标几何点相关联的所有实体的列表
 
谢谢
 
汤姆
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-7 06:09 , Processed in 1.075052 second(s), 72 queries .

© 2020-2025 乐筑天下

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