[密技]：如何不使用sendcommand在vba中对lisp求值

Quelea · 发表于 2002-9-26 10:21:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

<body>
<table cellSpacing="0" cellPadding="2" width="666" bgColor="#e0e0e0" border="0">
<tbody>
<tr>
<td width="660">寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&q=author:holderm%40atscorporation.com+" target="_top">Mark
Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>)
主旨：Re: Calling Autolisp
Programs From VB - Map 2000
新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a>
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td><a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&selm=375FBB76.FE6C2EDB%40atscorporation.com" target="_top">View
this article only</a></td>
</tr>
</tbody>
</table>
日期：1999/06/10
</td>
</tr>
</tbody>
</table>
<pre>Tony,
Thanks once again for the info. For others who may be interested, I went looking and found the
following link:
<a href="http://www.autodesk.com/products/acadr14/files/avlisp.exe" target="_top">[url]http://www.autodesk.com/products/acadr14/files/avlisp.exe[/url]</a>
The following is an excerpt:
<<snip>>
Visual LISP as an ActiveX Server
Visual LISP can function as an ActiveX server. This is useful when using VBA dialogs to control
Visual LISP applications. For instance, a programmer can create dialogs using the VBA visual
tools for layout. They can then have the actions invoke Visual LISP.
Any Visual LISP function may be invoked and any symbol may have its value referenced or set.
Parameters and results are all variants. In the following example
Sub Hello()
Set vla = CreateObject("VL.Application.1")
Set vld = vla.ActiveDocument
Set vl_read = vld.Functions.Item("read")
Set vl_eval = vld.Functions.Item("eval")
Set vl_hello = vl_read.funcall("(defun hello (x)(print x))")
Set vl_hello = vl_eval.funcall(vl_hello)
Set vl_hello = vld.Functions.Item("hello")
ret = vl_hello.funcall("world")
MsgBox ret, vbOKOnly
End Sub
we obtain access to Visual LISPs read and eval functions. We then use those to define a hello
function, which we then call, displaying its return value in a message box.
<<snip>>
Of interest in it is the phrase "Parameters and results are all variants". We may get better
results by declaring our variables as variants (which can contain an object) rather than declaring
them directly as objects.
I'm more optimistic about calling VLisp from VB after seeing Autodesk endorse the idea.
Tony Tanzillo wrote:
<<snip>>The Visual LISP white paper on Autodesk's web page has an example in VBA that should work.
<<snip>></pre>
</body>

<body> 
 
<table cellSpacing="0" cellPadding="2" width="666" bgColor="#e0e0e0" border="0"> 
  <tbody> 
    <tr> 
      <td width="660">寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;q=author:holderm%40atscorporation.com+" target="_top">Mark 
        Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>) 
        主旨：Re: Calling Autolisp 
        Programs From VB - Map 2000 
        新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a> 
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td><a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;selm=375FBB76.FE6C2EDB%40atscorporation.com" target="_top">View 
                this article only</a></td> 
            </tr> 
          </tbody> 
        </table> 
        日期：1999/06/10 
        </td> 
    </tr> 
  </tbody> 
</table> 
<pre>Tony, 
 
Thanks once again for the info. For others who may be interested, I went looking and found the 
following link: 
 
 <a href="http://www.autodesk.com/products/acadr14/files/avlisp.exe" target="_top">[url]http://www.autodesk.com/products/acadr14/files/avlisp.exe[/url]</a> 
 
The following is an excerpt: 
 
&lt;&lt;snip&gt;&gt; 
Visual LISP as an ActiveX Server 
 
Visual LISP can function as an ActiveX server.  This is useful when using VBA dialogs to control 
Visual LISP applications.  For instance, a programmer can create dialogs using the VBA visual 
tools for layout. They can then have the actions invoke Visual LISP. 
 
Any Visual LISP function may be invoked and any symbol may have its value referenced or set. 
Parameters and results are all variants.  In the following example 
 
Sub Hello() 
    Set vla = CreateObject(&quot;VL.Application.1&quot;) 
    Set vld = vla.ActiveDocument 
    Set vl_read = vld.Functions.Item(&quot;read&quot;) 
    Set vl_eval = vld.Functions.Item(&quot;eval&quot;) 
    Set vl_hello = vl_read.funcall(&quot;(defun hello (x)(print x))&quot;) 
    Set vl_hello = vl_eval.funcall(vl_hello) 
    Set vl_hello = vld.Functions.Item(&quot;hello&quot;) 
    ret = vl_hello.funcall(&quot;world&quot;) 
    MsgBox ret, vbOKOnly 
End Sub 
 
we obtain access to Visual LISPs read and eval functions.  We then use those to define a hello 
function, which we then call, displaying its return value in a message box. 
&lt;&lt;snip&gt;&gt; 
 
Of interest in it is the phrase &quot;Parameters and results are all variants&quot;. We may get better 
results by declaring our variables as variants (which can contain an object) rather than declaring 
them directly as objects. 
 
I'm more optimistic about calling VLisp from VB after seeing Autodesk endorse the idea. 
 
Tony Tanzillo wrote: 
&lt;&lt;snip&gt;&gt;The Visual LISP white paper on Autodesk's web page has an example in VBA that should work. 
&lt;&lt;snip&gt;&gt;</pre> 
 
</body>

Quelea · 发表于 2002-9-26 10:33:57

<body>
<table cellPadding="2" width="581" bgColor="#ffcc33" border="0">
<tbody>
<tr>
<td bgColor="#ffcc33" width="571">所有留言及回应</td>
</tr>
</tbody>
</table>
<a name="link1"></a><a name="s"></a>
<table cellSpacing="0" cellPadding="2" width="581" bgColor="#e0e0e0" border="0">
<tbody>
<tr>
<td width="575">
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td>Message 1 in thread</td>
</tr>
</tbody>
</table>
寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&q=author:holderm%40atscorporation.com+" target="_top">Mark
Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>)
主旨：VLisp
from VB - Episode IV: The Variant Menace
新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a>
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td><a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&selm=37C5B503.8A7A0E88%40atscorporation.com" target="_top">View
this article only</a></td>
</tr>
</tbody>
</table>
日期：1999/08/26
</td>
</tr>
</tbody>
</table>
<pre>A recent thread in this NG brought to my attention a new (to me, at
least) group of VLisp functions. I refer specifically to the very
powerful vlax-Curve-xxx functions, though there are probably many more
that could be useful. I posted a request for information on how to use
these functions from VB(A).
After much trial and error, I managed to get what I was after. The
snippet of code below demonstrates obtaining the length of a polyline
using some of these functions.
To save others time and frustration, I offer the following observations
along with the working code:
1) Variables to be passed as arguments to VLisp must be declared as
Variant, though constants are coerced ok.
2) Those same arguments must be converted back to Lisp values with
(vlax-variant-value <v>) before being used in "standard" lisp function
calls (like (handent), or ones you might write) in the Lisp code you
will be calling from VB.
3) You can only call Lisp defined functions (as opposed to internal ones
like vlax-curve-xxx) directly, because internal functions cannot be
found by vld.Functions.Item(fName).
4) I call (vl-load-com) in my AcadDoc.LSP file, to ensure that it is
always loaded, and to avoid calling it in every routine I write. If you
don't, make sure it is called before you do anything that depends on it.
5) The Lisp code can be defined in a standard text or vlx file, in which
case it need not be built into your code. By putting it in your code you
can be sure it is available, and not visible to others.
6) I chose to prefix my ActiveX Lisp function names with "vb" to
indicate that their arguments have to be made into ActiveX variants
(with vlax-make-variant) if they are to be called from regular Lisp
code.
Private Sub GetEnd(ByVal anEnt As AutoCAD.AcadEntity)
Dim vl_Read As Variant, vl_Eval As Variant, vl_Defun As Variant, ret
As Variant
Dim vld As Variant
Dim arg As Variant
Dim fName As String
Dim NoFunc As String
On Error GoTo Failed
' Your code to Set vld will call GetInterfaceObject or CreateObject.
Set vld = myAcadSession.VLisp.ActiveDocument
' An arbitrary function name is used.
fName = "vbEntityLength"
Set vl_Defun = vld.Functions.Item(fName)
' One might think that the value of vl_Defun or Err would indicate
whether function fName
' was already available, but NOOOO! It is always an Object.
' An error will be raised when we try to use the function...
On Error Resume Next
' Note: Passing anEnt.Handle directly does NOT work. Parameters MUST
be variants
arg = anEnt.Handle
ret = vl_Defun.funcall(arg)
If Err Then
' Err.Number=2000, whether the reason is no function definition or
the entity is not a curve
NoFunc = "no function definition:"
If UCase(Left$(Err.Description, Len(NoFunc))) = UCase(NoFunc) Then
' MsgBox Err.Description & " (" & Err.Number & ")",
vbInformation, "Defining function " & fName & ":"
Err.Clear
Set vl_Read = vld.Functions.Item("read")
Set vl_Eval = vld.Functions.Item("eval")
' Note: a mopre legible version of the Lisp code appears below,
after the 'End Sub' statement
Set vl_Defun = vl_Read.funcall("(defun " & fName & " (x /
picked rc lgth) (setq picked (handent (vlax-variant-value x))) (setq rc
(Vlax-Curve-GetEndPoint picked)) (setq lgth (vlax-curve-GetDistAtPoint
picked rc)))")
Set vl_Defun = vl_Eval.funcall(vl_Defun)
Set vl_Defun = vld.Functions.Item(fName)
arg = anEnt.Handle
ret = vl_Defun.funcall(arg)
Else
MsgBox Err.Description & " (" & Err.Number & ")",
vbInformation, "Error in " & fName & ":"
End If
Else
MsgBox "Function " & fName & " was already defined:"
End If
MsgBox "Length = " & ret & "."
Exit Sub
Failed:
MsgBox Err.Description, vbInformation, "Error:"
Err.Clear
Exit Sub
End Sub
A more legible version of the Lisp code is:
(defun vbEntityLength ( x /
picked rc lgth
)
; The argument passed in is an ActiveX variant, which must be
converted into a plain Lisp value
; before Handent can use it.
(setq picked (handent (vlax-variant-value x)))
; Now, we can call the VLisp function to get the end point
(setq rc (Vlax-Curve-GetEndPoint picked))
; And the length is the distance at the end point
(setq lgth (vlax-curve-GetDistAtPoint picked rc))
)</pre>
<a name="link2"></a>
<table cellSpacing="0" cellPadding="2" width="558" bgColor="#e0e0e0" border="0">
<tbody>
<tr>
<td width="552">
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td>Message 2 in thread</td>
</tr>
</tbody>
</table>
寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&q=author:degag%40videotron.ca+" target="_top">Denis
Gagne</a> (<a href="mailto:degag@videotron.ca">degag@videotron.ca</a>)
主旨：Re:
VLisp from VB - Episode IV: The Variant Menace
新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a>
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td><a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&selm=7q7eoo%24miu32%40adesknews2.autodesk.com" target="_top">View
this article only</a></td>
</tr>
</tbody>
</table>
日期：1999/08/27
</td>
</tr>
</tbody>
</table>
<pre>Not enough for a marriage consumption
between Lisp and Vba but at least it's the
beginning of a more solid frequentation.
Very well done, Mark
Denis</pre>
<a name="link3"></a>
<table cellSpacing="0" cellPadding="2" width="557" bgColor="#e0e0e0" border="0">
<tbody>
<tr>
<td width="551">
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td>Message 3 in thread</td>
</tr>
</tbody>
</table>
寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&q=author:holderm%40atscorporation.com+" target="_top">Mark
Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>)
主旨：Re:
VLisp from VB - Episode IV: The Variant Menace
新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a>
<table cellSpacing="0" cellPadding="0" align="right" border="0">
<tbody>
<tr>
<td><a href="http://groups.google.com/groups?hl=zh-CN&lr=&ie=UTF-8&oe=UTF-8&selm=37C7D6C2.85F9EB3E%40atscorporation.com" target="_top">View
this article only</a></td>
</tr>
</tbody>
</table>
日期：1999/08/28
</td>
</tr>
</tbody>
</table>
<pre>Denis,
Clearly, a better approach would be to expose functions like these
through an AcitveX DLL like DbConnect does for database connectivity.
Perhaps an adesker like Jorge or Albert or an intrepid 3rd party ARX
developer will take on the task. Or maybe we just haven't yet found out
what DLL we need to reference.
Mark Holder
Denis Gagne wrote:
> Not enough for a marriage consumption
> between Lisp and Vba but at least it's the
> beginning of a more solid frequentation.
>
> Very well done, Mark
>
> Denis</pre>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tbody>
<tr>
<td bgColor="#ffcc33"><img height="3" alt src="http://groups.google.com/images/cleardot.gif"></td>
</tr>
</tbody>
</table>
<center>©2002 Google</center>
</body>

<body> 
 
<table cellPadding="2" width="581" bgColor="#ffcc33" border="0"> 
  <tbody> 
    <tr> 
      <td bgColor="#ffcc33" width="571">所有留言及回应</td> 
    </tr> 
  </tbody> 
</table> 
<a name="link1"></a><a name="s"></a> 
<table cellSpacing="0" cellPadding="2" width="581" bgColor="#e0e0e0" border="0"> 
  <tbody> 
    <tr> 
      <td width="575"> 
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td>Message 1 in thread</td> 
            </tr> 
          </tbody> 
        </table> 
        寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;q=author:holderm%40atscorporation.com+" target="_top">Mark 
        Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>) 
        主旨：VLisp 
        from VB - Episode IV: The Variant Menace 
        新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a> 
         
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td><a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;selm=37C5B503.8A7A0E88%40atscorporation.com" target="_top">View 
                this article only</a></td> 
            </tr> 
          </tbody> 
        </table> 
        日期：1999/08/26 
        </td> 
    </tr> 
  </tbody> 
</table> 
<pre>A recent thread in this NG brought to my attention a new (to me, at 
least) group of VLisp functions. I refer specifically to the very 
powerful vlax-Curve-xxx functions, though there are probably many more 
that could be useful. I posted a request for information on how to use 
these functions from VB(A). 
 
After much trial and error, I managed to get what I was after. The 
snippet of code below demonstrates obtaining the length of a polyline 
using some of these functions. 
 
To save others time and frustration, I offer the following observations 
along with the working code: 
 
1) Variables to be passed as arguments to VLisp must be declared as 
Variant, though constants are coerced ok. 
 
2) Those same arguments must be converted back to Lisp values with 
(vlax-variant-value &lt;v&gt;) before being used in &quot;standard&quot; lisp function 
calls (like (handent), or ones you might write) in the Lisp code you 
will be calling from VB. 
 
3) You can only call Lisp defined functions (as opposed to internal ones 
like vlax-curve-xxx) directly, because internal functions cannot be 
found by vld.Functions.Item(fName). 
 
4) I call (vl-load-com) in my AcadDoc.LSP file, to ensure that it is 
always loaded, and to avoid calling it in every routine I write. If you 
don't, make sure it is called before you do anything that depends on it. 
 
5) The Lisp code can be defined in a standard text or vlx file, in which 
case it need not be built into your code. By putting it in your code you 
can be sure it is available, and not visible to others. 
 
6) I chose to prefix my ActiveX Lisp function names with &quot;vb&quot; to 
indicate that their arguments have to be made into ActiveX variants 
(with vlax-make-variant) if they are to be called from regular Lisp 
code. 
 
Private Sub GetEnd(ByVal anEnt As AutoCAD.AcadEntity) 
   Dim vl_Read As Variant, vl_Eval As Variant, vl_Defun As Variant, ret 
As Variant 
   Dim vld As Variant 
   Dim arg As Variant 
   Dim fName As String 
   Dim NoFunc As String 
 
   On Error GoTo Failed 
 
    ' Your code to Set vld will call GetInterfaceObject or CreateObject. 
 
   Set vld = myAcadSession.VLisp.ActiveDocument 
 
    ' An arbitrary function name is used. 
   fName = &quot;vbEntityLength&quot; 
   Set vl_Defun = vld.Functions.Item(fName) 
 
   ' One might think that the value of vl_Defun or Err would indicate 
whether function fName 
   '     was already available, but NOOOO! It is always an Object. 
 
   ' An error will be raised when we try to use the function... 
   On Error Resume Next 
 
    ' Note: Passing anEnt.Handle directly does NOT work. Parameters MUST 
be variants 
   arg = anEnt.Handle 
   ret = vl_Defun.funcall(arg) 
   If Err Then 
      ' Err.Number=2000, whether the reason is no function definition or 
the entity is not a curve 
      NoFunc = &quot;no function definition:&quot; 
      If UCase(Left$(Err.Description, Len(NoFunc))) = UCase(NoFunc) Then 
 
         ' MsgBox Err.Description &amp; &quot; (&quot; &amp; Err.Number &amp; &quot;)&quot;, 
vbInformation, &quot;Defining function &quot; &amp; fName &amp; &quot;:&quot; 
         Err.Clear 
 
         Set vl_Read = vld.Functions.Item(&quot;read&quot;) 
         Set vl_Eval = vld.Functions.Item(&quot;eval&quot;) 
 
        ' Note: a mopre legible version of the Lisp code appears below, 
after the 'End Sub' statement 
         Set vl_Defun = vl_Read.funcall(&quot;(defun &quot; &amp; fName &amp; &quot; (x / 
picked rc lgth) (setq picked (handent (vlax-variant-value x)))  (setq rc 
(Vlax-Curve-GetEndPoint picked)) (setq lgth (vlax-curve-GetDistAtPoint 
picked rc)))&quot;) 
         Set vl_Defun = vl_Eval.funcall(vl_Defun) 
 
         Set vl_Defun = vld.Functions.Item(fName) 
 
         arg = anEnt.Handle 
         ret = vl_Defun.funcall(arg) 
      Else 
         MsgBox Err.Description &amp; &quot; (&quot; &amp; Err.Number &amp; &quot;)&quot;, 
vbInformation, &quot;Error in &quot; &amp; fName &amp; &quot;:&quot; 
      End If 
   Else 
      MsgBox &quot;Function &quot; &amp; fName &amp; &quot; was already defined:&quot; 
   End If 
 
   MsgBox &quot;Length = &quot; &amp; ret &amp; &quot;.&quot; 
 
   Exit Sub 
 
Failed: 
   MsgBox Err.Description, vbInformation, &quot;Error:&quot; 
   Err.Clear 
   Exit Sub 
 
End Sub 
 
A more legible version of the Lisp code is: 
(defun vbEntityLength ( x / 
   picked rc lgth 
   ) 
    ; The argument passed in is an ActiveX variant, which must be 
converted into a plain Lisp value 
    ; before Handent can use it. 
   (setq picked (handent (vlax-variant-value x))) 
 
    ; Now, we can call the VLisp function to get the end point 
   (setq rc (Vlax-Curve-GetEndPoint picked)) 
 
    ; And the length is the distance at the end point 
   (setq lgth (vlax-curve-GetDistAtPoint picked rc)) 
)</pre> 
<a name="link2"></a> 
<table cellSpacing="0" cellPadding="2" width="558" bgColor="#e0e0e0" border="0"> 
  <tbody> 
    <tr> 
      <td width="552"> 
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td>Message 2 in thread</td> 
            </tr> 
          </tbody> 
        </table> 
        寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;q=author:degag%40videotron.ca+" target="_top">Denis 
        Gagne</a> (<a href="mailto:degag@videotron.ca">degag@videotron.ca</a>) 
        主旨：Re: 
        VLisp from VB - Episode IV: The Variant Menace 
        新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a> 
         
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td><a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;selm=7q7eoo%24miu32%40adesknews2.autodesk.com" target="_top">View 
                this article only</a></td> 
            </tr> 
          </tbody> 
        </table> 
        日期：1999/08/27 
        </td> 
    </tr> 
  </tbody> 
</table> 
<pre>Not enough for a marriage consumption 
between Lisp and Vba but at least it's the 
beginning of a more solid frequentation. 
 
Very well done, Mark 
 
Denis</pre> 
<a name="link3"></a> 
<table cellSpacing="0" cellPadding="2" width="557" bgColor="#e0e0e0" border="0"> 
  <tbody> 
    <tr> 
      <td width="551"> 
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td>Message 3 in thread</td> 
            </tr> 
          </tbody> 
        </table> 
        寄件者：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;q=author:holderm%40atscorporation.com+" target="_top">Mark 
        Holder</a> (<a href="mailto:holderm@atscorporation.com">holderm@atscorporation.com</a>) 
        主旨：Re: 
        VLisp from VB - Episode IV: The Variant Menace 
        新闻群组：<a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;group=autodesk.autocad.customization.vba" target="_top">autodesk.autocad.customization.vba</a> 
         
        <table cellSpacing="0" cellPadding="0" align="right" border="0"> 
          <tbody> 
            <tr> 
              <td><a href="http://groups.google.com/groups?hl=zh-CN&amp;lr=&amp;ie=UTF-8&amp;oe=UTF-8&amp;selm=37C7D6C2.85F9EB3E%40atscorporation.com" target="_top">View 
                this article only</a></td> 
            </tr> 
          </tbody> 
        </table> 
        日期：1999/08/28 
        </td> 
    </tr> 
  </tbody> 
</table> 
<pre>Denis, 
 
Clearly, a better approach would be to expose functions like these 
through an AcitveX DLL like DbConnect does for database connectivity. 
Perhaps an adesker like Jorge or Albert or an intrepid 3rd party ARX 
developer will take on the task. Or maybe we just haven't yet found out 
what DLL we need to reference. 
 
Mark Holder 
 
Denis Gagne wrote: 
 
&gt; Not enough for a marriage consumption 
&gt; between Lisp and Vba but at least it's the 
&gt; beginning of a more solid frequentation. 
&gt; 
&gt; Very well done, Mark 
&gt; 
&gt; Denis</pre> 
<table cellSpacing="0" cellPadding="0" width="100%" border="0"> 
  <tbody> 
    <tr> 
      <td bgColor="#ffcc33"><img height="3" alt src="http://groups.google.com/images/cleardot.gif"></td> 
    </tr> 
  </tbody> 
</table> 
 
<center>&copy;2002 Google</center> 
 
</body>

rave · 发表于 2002-10-19 16:52:36

请教Quelea, 你做过测试吗？
为什么我老是不能得到或创建“VL.Application.1”对象（vl.arx已加载，我也已引用了vl.tlb，vlide能正常运行）
报运行时错误800700c1.
即“类型未注册”的错误?

rave · 发表于 2002-10-28 15:06:31

I see.

(vl-load-com)

fjw_ok · 发表于 2002-11-19 20:36:09

最初由 rave 发布
[B]I see.

(vl-load-com) [/B]

这句加在那里？

efan2000 · 发表于 2002-11-19 20:40:19

用SendCommand "(vl-load-com)"加载或者将(vl-load-com)放入LSP程序中，使CAD启动时自动加载。

fjw_ok · 发表于 2002-11-19 20:47:31

谢谢

账号		自动登录	找回密码
密码			立即注册

[密技]：如何不使用sendcommand在vba中对lisp求值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

请教Quelea

-

Re: -

谢谢老板，我下了