jacky789 发表于 2006-5-4 22:02:00

[求助][VBA]vba-函数使用

<FONT face=Simsun size=2>h = .GetReal(vbCrLf &amp; "Enter an real") <BR>select case<BR>...<BR>end select<BR>像上列语句类型也可以使用DLL封吗？？<BR>需要宣告什么吗？？<IMG alt="" src="http://p4.xdcad.net/forum/images/smilies/em19.gif" border=0> <BR>:)</FONT>

雪山飞狐_lzh 发表于 2006-5-5 10:27:00

<P>当然可以，要引用AutoCad的类型库，或者用后期绑定也行</P>

jacky789 发表于 2006-5-5 23:44:00

本帖最后由 作者 于 2006-5-6 1:07:47 编辑 <br /><br /> <P><FONT face=Simsun size=2>将下列纳入DLL语句中：</FONT></P>
<P><FONT face=Simsun size=2>Set aa = thisdrawing.ModelSpace.AddCircle(cc, bb)<BR>上列语句中会显示"thisdrawing"变数未定义<BR>该如何解决呢??(把autocad 2006 type library引用了)<BR></P></FONT>
<P>谢谢版主的回答～～:)</P>

xinghesnak 发表于 2006-5-6 09:43:00

<P>应该这样吧，你试试</P>
<P>dim thisdrawing as object</P>
<P>set thisdrawing=getobject(,"acad.application")</P>
<P>没试过DLL，不知道得到acad函数库管不管用。。。^_^</P>

jacky789 发表于 2006-5-6 21:57:00

<P>不行使用A&nbsp; ～～</P>
<P>找不到active X物件～～</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: [求助][VBA]vba-函数使用