COM DxfOut

[dmitrykit]

Добрый день.
Пишу на PERL. подключаюсь через позднее связывание.

и собственно вопрос возможно ли както через COM добраться до данных методов.

[Александр Ривилис]

и собственно вопрос возможно ли както через COM добраться до данных методов.

Код - Visual Basic [Выбрать]

1. Document.Export FileName, Extension, SelectionSet

где Extension = "DXF"

[dmitrykit]

Александр спасибо.
но как быть если сохранить необходимо только часть чертежа


SelectionSet

SelectionSet object; input-only
For WMF, SAT, and BMP formats, the selection set specifies the objects to be exported. For EPS and DXF formats, the selection set is ignored and the entire drawing is exported.

[Александр Ривилис]

Первое, что приходит на ум - воспользоваться методом Wblock для сохранения выбранных примитивов в dwg-файл, затем его нужно открыть и воспользоваться или методом Export или SaveAs в один из форматов dxf. Еще один вариант - воспользоваться методом Sendcommand "(command "_dxfout" "путь к файлу.dxf") " - в этом варианте возможно задание объектов (опция "_o"), но это не так просто сделать из VBA.

[dmitrykit]

Пробую в командной строке dxfout, но непредлагаются опции.

выбрать обьекты через handent былобы наверно несложно.


а на лисп это нельзя реализовать?

p.s autocad2014

[Александр Ривилис]

Пробую в командной строке dxfout, но непредлагаются опции.

Попробуй в командной строке:

Код: [Выделить]

(command "_dxfout")

[Александр Ривилис]

а на лисп это нельзя реализовать?

Можно:

Код - Auto/Visual Lisp [Выбрать]

1. (defun mydxfout (path ss)
2.   (command "_dxfout" path "_o" ss "" "")
3.   (princ)
4. )

Запускать в виде:

Код: [Выделить]

(mydxfout "путь_к_dxf_файлу.dxf" (ssget))

[dmitrykit]

Александр спасибо, буду пробывать