乐筑天下

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

[求助]如何通过VBA编程得到3DSolid对象的几何信息?

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2007-3-29 01:34:00 | 显示全部楼层 |阅读模式
我在2007里建了一些简单的三维实体,比如圆柱,圆锥等
在AutoCAD使用右键菜单里的“特性”,可以在弹出对话框里看到它的
几何信息,比如中心、长、宽、高等,
是否可以在VBA程序里,通过编程得到呢?
我查询了VBA的帮助,可是只有体积、惯性矩等参数,没有几何参数,
将工成另存为dxf文件,但里面关于三维实体的几何信息似乎是加密的,
请高手提示一下!
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2007-3-29 11:14:00 | 显示全部楼层
Reply From: mataeux
Date: Aug/12/02 - 07:55 (GMT)



                                          Re: Where is ACIS-REGION.LSP
what did you need to accomplish that you cannot derive from the common dxf codes?
each of the 1 codes in a solid entity data list represents a line in the sat file.
if you are familiar with the sat file, then you can use this to extract the sat file from the entity data. it itemizes the string so you can index into it.
(defun acis_translate(string / item letter lst)
(setq string(strcat string" ")item"")
(while(>(strlen string)0)
(setq letter(substr string 1 1)string(substr string 2))
(if(=" "letter)
(setq lst(append lst(list item))item"")
(setq item(strcat item(chr(boole 6(ascii letter)95))))
)
)
lst
)
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2007-3-29 16:42:00 | 显示全部楼层
Thank you!
Perhaps I must learn some about lisp.
I know little about it.
回复

使用道具 举报

9

主题

79

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2007-8-21 18:02:00 | 显示全部楼层
有属性的 啊
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2007-8-22 07:46:00 | 显示全部楼层
大部分都加了密
回复

使用道具 举报

2

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2007-8-22 19:42:00 | 显示全部楼层
我也需要知道怎样提取SOLID 信息。可是提取的信息里没有作图需要的。   望你搞定了  给予指点。
回复

使用道具 举报

4

主题

8

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2010-4-16 20:27:00 | 显示全部楼层
楼主,你的问题解决了吗,能否帮助一下我,谢谢
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-1 19:50 , Processed in 1.642327 second(s), 78 queries .

© 2020-2025 乐筑天下

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