明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2801|回复: 6

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

[复制链接]
发表于 2007-3-29 01:34:00 | 显示全部楼层 |阅读模式

我在AutoCAD2007里建了一些简单的三维实体,比如圆柱,圆锥等

在AutoCAD使用右键菜单里的“特性”,可以在弹出对话框里看到它的

几何信息,比如中心、长、宽、高等,

是否可以在VBA程序里,通过编程得到呢?

我查询了VBA的帮助,可是只有体积、惯性矩等参数,没有几何参数,

将工成另存为dxf文件,但里面关于三维实体的几何信息似乎是加密的,

请高手提示一下!

发表于 2007-3-29 11:14:00 | 显示全部楼层

Reply From: mataeux
Date: Aug/12/02 - 07:55 (GMT)

Reply
  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
)
 楼主| 发表于 2007-3-29 16:42:00 | 显示全部楼层

Thank you!

Perhaps I must learn some about lisp.

I know little about it.

发表于 2007-8-21 18:02:00 | 显示全部楼层
有属性的 啊
发表于 2007-8-22 07:46:00 | 显示全部楼层
大部分都加了密
发表于 2007-8-22 19:42:00 | 显示全部楼层
我也需要知道怎样提取SOLID 信息。可是提取的信息里没有作图需要的。   望你搞定了  给予指点。
发表于 2010-4-16 20:27:00 | 显示全部楼层
楼主,你的问题解决了吗,能否帮助一下我,谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 00:33 , Processed in 0.165371 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表