---

Hallo Zusammen,

2 für mich wichtige Fragen:

1.) wie wird ein LISP Programm aus Delphi heraus gestartet.
2.) Wie wird ein AuroCAD-VBA aus Delphi heraus angestossen.

Hat mir jemand Programmbeispiele.

Danke für Eure Hilfe

Joachim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm. Delphi.
Schwierige Frage. Delphi verwendet meines Wissens nach lediglich die COM-Schnittstelle von Autocad. Da gibts es nicht wirklich viele Möglichkeiten.

Die einzige Möglichkeit die mir einfällt wäre über die SendCommand Methode des Drawing Objektes

in VBA würde es so ausschauen
    ThisDrawing.SendCommand ("(MeineLisp)" & vbCr)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joachim,

es kommt darauf an, was du mit dem Delphi-Code machst.
Willst du einen Script(Batch)lauf über viele Zeichnungen realisieren, dann könnte die Erzeugung einer acaddoc.lsp(im Zeichnungsverzeichnis) helfen. Diese Datei weird automatisch nach dem Öffnen geladen. Wenn in dieser der Lisp-Aufruf steht, startet das Programm also ganz allein.
Den VBA-Code kannst du mit _vbarun starten - im Zweifel auch wieder über SendCommand.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,

Danke für Deine prompte Hilfe.
Kannst Du mir eine Beispieldatei senden?

Ich sollte ein kleines Delphiprogramm haben das sich problemlos
compilieren und starten lässt.

Das Programm soll nur AutoCAD starten, eine Zeichnung laden und in diese Zeichnung einen Kreis mit beliebeigem Radius an beliebigem Punkt zeichnet.

Den Rest bekomme ich dann bestimmt alleine gebacken.

Gruss
Joachim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo mundal,
fuer lisp so in der art:

procedure xxx;
var
  path, lsp: string;
  acad: IAcadApplication;
  doc: IAcadDocument;
begin
  path:= ExtractFilePath(Application.ExeName);
  path:= StringReplace(path, '\', '\\', [rfReplaceAll, rfIgnoreCase]);
  lsp:= path + 'lispfile.lsp';

  acad:= GetAcadApplication(True);
  doc:= acad.ActiveDocument;
  doc.SetVariable('CMDECHO', 0); beispiel fuer setzen einer sys-var
  doc.SendCommand(chr(VK_ESCAPE) + chr(VK_ESCAPE) + '(load "' + lsp + '")' + chr(VK_RETURN)); // laden der lisp-datei
  doc.SendCommand('(lispfunc)' + chr(VK_RETURN)); // ausfuehren einer funktion aus der lisp-datei

end;

function GetAcadApplication(start: Boolean): IAcadApplication;
var
  acad: OleVariant;
begin
  Result:= nil;
  try
    acad:= GetActiveOleObject(AcadApp);
    Result:= IDispatch(acad) as IAcadApplication;
  except
    if start then
    begin
      Result:= CoAcadApplication.Create;
      Result.Visible:= True;
    end;
  end;
end;

gruss
marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klasse + Danke  @Marco,

das war genau das was ich benötigte.

Jetzt komme ich bestimmt gut voran.
!!! Nochmals 1000 x Danke !!!!

Ich hatte in der Programmzeile
  acad:= GetActiveOleObject(AcadApp);
das AcadApp in Acad umgewandelt dann lief das Programm.
Ist das dann soweit ok ?

Falls Du weitere Beispielprogramme von Delphi und AutoCAD hast
dann wäre ich ein dankbarer Abnehmer.

Viele Grüße

Joachim

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

da hab ich doch wirklich eine konstantendeklaration uebersehen

AcadApp = 'AutoCAD.Application.15'; fuer 2000-2002
AcadApp = 'AutoCAD.Application.16'; fuer 2004-2006
AcadApp = 'AutoCAD.Application.17'; fuer 2007-2008

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hier noch eine seite mit beispielen fuer delphi / autocad activex: http://www.caddzone.com/delphi/samples.htm

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

[Diese Nachricht wurde von neurosis am 16. Mai. 2008 editiert.]

[Diese Nachricht wurde von neurosis am 16. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Interessante Funktion!
Dazu eine Frage: Was ist wenn es mehrere Autocad-Sitzungen gibt?
Welche wird genommen? Eindeutigkeit?

Ich habe in der Vergangenheit dann über die WIN-API mit dem eindeutigen Fenster-Titel-String mir das Fenster-Handle geholt und per Sendkeys den Lisp-Callback gestartet.
(Fenster-Titel wurde beim Delphi-Start als Kommando-Zeilenparameter übergeben).

------------------
Hans-Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich selber verwende delphi nur fuer die konfiguration meiner programme in autocad nach der installation (aufruf einer lisp-datei, um supportpfade zu setzen und menues/toolbars dynamisch zu erzeugen).

ueber die entsprechenden tlb-dateien werden die unterschiedlichen produktzyklen von autocad (2000-2002, 2004-2006, 2007-2008) angesprochen. innerhalb eines zyklus' kommt es drauf an, welche version zuletzt gestartet wurde (d.h. wenn kein autocad offen ist, wird das zuletzt gestartete vom entsprechenden zyklus verwendet -> standardvorgehen dieses code-fragments).
fuer jeden zyklus wuerde man also eine eigene .exe erzeugen. dies laesst sich natuerlich beim kompilieren automatisieren.

wenn du eine bestimmte offene programminstanz (z.b. bei 2 gestarteten autocad2006) ueber eine .exe ansprechen moechtest, wirst du nicht ohne die win-api und das fenster-handle (zu bekommen z.b. [wie beschrieben] ueber angabe des titels) auskommen.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP