Anonymní profil michal – Programujte.com

#3 Mucko
mám tam:

Imports Autodesk.AutoCAD.Interop                         ........to jsou dll z OBJECTARX

Imports Autodesk.AutoCAD.Interop.Common

Dim AcadApp As AcadApplication
Dim acadDoc As AcadDocument

Autocad na včech zkoušených počítačích samozřejmě je, ten program je právě o tom, že po zadání určitých hodnot vykreslí v autocadu výrobní výkres. Bohužel to funguje jen na tom počítači, kde to programuju...

#3 mjseven
#1 michal

Ahoj,

zkouším to pomocí

try
  AutoCAD := GetActiveOleObject('Autocad.Application');

except
    AutoCAD := CreateOleObject('Autocad.Application');
    AutoCAD.Visible := True;
  end;
  AutoCAD.activeDocument.sendcommand('line @1000,1000'+#13+#13);
end;

to mi postačuje k tomu, co potřebuji, jediný problém je, že mi to hlásí "Pro dokončení operace není dostattečný prostor" - poradíte někdo, co jak to vyřešit?

Děkuji

Ahoj,

poradil byste mi prosím někdo, jak posílat z Delphi příkazy na kreslení do AutoCADu? Potřebuji udělat program, který po zadání hodnot vykreslí jednoduchý výkres v CADu. Děkuji.