[MartynovAS]

AutoCad 2004. Как узнать масштаб нарисованной мультилинии? (через LISP, команды или ActiveX). В AutoCad 2007 у мультилинии есть свойство - масштаб мультилинии, в 2004 оно отсутствует. При рисовании новой мультилинии можно задать переменную CMLSCALE. А как узнать масштаб уже существующей?

[Profan]

Команда "_List" ("Список").

[MartynovAS]

Боюсь я несмогу воспользоваться этой командой через ActiveX, хотя там и есть вызов команд.

[Profan]

А у меня нет AutoCAD 2004.

[Do$]

Может как-то так:

Код:

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

(vla-get-MLineScale
  (vlax-ename->vla-object
    (car (entsel "\nВыберите мультилинию:"))
  ) ;_ end of vlax-ename->vla-object
) ;_ end of vla-get-MLineScale

[Disney]

Do$, я всегда так ищу, вводишь значение искомого параметра, потом изучить либо (entget(car(entsel "???"))) либо (vlax-ename->vla-object(car(entsel "???"))), и смотриш, где оно(значение) всплывёт.

[Олег (jr.)]

Сообщение от MartynovAS AutoCad 2004. Как узнать масштаб нарисованной мультилинии? (через LISP, команды или ActiveX). В AutoCad 2007 у мультилинии есть свойство - масштаб мультилинии, в 2004 оно отсутствует. При рисовании новой мультилинии можно задать переменную CMLSCALE. А как узнать масштаб уже существующей?

Или без ActiveX:

Код:

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

(if
(setq ent (entsel "\nSelect multiline>>"))
(alert (strcat "Scale: " (rtos (cdr (assoc 40 (entget (car ent))))))))

~'J'~

[Do$]

Offtop:

Сообщение от Disney Do$, я всегда так ищу, вводишь значение искомого параметра, потом изучить либо (entget(car(entsel "???"))) либо (vlax-ename->vla-object(car(entsel "???"))), и смотриш, где оно(значение) всплывёт.

Ты не поверишь...

[MartynovAS]

Спасибо большое за ответы. Коль пошла такая пьянка не подскажите команду вызова LISP скрипта. _appload открывает окно для загрузки скрипта, а сразу указать имя файла нельзя? Или лучше сразу текст скрипта.
Вообще я очень далек от AutoCad, пишу приложение на Delphi, которое подключается к AutoCad через OLE/COM интерфейсы и использует его объектныю модель. Приложение уже написано и работоспособно под версии AutoCad 2007 и 2009. Проблема только в 2004 с получением масштаба мультилинии, так как в его объектной модели у класса AcadMLine отсутсвует свойство MLineScale.

[VVA]

MartynovAS,

Сообщение от MartynovAS Вообще я очень далек от AutoCad, пишу приложение на Delphi, которое подключается к AutoCad через OLE/COM интерфейсы и использует его объектныю модель.

Можно попробовать так:
1. В переменной obj - указатель на объект мультилинии
2. В переменной doc - указатель на документ автокада
3. Используя метод SendCommand посылаем в документ команду на лиспе, которая прочитет масштаб и запишет его в системную переменную USERR1
4. С помощью метода GetVariable прочитаешь значение переменной
Пример на лиспе

Код:

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

(setq doc (vla-get-activedocument (vlax-get-acad-object))) ;_Указатель на документ
;;; obj - указатель на мультилинию (setq obj (vlax-ename->vla-object(car(entsel "\nSelect multiline:"))))
(vla-SendCommand doc
  "(progn (vl-load-com)(setvar \"USERR1\" (cdr(assoc 40 (entget (vlax-vla-object->ename obj))))))\n")

Сообщение от MartynovAS _appload открывает окно для загрузки скрипта, а сразу указать имя файла нельзя?

Читай по ссылке в подписи
.................................................................|
.................................................................|
.................................................................|
.................................................................V

[MartynovAS]

Большое спасибо VVA, буду разбираться..

[VVA]

Если будут проблемы с передачей указателя, то объект можно найти по его хэндлу (свойство "HANDLE") и лисповской функцией handent
Так наверное даже лучше будет

Код:

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

(setq doc (vla-get-activedocument (vlax-get-acad-object))) ;_Указатель на документ
;;; obj - указатель на мультилинию (setq obj (vlax-ename->vla-object(car(entsel "\nSelect multiline:"))))
;;; hadle - хэндл объекта (vla-get-Handle obj)
(setq hndl (vlax-get obj "Handle"))
(vla-SendCommand doc
  "(progn (setvar \"USERR1\" (cdr(assoc 40 (entget (handent hndl))))))\n")

[MartynovAS]

Все получилось благодоря VVA!

LISP:

Код:

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

 
(defun get_scale(p_hndl)
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object))) ;_Указатель на документ
(setq v_hndl p_hndl) ;_Указатель на объект
(vla-SendCommand doc
  "(progn (setvar \"USERR1\" (cdr(assoc 40 (entget (handent v_hndl))))))\n")
) ;

DELPHI:

Код:

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

 for i:=0 to count-1 do
  begin
     AcadObject:=AcadApplication.ActiveDocument.ModelSpace.Item(i);
     if AcadObject.ObjectName='AcDbMline' then
      begin
       Memo1.Lines.Add('Хэндл мультилинии:'+AcadObject.Handle);
       AcadApplication.ActiveDocument.SendCommand('(get_scale "'+AcadObject.Handle+'")'+chr(13));
       Scale:=AcadApplication.ActiveDocument.GetVariable('USERR1');
       Memo1.Lines.Add('Масштаб мультилинии:'+FloatToStr(Scale));
      end;
  end;

У еще лучше без отдельно скрипта на лиспе:
DELPHI:

Код:

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

 
 for i:=0 to count-1 do
  begin
     AcadObject:=AcadApplication.ActiveDocument.ModelSpace.Item(i);
     if AcadObject.ObjectName='AcDbMline' then
      begin
       Memo1.Lines.Add('Хэндл мультилинии:'+AcadObject.Handle);
       AcadApplication.ActiveDocument.SendCommand('(progn (setvar "USERR1" (cdr(assoc 40 (entget (handent "'+AcadObject.Handle+'"))))))'+chr(13));
       Scale:=AcadApplication.ActiveDocument.GetVariable('USERR1');
       Memo1.Lines.Add('Масштаб мультилинии:'+FloatToStr(Scale));
      end;
  end;