Run Lisp in VBA from Button_Click

[mpair]

I have tried ThisDrawing.SendCommand to run the following lisp from VBA without any luck. The lisp calls for an Insertion Point and then inserts a block with 3 attributes. I've attached the block and lisp for clarity. Does anyone know the code I would need in VBA to insert this block as if running the lisp on it's own? I am running ACAD MEP 2010 on a 64bit machine in Windows 7.

Flex.lsp

(DEFUN C:Flex ()
;
(setvar "attdia" 0)
(setvar "osmode" 512)
;

(Prompt "\nSelect Insertion Point")
(setq pt1 (getpoint))
;
(command "-insert" "G:/detail/_UMEC-Toolbox/Blocks/PNIDBlocks/flex.dwg" pt1 "1")
)

[Coolmo]

What "command" string are you sending with the SendCommand? Is the lisp loaded already or do you need the button click to load it first and then run the command?

[RobertAitken]

Why don't you just insert the block using VBA code?

The list routine you have is basically a script to insert a block so why not write it in VBA and do everything in VBA instead of trying to get VBA to pass it to lisp.

I could understand if the lisp routine was a function that was difficult to replicate in VBA.

Just a thought.

Robert

[mpair]

I originally tried inserting the block with VBA code, but could not get that to work either. I'm still a little green in the VBA world.

When I run the two SendCommand functions together, I get an error on the load. Seperately, I can load the lisp, but not run the command. I would be happy to get it to work either by calling a lisp or with the vba code itself - it seems that would be cleaner and less files to pull from.

To load the lisp, I'm using:
ThisDrawing.SendCommand "(load ""G:/detail/_UMEC-Toolbox/lsp/PNID/DataFiles/Flex.lsp"") "

I'm having a problem running the command:
ThisDrawing.SendCommand "flex"

I get a Run-time error '-2147418111(80010001':
Automation error
Call was rejected by callee.

[Ed Jobe]

Code that is executed with SendCommand is run asyncronously from vba execution. When you call 'flex', the lisp isn't loaded yet. Do a search in this forum for 'lisp' for some workarounds.

[RobertAitken]

Post the code you had for inserting the block and I'll have a look at it.

Inserting blocks isn't to much hassle.

ThisDrawing.ModelSpace.InsertBlock(dblInsPt, strBlockPathName & strBlockName & ".DWG", 1#, 1#, 1#, 0#) works

Robert

[mpair]

Thanks Robert, here is the code...

Private Sub FlexButton_Click()
Dim varInsertionPoint As Variant
Dim XYZScale As Double
Dim dblRotation As Double
Dim ls_filename As String

ls_filename = "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg"

XYZScale = 1
dblRotation = 0

With ThisDrawing.Utility
.InitializeUserInput 1
varInsertionPoint = .GetPoint(, vbCr & "Select Insertion Point: ")
End With

End Sub

[mpair]

I have also tried this code for inserting a block with no luck...

Private Sub FlexButton_Click()

Dim objBlockRef As AcadBlockReference
Dim ip As Variant
Dim ep As Variant

On Error Resume Next


ip = ThisDrawing.Utility.GetPoint(, vbCr & "Select Insertion Point: ")
ep = ThisDrawing.Utility.GetAngle(ip, "Select block rotation angle:")

Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(ip, "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg", 1#, 1#, 1#, ep)

objBlockRef = Nothing

End Sub

[Ed Jobe]

There's some sample code in the developer guide. Look for a link to it on the Help menu.

[fixo]

I have also tried this code for inserting a block with no luck...

Private Sub FlexButton_Click()

Dim objBlockRef As AcadBlockReference
Dim ip As Variant
Dim ep As Variant

On Error Resume Next


ip = ThisDrawing.Utility.GetPoint(, vbCr & "Select Insertion Point: ")
ep = ThisDrawing.Utility.GetAngle(ip, "Select block rotation angle:")

Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(ip, "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg", 1#, 1#, 1#, ep)

objBlockRef = Nothing

End Sub

Compare with this code

 
Private Sub FlexButton_Click()
Dim objBlockRef As AcadBlockReference
Dim ip As Variant
Dim ep As Variant
Dim blkName As String
 
On Error GoTo Err_Control '<-- do not use On Error Resume Next
 
Me.Hide '<--hide form
 
blkName = "G:\detail\_UMEC-Toolbox\Blocks\PNIDBlocks\FlexTemp.dwg" '<-- define all variables explicitly before
 
ip = ThisDrawing.Utility.GetPoint(, vbCrLf & "Select Insertion Point: ")
ep = ThisDrawing.Utility.GetAngle(ip, vbCrLf & "Select block rotation angle:")
Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(ip, blkName, 1#, 1#, 1#, ep)
Set objBlockRef = Nothing '<-- this is object thus you can use Set to release them
Me.Show '<-- unhide
 
Err_Control:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
 
End Sub

hth

~'J'~