Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Как в один DWG вставить элемент другово DWG?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть два файла A и B.
Файл А открыт, необходимо скопировать (или опросить свойства объекта, чтоб можно было создать копию) из файла B в файл А. Объект в файле В предпологается находить при помощь SelectByPolygon. У кого есть какие идеи, как можно было бы это реализовать, может есть более простое, логичное решение данной задачи.
можно через copy-paste,
например:
......
sset.Select acSelectionSetAll, , , intData, varData
.....
copbase = "_copybase" & vbCr & "0,0" & vbCr & "si" & vbCr & "p" & vbCr
ThisDrawing.SendCommand (copbase)
.......
newfile = "хххх.dwt"
ThisDrawing.Application.Documents.Open newfile
.....
pastebase = "_pasteclip" & vbCr & "0,0" & vbCr
ThisDrawing.SendCommand (pastebase)
> JS
Забавная ссылка она всем понравится, кто по ней пробежится ;)
_______
Но у меня вопрос чуть другой, мне нужно работая в файле А и из определенного файла В, найти объект по извесному его расположению (т.е. есть его приблезительные координаты) который распологается в файле B и воспроизвести его в A.
_______
Изначально данный файл (B) у меня открыт через xref и я его вижу, но к сожалению обратится к его элементам не удалось, и решил воспользоваться путем который описан выше.
Видимо тут один прямой выход, как у скульпторов. Вставить как блок и удалить всё ненужное.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Как в один DWG вставить элемент другово DWG?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
