[ALLIGATOR_]

Доброго времени!
Скажите пожалуйста как поменять путь у изображения на чертеже программно, также как это делается вручную, только программно
Пример (так я вручную меняю):


А так я пытаюсь поменять программно:

Код:

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

#include "IE.au3"

Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

Global $oAutoCADCivil = ObjGet("", "AutoCAD.Application.18")
If Not IsObj($oAutoCADCivil) Then
    MsgBox(0, "", "Не удалось подключиться к AutoCAD Civil")
    Exit (-1)
EndIf

For $AcadBlock In $oAutoCADCivil.ActiveDocument.ModelSpace
	If $AcadBlock.ObjectName == "AcDbRasterImage" Then
		;$AcadBlock.ImageFile("D:\2.jpg")
		$AcadBlock.ImageFile(__IEStringToBstr("D:\2.jpg"))
	EndIf
Next

Func _ErrFunc($oError)
    MsgBox(0, "", "err.number is: " & @TAB & $oError.number & @CRLF & _
            "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            "err.description is: " & @TAB & $oError.description & @CRLF & _
            "err.source is: " & @TAB & $oError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            "err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc

На что вылазиет ошибка: "Операции с семействами не поддерживаются"

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

http://www.google.ru/cse?cx=partner-...%B2&gsc.page=1
http://forum.dwg.ru/showthread.php?t=92544

[ALLIGATOR_]

Понятно, нужно изменить внешнюю ссылку. Не могли бы подсказать где они находятся в объектной модели автокада, эти внешние ссылки?

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

ALLIGATOR_, пройди по ссылкам, решений масса. У меня, к сожалению, нет времени на подробные объяснения.

[hwd]

Сообщение от ALLIGATOR_ Пример (так я вручную меняю):

И что, хочешь сказать, что ты вручную менял путь к изображению прямо в окне свойств, через помеченное тобой свойство, несмотря на то, что оно доступно только для чтения? Да ты волшебник... Я думал, что вручную это делается в окне External References через свойство Found At.

[ALLIGATOR_]

Сообщение от hwd И что, хочешь сказать, что ты вручную менял путь к изображению прямо в окне свойств

Сообщение от hwd Да ты волшебник...

Ох, ты, точно! не получается изменить. Но... я как-то менял, и вроде не из окна внешних ссылок, я уже не помню точно, это было несколько месяцев назад.

[hwd]

Offtop:

Сообщение от ALLIGATOR_ Но... я как-то менял, и вроде не из окна внешних ссылок, я уже не помню точно, это было несколько месяцев назад.

Как это Мэри Поппинс пела:

Сообщение от Мэри Попинс Это было прошлым летом, В середине января. В тридесятом королевстве, там где нет в помине короля...

[DEM]

ALLIGATOR_
Сложно будет с помощью AutoIT это сделать.
Он для других целей предназначен, тут проще на vb или на лиспе....

[trir]

AcadExternalReference.path

String; read-only (read-write for the ExternalReference and Block objects) The path of the application, document, or external reference.

[Do$]

Задам пару наводящих вопросов, возможно, поможет избежать велосипедостроения:
1. С относительными путями для внешних ссылок знакомы?
2. С диспетчером внешних ссылок знакомы?

[hwd]

Сообщение от Do$ Задам пару наводящих вопросов

@ALLIGATOR_,
Если на эти вопросы будут ответами "нет", то возможно имеет смысл просмотреть мультики: первый и второй - это своего рода быстрый ликбез по теме работы с xref.

[ALLIGATOR_]

Offtop: Дурацкий редактор сообщений на форуме, при правке затирает старое содержимое, приходится копировать прежде чем отредактировать.
В общем пробегаюсь по всем блокам по документу и ни один не является XRef-ом. Условия: создан документ, вставлено изображение перетаскиванием мышкой, документ не сохранён.
Код:

Код:

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

For $AcadBlock In $oAutoCADCivil.ActiveDocument.Blocks
    _ArrayAdd($avArray, $AcadBlock.IsXRef & " - " & $AcadBlock.ObjectName)
    For $AA In $AcadBlock
        _ArrayAdd($avArray, "   " & $AcadBlock.IsXRef & " - " & $AA.ObjectName)
    Next
Next

Делал, основываясь на этом коде:
http://entercad.ru/acadauto.en/ex_xrefdatabase.htm

[hwd]

Вот, глянь.

[ALLIGATOR_]

Сообщение от hwd Вот, глянь.

если я правильно понял, это означает:

Сообщение от DEM Сложно будет с помощью AutoIT это сделать. ... тут проще на vb или на лиспе....

Ну т.е. это не так как я себе представлял:
• пробежаться по коллекции
• найти нужное изображение
• найти в коллекции внешних ссылок, запись относящуюся к моему изображению (ну как-нибудь по ID они связаны или ещё по чему)
• вызвать метод .SetFilePath("NewImage.jpg")
• Profit.

[hwd]

Тебе нужно работать с объектами RasterImageDef и RasterImage, что и продемонстрировано в коде по ссылке. Как ты это будешь делать (LISP\C++\.NET\etc) - это уже твоё дело.

[Do$]

Сообщение от ALLIGATOR_ • найти в коллекции внешних ссылок, запись относящуюся к моему изображению (ну как-нибудь по ID они связаны или ещё по чему)

А нет их там. Это в интерфейсе они в одном диспетчере сидят. А в объектной модели внешние ссылки и изображения - разные по сути объекты.
Через COM к изображениям можно добраться двумя путями, насколько я знаю:
1. Через словари.
2. Тупо перебирая объекты в чертеже.
Поиск в гугле по словам image path autocad vba или image path autocad lisp.

[skkkk]

Offtop:

Сообщение от ALLIGATOR_ Offtop: Дурацкий редактор сообщений на форуме, при правке затирает старое содержимое, приходится копировать прежде чем отредактировать.

http://forum.dwg.ru/showpost.php?p=1...postcount=4589
Эта настройка находится: Мой кабинет->Опции