Executar rotina lisp via visual basic

[samu20ifnd]

Executar rotina lisp via visual basic
Se alguem souber como.

[robmag]

samu20ifnd,

Até o AutoCAD 2005, um botão (VBA) para chamar uma rotina Lisp era feito assim:

- No menu Tools clicar em Customize>Toolbars;

- Na cx. de diálogo Customize, selecionar a guia Commands e o botão para assinar a macro;

- Na guia Button Properties, adicionar o seguinte código:

^C^CloadMacro

robmag

[cleyson]

samu20ifnd

Explique o porque de você querer executar um lisp por VBA, qual a sua idéia ?

Atenciosamente
Cleyson Cloves do Carmo

[samu20infd2]

Irei explicar melhor:

A principio não queria utilizar o VBA do autoCAD, mas sim o Visual Basic 6 para executar as rotinas em lisp. Queria saber se é possível fazer algo do tipo. Queria saber também se é possível carregar um mapa .DWG através do Visual Basic 6. O motivo desse tipo de solução, não é um aplicativo que será utilizado por mim, mas para o cliente que me pediu esse trabalho. A idéia seria uma aplicação em VB6 que serviria de menu para execução de rotinas lisp, e o carregamento do map. Tudo isso por quê os usuários que irão utilizá-lo, vocês já conhecem, são pessoas que tem dificuldade em lidar com PCs. A idéia é facilitar o trabalho, pois o número de usuários será grande, e quanto mais rápido eles aprenderem a mecher melhor. Espero ter sido claro.

Um abraço a todos.

[samu20infd2]

Já estou conseguindo algum progresso.
Se alguem puder colcocar mais alguns exeplos em agradeceria:

Dim App As AcadApplication
Dim DWG As AcadDocument
Dim modelSpace As AcadModelSpace
Dim Entity As AcadEntity

Set App = New AutoCAD.AcadApplication
Set DWG = App.Application.Documents.Open("c:\dwgfile.dwg", True)
Set modelSpace = DWG.modelSpace

For Each Entity In modelSpace
(doe iets)
Next

App.Quit
Set DWG = Nothing
Set App = Nothing

[cleyson]

Exemplo:
Access Atribuindo Circulos com Hachuria no CAD


'Tem que carregar a Biblioteca do AutoCad
'No meu caso AutoCad 2007 type Libary
'e Autodesk Map 2007
Dim hatchObj As AcadHatch
Dim patternName As String
Dim PatternType As Long
Dim bAssociativity As Boolean
Dim entiCircle(0 To 0) As AcadEntity


Dim acadApp As AcadApplication
Dim model As AcadModelSpace
Dim entry As AcadLayer
Dim pt1(0 To 2) As Double
Dim i As Long
Dim pergunta As Boolean
pergunta = True
On Error Resume Next
'conecta o cad, nao esqueca de adicionar a referencia ao "autocad type(ou object) lybrary"
Set acadApp = GetObject(, "AutoCAD.Application.17")
If Err.number <> 0 Then
Err.Clear
Set acadApp = GetObject("", "AutoCAD.Application.17")
pergunta = False
End If
'Set acadApp = CreateObject("AutoCAD.Application.17")


'Seta o Model do Cad
If pergunta = True Then
If MsgBox("Deseja abrir um Arquivo Novo?", vbYesNo, "Aviso") = vbYes Then
Dim novo As AcadDocument
Set novo = acadApp.Application.Documents.Add 'Abre novo Arquivo
End If
End If


'Seta o Model do Cad
On Error Resume Next
Set model = acadApp.ActiveDocument.modelSpace 'vai pro modelspace
If Err.number <> 0 Then
MsgBox "A janela do AutoCAD não está ativada!" & vbNewLine & "Comando Cancelado!", vbCritical, "ERRO"
rotuloAguarde.Visible = False
Exit Sub
End If
'Cria o Layer Linha
Set entry = acadApp.ActiveDocument.Layers.Add(nomeLayer)


While Not rs.EOF

eixox = rs(9).value
eixoy = rs(10).value
delimitador() = Split(eixox, ".") 'Para Campo que estiverem no X
eixox = Trim$(delimitador(0))

'Trabalhando com Y
delimitador() = Split(eixoy, ".") 'Para Campo que estiverem no Y
eixoy = Trim$(delimitador(0))

pt1(0) = eixox
pt1(1) = eixoy

' Create the associative Hatch object in model space
Set hatchObj = model.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)
Set entiCircle(0) = model.AddCircle(pt1, raio)
' Append the outerboundary to the hatch object, and display the hatch
hatchObj.AppendOuterLoop (entiCircle)
hatchObj.Evaluate
hatchObj.Layer = nomeLayer
hatchObj.color = cor
entiCircle(0).Layer = nomeLayer
entiCircle(0).color = cor

...


Precisando de ajuda procure também por cracksther pois ele tem mais estrada do que eu no VB, tenho uma apostila ótima de VBA, se quiser te mando
E-mail: [email protected]

Atenciosamente
Cleyson Cloves do Carmo

[cleyson]

Veja também no :http://www.autolisp.com.br/autolisp/mod ... =0&thold=0

Sr FelixJm também pode te ajudar no VBA, tem alguns artigos deles em VB na seção de Artigos desse Site

Atenciosamente
Cleyson Cloves do Carmo

[samu20infd2]

Valew pela ajudar cleyson!
Ainda não deu tempo de testá-las,

Mas desde já agradeço!
Vlw abraço!