wm2506 发表于 2007-3-29 01:34:00

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

<p>我在AutoCAD2007里建了一些简单的三维实体，比如圆柱，圆锥等</p><p>在AutoCAD使用右键菜单里的“特性”，可以在弹出对话框里看到它的</p><p>几何信息，比如中心、长、宽、高等，</p><p>是否可以在VBA程序里，通过编程得到呢？</p><p>我查询了VBA的帮助，可是只有体积、惯性矩等参数，没有几何参数，</p><p>将工成另存为dxf文件，但里面关于三维实体的几何信息似乎是加密的，</p><p>请高手提示一下！</p>

alin 发表于 2007-3-29 11:14:00

<table cellspacing="0" cellpadding="0" width="698" border="0"><tbody><tr><td><p><b>Reply From:</b> mataeux <br/><b>Date:</b> Aug/12/02 - 07:55 (GMT) </p></td><td valign="top" width="42"><nobr><a title="Click to reply to this thread" href="http://discussion.autodesk.com/post!reply.jspa?messageID=1144196"><img alt="Reply" src="http://discussion.autodesk.com/images/btn_reply.gif" vspace="6"/></a>
                                        </nobr></td></tr><tr><td>&nbsp;</td><td>&nbsp;</td><td><b>Re: Where is ACIS-REGION.LSP</b><br/>what did you need to accomplish that you cannot derive from the common dxf codes?<br/><br/>each of the 1 codes in a solid entity data list represents a line in the sat file.<br/><br/>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.<br/><br/>(defun acis_translate(string / item letter lst)<br/>(setq string(strcat string" ")item"")<br/>(while(&gt;(strlen string)0)<br/>(setq letter(substr string 1 1)string(substr string 2))<br/>(if(=" "letter)<br/>(setq lst(append lst(list item))item"")<br/>(setq item(strcat item(chr(boole 6(ascii letter)95))))<br/>)<br/>)<br/>lst<br/>)</td></tr></tbody></table>

wm2506 发表于 2007-3-29 16:42:00

<p>Thank you!</p><p>Perhaps I must learn some about lisp.</p><p>I know little about it.</p>

天龙八部 发表于 2007-8-21 18:02:00

有属性的 啊

alin 发表于 2007-8-22 07:46:00

大部分都加了密

xiangyu1983 发表于 2007-8-22 19:42:00

我也需要知道怎样提取SOLID 信息。可是提取的信息里没有作图需要的。   望你搞定了给予指点。

neunew 发表于 2010-4-16 20:27:00

楼主，你的问题解决了吗，能否帮助一下我，谢谢
页: [1]
查看完整版本: [求助]如何通过VBA编程得到3DSolid对象的几何信息？