subject_17027.htm

一些关于vc的问答

<p>
序号：17027 发表者：㊣剑不如人♀ 发表日期：2002-10-07 16:55:02
<br>主题：有没有VC编写AutoCAD　ActiveX的代码？请给我一个
<br>内容：有没有VC编写AutoCAD　ActiveX的代码？请给我一个
<br><a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p>
<hr size=1>
<blockquote><p>
回复者：㊣剑不如人♀ 回复日期：2002-10-07 20:24:29
<br>内容：AUTOCAD的点是怎样赋值的呢？<BR>点是VARIANT类型
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>
<hr size=1>
<blockquote><p>
<font color=red>答案被接受</font><br>回复者：㊣客家人 回复日期：2002-10-08 18:45:39
<br>内容：HRESULT getVariantFromDblArray(VARIANT* pVal, const double pt[3])<BR>{<BR>&nbsp;&nbsp;&nbsp;&nbsp;pVal-&gt;vt = VT_ARRAY | VT_R8;<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;SAFEARRAYBOUND rgsaBound;<BR>&nbsp;&nbsp;&nbsp;&nbsp;rgsaBound.lLbound = 0L;<BR>&nbsp;&nbsp;&nbsp;&nbsp;rgsaBound.cElements = 3;<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;pVal-&gt;parray = SafeArrayCreate(VT_R8, 1, &rgsaBound);<BR>&nbsp;&nbsp;&nbsp;&nbsp;if (! pVal-&gt;parray)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return E_OUTOFMEMORY;<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;HRESULT hr;<BR>&nbsp;&nbsp;&nbsp;&nbsp;for (long i = 0; i &lt; 3; i++)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ((hr = SafeArrayPutElement(pVal-&gt;parray, &i,<BR>(void*)&pt[i]))!=S_OK)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return hr;<BR>&nbsp;&nbsp;&nbsp;&nbsp;return S_OK;<BR>}<BR>pass
<br>
<a href="javascript:history.go(-1)">返回上页</a><br><a href=http://www.copathway.com/cndevforum/>访问论坛</a></p></blockquote>