[digar]

Подскажите толковую книгу по управление AutoCAD из Delphi а то приходится каждый шаг выуживать в интернете. Например нигде не могу найти: как загрузить нужный тип линии?

[Кулик Алексей aka kpblc]

http://dwg.ru/pub/8

[digar]

http://dwg.ru/pub/8

Это не то. Данное приложение использует команды LISP и запускается из ACAD. Мне необходимо из моего приложения на Delphi построить изображение в ACAD, причём, чтобы не связываться с конкретной версией ACAD я использую позднее связывание (т.е. библиотеку типов ACAD не использую). Пример:http://www.cadhouse.nm.ru/

[Vildar]

Справка по VBA не подойдёт.

Вот пример из справки

Код:

[Выделить все]

Sub Example_Load()
    ' This example attempts to load the linetype "CENTER" from
    ' the acad.lin file. If the linetype already exists, then
    ' a message is displayed.
    
    Dim linetypeName As String
    linetypeName = "CENTER"
    
    ' Load "CENTER" line type from acad.lin file
    On Error Resume Next    ' trap any load errors
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
    
    ' If the name already exists, then notify user
    If Err.Description = "Duplicate record name" Then
        MsgBox "A line type named '" & linetypeName & "' already exists.", , "Load Example"
    End If
    
End Sub

[wasilij1973]

Книгу нигде не встречал. Тоже приходилось

Сообщение от digar выуживать в интернете

статья в т.2 толковая, но данный метод требует досконального знания лисп. Я в своих приложениях использую упрощенную схему: напрямую передаю команды в Автокад, хотя для этого Автокад должен быть готов их принять.

[digar]

ThisDrawing.Linetypes.Load linetypeName, "acad.lin"

так пробовал, но Delphi не понимает этой конструкции. Проболал и так:ActiveDoc.LineTypes.Load('CENTER','acad.lin')
РУГАЕТСЯ

[Vildar]

digar, ссылку на свой сайт дал? Не дурно! )

[digar]

Vilad, ссылку исправил.
Но, что ты имеешь ввиду:

ссылку на свой сайт дал? Не дурно!

[wasilij1973]

digar Такие вещи как загрузка линий, создание нового слоя и т. д. то есть все, что предусмотрено для рядового пользователя выполнять с диалоговых окон для меня пока тоже загадка. Окно вызвать не проблема, но на этом все и заканчивается... Так что тоже ищу ответы.
А с твоего сайта антивирусник заблокировал троян...

[Vildar]

Сообщение от digar Но, что ты имеешь ввиду:

Просто спросил, ты автор сайта. Очень понравилось.

[digar]

Код:

[Выделить все]

  
var
ACADApp,Doc,Layer,MSpace:OLEVariant;
LayerName:string;
LayersCount:integer;
begin
Doc:=ACADApp.ActiveDocument;
//Создаём слой "Горизонтали"
LayerName:='Горизонтали';
Doc.Layers.Add(LayerName);
//Делаем его активным
LayersCount:=Doc.Layers.Count;
for i:= 0 to LayersCount - 1 do
 begin
 Layer:=Doc.Layers.Item(i);
 if AnsiCompareText(Layer.Name, LayerName) = 0 then Break;
 end;
Doc.ActiveLayer:=Layer;
...
end;

[Vildar]

Сообщение от digar так пробовал, но Delphi не понимает этой конструкции. Проболал и так:ActiveDoc.LineTypes.Load('CENTER','acad.lin') РУГАЕТСЯ

Как ругается?
Может это просто ошибка, например такой тип линии неопределен, или дубликат имени.

[digar]

Vildar, Ты оказался прав!!!
Название 'CENTER' я взял из примера а в списке моего ACAD его нет.
конструкция:

Код:

[Выделить все]

Doc.LineTypes.Load('осевая','ACAD.Lin');

сработала.
ВСЕМ СПАСИБО.

[wasilij1973]

Сообщение от digar создание нового слоя

Спасибо, digar.
Значит и с загрузкой типа линии все не безнадежно!

[sasha_lif]

digar, #3 Ссылка на сайт, а касперский ругается

Запрашиваемый URL-адрес не может быть предоставлен В запрашиваемом объекте по URL-адресу: http://www.cadhouse.nm.ru/ Обнаружена угроза: объект заражен Trojan-Downloader.JS.Remora.bg

[Vildar]

sasha_lif, А я сходил туда, без антивиря, пока живой.

[digar]

задаём тип линии:

Код:

[Выделить все]

var
p,PL,Doc:OleVariant;
i,j:integer;
begin
...
Doc:=ACADApp.ActiveDocument;
...
//задаём линию
 For j:=1 to high(mas[i]) do
  begin
  p[k]:=mas[i,j].y;xmin:=min(xmin,p[k]);xmax:=max(xmax,p[k]);
  inc(k);
  p[k]:=mas[i,j].x;ymin:=min(ymin,p[k]);ymax:=max(ymax,p[k]);
  inc(k);
  end;
 Pl:= Doc.ModelSpace.AddLightWeightPolyline(P);

//   устанавливаем DASH LineType
    try
    PL.Linetype:='ACAD_ISO02W100';
    except
    Doc.LineTypes.Load('ACAD_ISO02W100','ACAD.Lin');
    PL.Linetype:='ACAD_ISO02W100';
    end;