[求助]如何能获得NURBS实体的DXF组值

babyred 发表于 2007-5-24 13:45:00

<shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" opreferrelative="t" ospt="75" coordsize="21600,21600"> </shapetype><img src="file:///D:/未命名.bmp" border="0" alt=""/>这是Nurbs曲线实体段的组码和说明，想提取次数，节点值，权值和控制点值但是以前没用过CAD的VBA哪位高手能举例说明一下怎么提取么？比如刚看来得Dim objSel As AcadEntityIf objSel.ObjectName <> "AcDbSpline" Then‘<span style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: 宋体; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma;">选择的不是 AcDbSpline，.....我想判断如果组码值为71，把值赋给k如果组码值为10，把值付给一个数组x一些关键字不知用什么啊

babyred 发表于 2007-5-29 17:14:00

没人知道么？

laoliu09 发表于 2007-5-30 00:32:00

你判断组码为了甚么呢？VBA里好像只能判断对象的属性，判断组码好像无从下手，你想实现甚么呢？不一定非要判断组码的吧？

babyred 发表于 2007-5-30 15:36:00

我想将样条曲线的阶次，控制顶点坐标，权值以及节点值提取出来，用于二次开发啊不能实现么？

babyred 发表于 2007-5-30 15:41:00

这个功能VB可以实现，VBA不可以么？以下是一个简单的 Visual Basic 6 程序样例，它读取 DXF 文件，并且从给定段的给定对象中提取特定代码和值。<pre>' ReadDXF 从 DXF 文件中提取指定的代码/值对。</pre><pre>' 此函数需要四个字符串参数、一个有效的 DXF</pre><pre>' 文件名、一个 DXF 段名、该段中对象的</pre><pre>' 名称以及由逗号分隔的代码列表。</pre><pre>'</pre><pre>Function ReadDXF( _</pre><pre>        ByVal dxfFile As String, ByVal strSection As String, _</pre><pre>        ByVal strObject As String, ByVal strCodeList As String)</pre><pre>    Dim tmpCode, lastObj As String</pre><pre>    Open dxfFile For Input As #1</pre><pre>    ' 获取第一个代码/值对</pre><pre>    codes = ReadCodes</pre><pre>    ' 遍历整个文件，直到“EOF”行</pre><pre>    While codes(1) <> "EOF"</pre><pre>        ' 如果组码为“<chmetcnv wst="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="0" unitname="”">0”</chmetcnv>，并且值为“SECTION”，则</pre><pre>        If codes(0) = "0" And codes(1) = "SECTION" Then</pre><pre>            ' 这必须是一个新的段，以便获取下一个</pre><pre>            ' 代码/值对。</pre><pre>            codes = ReadCodes()</pre><pre>            ' 如果此段是要获取的段，则</pre><pre>            If codes(1) = strSection Then</pre><pre>                ' 获取下一个代码/值对，并</pre><pre>                codes = ReadCodes</pre><pre>                ' 遍历此段，直到“ENDSEC”</pre><pre>                While codes(1) <> "ENDSEC"</pre><pre>                    ' 在某段中，所有的“<chmetcnv wst="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="0" unitname="”">0”</chmetcnv>代码都表示</pre><pre>                    ' 对象。如果找到了“<chmetcnv wst="on" tcsc="0" numbertype="1" negative="False" hasspace="False" sourcevalue="0" unitname="”">0”</chmetcnv>代码，则存储</pre><pre>                    ' 对象名称，供以后使用。</pre><pre>                    If codes(0) = "0" Then lastObj = codes(1)</pre><pre>                    ' 如果此对象是用户所需的对象，</pre><pre>                    If lastObj = strObject Then</pre><pre>                        ' 则在代码前后加上逗号</pre><pre>                        tmpCode = "," & codes(0) & ","</pre><pre>                        ' 如果此代码位于代码列表中，</pre><pre>                        If InStr(strCodeList, tmpCode) Then</pre><pre>                            ' 则附加返回值。</pre><pre>                            ReadDXF = ReadDXF & _</pre><pre>                                codes(0) & "=" & codes(1) & vbCrLf</pre><pre>                        End If</pre><pre>                    End If</pre><pre>                    ' 读取其他代码/值对</pre><pre>                    codes = ReadCodes</pre><pre>                Wend</pre><pre>            End If</pre><pre>        否则</pre><pre>            codes = ReadCodes</pre><pre>        End If</pre><pre>    Wend</pre><pre>    Close #1</pre><pre>End Function</pre><pre>' ReadCodes 从打开的文件中读取两行，并返回一个包含两个项目</pre><pre>' 的数组、一个组码及其组码值。只要一次读取 DXF 文件中的两行代码，
</pre><pre>' 所有程序应该都能够顺利运行。但为了使代码
</pre><pre>' 更可靠，应该添加一些进行错误检查和其他</pre><pre>' 检查的代码。</pre><pre>'</pre><pre>Function ReadCodes() As Variant</pre><pre>    Dim codeStr, valStr As String</pre><pre>    Line Input #1, codeStr</pre><pre>    Line Input #1, codeStr</pre><pre>    ' 修剪代码中的前导空格和后续空格</pre><pre>    ReadCodes = Array(Trim(codeStr), valStr)</pre><pre>End Function</pre>

laoliu09 发表于 2007-5-31 00:24:00

如果是读取dxf文件的话，VB和VBA都一样的，但想直接从图形中判断组码，应该就不行了，看看其他高手有妙招没有！

页: [1]

明经CAD社区's Archiver

[求助]如何能获得NURBS实体的DXF组值