Как разнести листы по разным файлам?

maksimys · 20.08.2007, 19:00

Бывают такие случаи - что надо отдавать цифровую версию файла,
но в этом файле заложен весь проет. и все разбито по листам во вьюпортах. Можно ли разбить листы на отдельные файлы - но так чтобы все обьекты двигались и с ними можно было работать ?
(ну кроме конечно банальной обрезки модели, передачи jpeg-ов и
dwf-ов)
Подскажите если это возможно? 8)

Хмурый · 21.08.2007, 09:15

Сделай копию файла. Удали ненужные листы и отдавай

RomaV · 21.08.2007, 09:33

Да! Нагнали мы жути на начинающих работу с листами. Скоро листам покланятся будут как божественным существам.
"Удалять их нельзя-это ангелы!"
"Копию файла - только с разрешения высшего гуру"
Человек и уже сразу и мысли допустить не может что можно сделать как Хмурый советует

maksimys · 21.08.2007, 09:54

посмотрел бы я как Хмурый листы удаляет - если в них только рамка да и парочка обозначений . А все основное лежит в модели :!:
весь проект начиная с сетей и заканчивая благоустройством.

Хмурый · 21.08.2007, 10:06

Удалить просто. Выделяешь листы при нажатом Ctrl, нажимаешь правую кнопку мыши и выбираешь
[ATTACH]1187676385.jpg[/ATTACH]
Я же не виноват в том, что Вы вначале делаете а потом думаете...

РS Удалить лишнее с модели. Только не говорите мне про то, что у Вас всё на одном слое нарисовано

Олег К. · 21.08.2007, 10:20

>> maksimys
Вот именно что резать модель и удалять листы.

-------------
А разве никто не пробовал програмку для этого написать? Навскидку: выделить на модели все, что попадает в видовой экран(ы) и скопировать в новый файл. Туда же скопировать лист. Или я каких-то граблей не заметил? Разве только с иксрефами и картинками сложности возникнут.

Pilot · 21.08.2007, 10:40

А нельзя-ли отдать чертеж в PDF :?:

Хмурый · 21.08.2007, 10:53

Вообще-то можно сделать следующее:
Оставить один лист в копии файла. Применить к его Viewport'у команду CHSPACE из Ехрress Tools. Тем самым содержимое модели, которое нужно, переместится в пространство листа. Оставшуюся часть модели удалить. К тому, что перенесли в простаранство листа, вновь применить CHSPACE, переместив об'екты назад в пространство модели.

maksimys · 21.08.2007, 17:15

Цитата:

Сообщение от Хмурый

Вообще-то можно сделать следующее:
Оставить один лист в копии файла. Применить к его Viewport'у команду CHSPACE из Ехрress Tools. Тем самым содержимое модели, которое нужно, переместится в пространство листа. Оставшуюся часть модели удалить. К тому, что перенесли в простаранство листа, вновь применить CHSPACE, переместив об'екты назад в пространство модели.

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

Кулик Алексей aka kpblc · 21.08.2007, 17:20

Попробуй войти в видовой экран и снова дай chspace. И будет тебе счастие и благолепие

maksimys · 21.08.2007, 17:37

Цитата:

Сообщение от Кулик Алексей aka kpblc

Попробуй войти в видовой экран и снова дай chspace. И будет тебе счастие и благолепие

- Спасибо
:evil: теперь жадным заказчикам - ... что останеться.

Олег К. · 21.08.2007, 18:10

Хорошая это штука CHSPACE. Вот только есть одна неприятность - команда переносит объекты из модели на лист. Все нормально пока в листе один вьюпорт, ну а если на листе есть план и его фрагмент в разных окнах? Переносим объекты из одного вьюпорта на лист - а в другом-то окне уже ничего и нет. Приходится такие листы полностью вручную делать.

dextron3 · 21.08.2007, 18:24

Хорошая команда жаль что немного непонятный становится чертеж

[ATTACH]1187706162.JPG[/ATTACH]

RomaV · 22.08.2007, 08:34

Цитата:

Сообщение от dextron3

Хорошая команда жаль что немного непонятный становится чертеж

[ATTACH]1187706162.JPG[/ATTACH]

+1 [sm801]

Кулик Алексей aka kpblc · 22.08.2007, 08:47

Находясь в пространстве листа, можно попробовать задать dimscale -> -1; dimlfac -> 1. Можно в различных сочетаниях.

Makswell · 22.08.2007, 10:09

А вообще Олег К. по-моему предложил грамотную мысль

Цитата:

А разве никто не пробовал програмку для этого написать? Навскидку: выделить на модели все, что попадает в видовой экран(ы) и скопировать в новый файл. Туда же скопировать лист.

Т.е. на листе рамкой выделяешь всё что нужно (вместе с ВЭ), копируешь в буфер, а заодно и копируются примитивы в модели, которые попали в видовой экран. В другом файле опять же на листе всё это вставляешь и одновременно вставляются и примитивы в модели. И все на своих местах.
Полезная бы была программа...

Makswell · 22.08.2007, 11:44

К моему предыдущему посту:
Кто знает как можно программно входить в определенный ВЭ (который например выделен на листе)

RomaV · 22.08.2007, 11:51

Цитата:

Сообщение от Makswell

А вообще Олег К. по-моему предложил грамотную мысль

Цитата:

А разве никто не пробовал програмку для этого написать? Навскидку: выделить на модели все, что попадает в видовой экран(ы) и скопировать в новый файл. Туда же скопировать лист.

Т.е. на листе рамкой выделяешь всё что нужно (вместе с ВЭ), копируешь в буфер, а заодно и копируются примитивы в модели, которые попали в видовой экран. В другом файле опять же на листе всё это вставляешь и одновременно вставляются и примитивы в модели. И все на своих местах.
Полезная бы была программа...

:shock: Ага! А ещё можно написать программу, чтобы прямо из АКАДа можно было комп выключать. Заустил лиспик - он все файлы позакроет и завершение работы сделает.
Помоему вы ребята программированием увлеклись!

Makswell · 22.08.2007, 12:28

На то Автокад и является Автокадом - культовой, можно сказать, системой, что в нём есть возможность программировать.
И это не только мое мнение...

maksimys · 22.08.2007, 12:52

Цитата:

Сообщение от RomaV

Цитата:

Сообщение от Makswell

А вообще Олег К. по-моему предложил грамотную мысль

Цитата:

А разве никто не пробовал програмку для этого написать? Навскидку: выделить на модели все, что попадает в видовой экран(ы) и скопировать в новый файл. Туда же скопировать лист.

Т.е. на листе рамкой выделяешь всё что нужно (вместе с ВЭ), копируешь в буфер, а заодно и копируются примитивы в модели, которые попали в видовой экран. В другом файле опять же на листе всё это вставляешь и одновременно вставляются и примитивы в модели. И все на своих местах.
Полезная бы была программа...

:shock: Ага! А ещё можно написать программу, чтобы прямо из АКАДа можно было комп выключать. Заустил лиспик - он все файлы позакроет и завершение работы сделает.
Помоему вы ребята программированием увлеклись!

там в express tools - есть закрыть все и сохранить.
так что ты опоздал....

и лиспов не надо.

RomaV · 22.08.2007, 12:54

Цитата:

Сообщение от maksimys

там в express tools - есть закрыть все и сохранить.
так что ты опоздал....

и лиспов не надо.

Чего и комп выключает? :roll:

Makswell · 22.08.2007, 13:01

Насчет проги (пост 16):
Я тут подумал, в принципе может быть подойдет такой алгоритм.
1. В исходном файле:
- на листе предлагается выбрать объекты с базовой (например) точкой
- набор как-то запоминается
- ищутся ВЭ, которые вошли в набор
- в углах ВЭ ставятся, например, точки (пока для простоты допустим, что они прямоугольные - поэтому две точки по диагонали)
- CHSPACE этих точек (пар точек) в модель
- в модели выбираются объекты, ограниченные этими парами точек
- набор как-то запоминается
- точки удаляются, осуществляется переход на лист и предлагается открыть/создать новый файл
2. В новом файле:
- на листе вставляются объекты с листа исходного файла (1-й набор)
- в модели соответственно вставляются объекты из модели исходного файла со своими координатами (2-й набор)
- осуществляется переход на лист, включается видимость каждого ВЭ

Лисп я понимаю только на уровне Command, поэтому может быть алгоритм получился таким корявым.
Уважаемые программисты, интересно ваше мнение насчет всего этого. Может это вообще невозможно реализовать...

Олег К. · 22.08.2007, 14:39

>> RomaV
А что мешает написать VBA-приложение которое закроет КАД и выключит компьютер? Уж если АвтоКАД разговаривать научили, то выключать комп еще проще, буквально в течении 5 секунд

.

>> Makswell
Да я ж просто поинтересовался, нет ли у кого подобной проги. Мне для написания такого просто опыта не хватает, экспы маловато (всего то 117 пунктов)

.

Теперь серьезнее.
- в свойствах видового экрана хранится координата центра (в координатах модели), масштаб и размеры окна. Можно вычислить точки для секущей линии выделения в модели.
- если в видовом экране выключены/заморожены какие-то слои, значит при выделении объектов в модели это надо учесть. При копировании иксрефов скидываются настройки видимости слоев - опять же нужна проверка.
- в дизайнцентре можно скопировать лист со всем содержимым из другого файла. Есть ли такая функция в ЛИСПе? Лично не встречал, значит использовать выделение всего и копирование.

И самое главное: в контекстное меню ярлыка листа добавить новый пункт, скажем, "экспорт в новый файл", к которому и прикрутить прогу.

Реализовать подобное возможно, но долго, сложно и дорого. :?

Vova · 22.08.2007, 15:33

Цитата:

Сообщение от maksimys

... А все основное лежит в модели :!:
весь проект начиная с сетей и заканчивая благоустройством.

А что, весь проект делался одним исполкнителем? Команда Chspace работает в обеих направлениях

VVA · 22.08.2007, 16:00

Могу предложить следующий алгоритм
1. Здесь выложен пример команды, русующей полилинию по границе ВЭ в модели
2. Здесь выложена комaнда, выделяющая снаружи pline
3. Нажать del

maksimys · 22.08.2007, 16:15

Цитата:

Сообщение от Vova

Цитата:

Сообщение от maksimys

... А все основное лежит в модели :!:
весь проект начиная с сетей и заканчивая благоустройством.

А что, весь проект делался одним исполкнителем? Команда Chspace работает в обеих направлениях

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

Vova · 22.08.2007, 21:08

Все валить в один файл не есть правило хорошего тона. Лучше создать фолдер с именем проекта и туда складывать все файлы разных специальностей, раз проект мелкий

maksimys · 23.08.2007, 09:21

Цитата:

Сообщение от Vova

Все валить в один файл не есть правило хорошего тона. Лучше создать фолдер с именем проекта и туда складывать все файлы разных специальностей, раз проект мелкий

честно говоря - про создание папки с проектом - может и хорошая идея - тогда разверни эту тему и расскажи и покажи - что куда ? и как ? 8)

Олег К. · 23.08.2007, 11:39

>> VVA
По п.1: да, примерно так и думал, но данный код работает только с прямоугольными вьюпортами. Насколько часто встречаются хитровырезанные окна? У нас они практически не применяются, так что стоит ли мучаться?

>> maksimys
Хранение документов на дисках - через поиск ищи любые темы по СТП (особенно "Корпоративные стандарты ..." - удачи дочитать

) здесь, на autocad.ru и cadmaster.ru. Хоть там больше по внутренней организации файлов, встречается и нужное.
Примерно вот так:
[ATTACH]1187854412.gif[/ATTACH]
вместо иксов ставится номер объекта, в папку el_version собираются готовые картинки и pdfки для выдачи заказчику, визуализация - раскрашенные фасады и трехмерка.

Makswell · 23.08.2007, 13:03

Цитата:

>> VVA
По п.1: да, примерно так и думал, но данный код работает только с прямоугольными вьюпортами. Насколько часто встречаются хитровырезанные окна?

Также интересно было запустить эту прогу. Интересный эффект наблюдается, если в ВЭ показывается 3D модель.

VVA · 23.08.2007, 13:36

>Олег К
Я имел ввиду 2-й пост по ссылке. Строит полилинию и у хитроподрезанных ВЭ.
Здесь собрал все в кучу

Код:

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

;|============================================================================== 
*  Получение списка списков точек вершин ВЭ листа в координатах листа и модели 
*  Если ВЭ не существует, возвращает nil. 
*  Структура списка ((Точки_ВЭ1_Лист Точки_ВЭ1_Модель ename_ВЭ1) ... (Точки_ВЭN_Лист Точки_ВЭN_Модель ename_ВЭN))
*  http://www.autocad.ru/cgi-bin/f1/board.cgi?t=27187wE
*  http://www.arcada.com.ua/forum/viewtopic.php?t=850
*  layuot - имя листа (getvar "CTAB") или (LAYOUTLIST)
*  Возвращает список ((Точки_ВЭ1_Лист Точки_ВЭ1_Модель ename_ВЭ1) ... (Точки_ВЭN_Лист Точки_ВЭN_Модель ename_ВЭN)) 
=============================================================================|; 
(defun _mip-get-point-viewport ( layout / t10 t12 m res1 res2 nb) 
 (mapcar  '(lambda ( y / res1 x)(setq x (entget y))
  (if (cdr (assoc 340 x))
  (setq res1 (mapcar 'cdr (vl-remove-if-not '(lambda (b) (= (car b) 10))
			    (entget (cdr (assoc 340 x))))))
  (setq res1 (list
	       (list (- (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.))
		     (- (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.)))
               (list (+ (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (- (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.)))
               (list (+ (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (+ (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.)))
               (list (- (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (+ (caddr (assoc 10 x)) (/ (cdr (assoc 41 x)) 2.))))))
     (setq t10 (cdr(assoc 10 x));_Координаты центра ВЭ в листе 
           t12 (if (equal (cdr(assoc 17 x)) '(0 0 0) 1e-6)(cdr(assoc 12 x))(cdr(assoc 17 x)));_Координаты центра ВЭ в Модели 
             m (/ (cdr(assoc 45 x))(cdr(assoc 41 x))) ;_Коэфф. пересчета в модель 
          res2 (mapcar '(lambda(y)(mapcar '+ (mapcar '* (mapcar '- y t10)(list m m m)) t12)) res1)) 
          (list res1 res2 y)) ;_ end of lambda
          ;;;69 1 - исключаем vieport
       (vl-remove-if '(lambda (x)(member (cons 69 1) (entget x)))
	 (if (setq nb (setq nb (ssget "_X" (list '(0 . "VIEWPORT")
                                                 '(-4 . "<>")
                                                 '(69 . 1)
                                                 (cons 410 layout)))))
		   (vl-remove-if 'listp (mapcar 'cadr (ssnamex nb)))
		   nil))) ;_ end of mapcar
  ) ;_ end of defun 

;;Пример использования 
;;Рисует полилинию по границам ВЭ в модели 
(defun C:TEST () 
  (vl-load-com) 
  ;Видовой экран должен быть 
  (mapcar '(lambda (ret) 
        (setq point_list_ctab (car ret) 
         point_list_model (cadr ret) 
         crs (apply 'append point_list_model) 
         var (vlax-make-variant (vlax-safearray-fill 
             (vlax-make-safearray vlax-vbDouble 
          (cons 0 (1- (length crs)))) crs)) 
         ) 
        ;Добавляем полилинию в модель 
        (vla-put-closed (vla-addLightWeightPolyline (vla-get-ModelSpace(vla-get-activedocument(vlax-get-acad-object))) var) :vlax-true) 
        ) 
     (_mip-get-point-viewport (getvar "CTAB")) 
     ) 
  (princ) 
  )

Перейти в лист, где есть Видовые экраны и набрать TEST.

maksimys · 23.08.2007, 14:13

VVA - не а не работает, точнее не учитывает местную и мировую СК
поворачивает контур вьюпорта на мировую сист. координат.
а так контур переносит в модель. 8)

Олег К. · 23.08.2007, 14:32

>> VVA
Прошу прощения, умудрился не заметить, что res1 определяется два раза: для простого ВЭ и для ВЭ с полилинией

.
Кстати, недавно тут тема появлялась, там спрашивали как сделать ВЭ с дуговыми границами (ну или круглый) - надеюсь только одному человеку такое понадобилось.

Насчет систем координат - проблем не возникало, поскольку у нас все выполнено в мировой, и мало кто догадывается что могут быть другие. На генпланах такое применяется, но редко.

VVA · 23.08.2007, 14:55

А зачем ПСК на листе?
А сделать круглый VIEWPORT не проблема, пару строк кода написать, но зачем?

Олег К. · 23.08.2007, 15:35

ПСК не на листе. Внутри видового экрана определена ПСК, поставлена текущей и все выровнено командой plan. В другом вьюпорте и в модели текущая - МСК. В результате работы программы вьюпорт с ПСК неправильно проецируется в модель.
[ATTACH]1187868338.gif[/ATTACH]
Внешняя рамка голубенького цвета - вьюпорт на листе, внутри линии оранжевого цвета - проекция данного ВЭ в модель, ноль ПСК - там где перекрестие курсора.

Да так ли уж часто встречается в чертежах ПСК? Если кому оно нужно (в контексте данной темы) - высказывайтесь. По умолчанию будет принято что учитывать ПСК не нужно.

maksimys · 23.08.2007, 15:52

Цитата:

Сообщение от Олег К.

ПСК не на листе. Внутри видового экрана определена ПСК, поставлена текущей и все выровнено командой plan. В другом вьюпорте и в модели текущая - МСК. В результате работы программы вьюпорт с ПСК неправильно проецируется в модель.
[ATTACH]1187868338.gif[/ATTACH]
Внешняя рамка голубенького цвета - вьюпорт на листе, внутри линии оранжевого цвета - проекция данного ВЭ в модель, ноль ПСК - там где перекрестие курсора.

Да так ли уж часто встречается в чертежах ПСК? Если кому оно нужно (в контексте данной темы) - высказывайтесь. По умолчанию будет принято что учитывать ПСК не нужно.

Не ну какие умолчания. Скажи как ты тогда чертежи так же под углом
в печать пускаешь? Или все таки поварачиваешь пар-но рамке.
Уж доделай - коли взялся :wink:

maksimys · 23.08.2007, 15:56

взгляни - та что потолще это вьюпорт -
а та что поперек чертежа - это после теста - контур в модели..
:?:
[ATTACH]1187870166.jpg[/ATTACH]

VVA · 23.08.2007, 16:41

При наличие Express'ov можно так

Код:

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

;|============================================================================== 
*  Получение списка списков точек вершин ВЭ листа в координатах листа и модели 
*  Если ВЭ не существует, возвращает nil. 
*  Структура списка ((Точки_ВЭ1_Лист Точки_ВЭ1_Модель ename_ВЭ1) ... (Точки_ВЭN_Лист Точки_ВЭN_Модель ename_ВЭN)) 
*  http://www.autocad.ru/cgi-bin/f1/board.cgi?t=27187wE 
*  http://www.arcada.com.ua/forum/viewtopic.php?t=850 
*  layuot - имя листа (getvar "CTAB") или (LAYOUTLIST) 
*  Возвращает список ((Точки_ВЭ1_Лист Точки_ВЭ1_Модель ename_ВЭ1) ... (Точки_ВЭN_Лист Точки_ВЭN_Модель ename_ВЭN)) 
=============================================================================|; 
(defun _mip-get-point-viewport ( layout / t10 t12 m res1 res2 nb) 
 (mapcar  '(lambda ( y / res1 x)(setq x (entget y)) 
  (if (cdr (assoc 340 x)) 
  (setq res1 (mapcar 'cdr (vl-remove-if-not '(lambda (b) (= (car b) 10)) 
             (entget (cdr (assoc 340 x)))))) 
  (setq res1 (list 
          (list (- (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
           (- (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.))) 
               (list (+ (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (- (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.))) 
               (list (+ (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (+ (caddr (assoc 10 x))(/ (cdr (assoc 41 x)) 2.))) 
               (list (- (cadr (assoc 10 x))(/ (cdr (assoc 40 x)) 2.)) 
                     (+ (caddr (assoc 10 x)) (/ (cdr (assoc 41 x)) 2.)))))) 
     (setq t10 (cdr(assoc 10 x));_Координаты центра ВЭ в листе 
           t12 (if (equal (cdr(assoc 17 x)) '(0 0 0) 1e-6)(cdr(assoc 12 x))(cdr(assoc 17 x)));_Координаты центра ВЭ в Модели 
             m (/ (cdr(assoc 45 x))(cdr(assoc 41 x))) ;_Коэфф. пересчета в модель 
          res2 (mapcar '(lambda(y)(mapcar '+ (mapcar '* (mapcar '- y t10)(list m m m)) t12)) res1)) 
          (list res1 res2 y)) ;_ end of lambda 
          ;;;69 1 - исключаем vieport 
       (vl-remove-if '(lambda (x)(member (cons 69 1) (entget x))) 
    (if (setq nb (setq nb (ssget "_X" (list '(0 . "VIEWPORT") 
                                                 '(-4 . "<>") 
                                                 '(69 . 1) 
                                                 (cons 410 layout))))) 
         (vl-remove-if 'listp (mapcar 'cadr (ssnamex nb))) 
         nil))) ;_ end of mapcar 
  ) ;_ end of defun 

;;Пример использования 
;;Рисует полилинию по границам ВЭ в модели 
(defun C:TEST () 
  (vl-load-com)
  (if (null chspace)(load "chspace.lsp"))
;;;  (setq ret (car (_mip-get-point-viewport (getvar "CTAB")) ))
  (foreach ret (_mip-get-point-viewport (getvar "CTAB"))
  (setq point_list_ctab (car ret))
  (setq vpname (last ret))
  (setq cvpname (acet-currentviewport-ename))
  (command "_.pspace")
  (command "_PLINE")
  (foreach pt point_list_ctab (command "_none" pt))
  (command "_close")
  (setq pl (entlast))
  (if (not (eq cvpname vpname))
    (progn
      (setq vpname (cdr (assoc 69 (entget vpname))))
      (command "_.mspace")
      (setvar "CVPORT"  vpname)
      (command "_.pspace")
      )
    )
  (chspace (ACET-LIST-TO-SS (list pl)))
      (command "_.pspace")
    
    )
  (princ) 
  )

Или анализировать поля 110,111,112 в viewport'e

maksimys · 23.08.2007, 16:55

:?: что-то не работает

Command: _appload test2.lsp successfully loaded.

Command:
Command:
Command: test
_.pspace
Already in paper space.

Command: _PLINE
Specify start point: _none
Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]: _none
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: _none
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: _none
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: _close
Command: _.mspace
Command: ; error: AutoCAD variable setting rejected: "CVPORT" 4
- все.
контур не появляется :?

Олег К. · 23.08.2007, 17:22

>> maksimys
Просто какой чертеж был открыт, на том пример и показал. Выше уже говорил, у нас определение ПСК встречается только в генпланах, если я с ними работаю.

>> VVA
Это рисовать контур окна в листе, а потом его chspace'м в модель? Интересно, хотя при отсутствии экспрессов не работает. Всеже надежнее математически пересчитывать. Скорее всего так и буду пробовать.

Эт чего ж? Выходит я подписался на создание проги копирования одного из листов в отдельный файл? Одна-а-ако! [sm2102]

VVA · 23.08.2007, 17:41

>maksimys
Это как пример. У меня работает. Пробуй так

Код:

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

;;Пример использования 
;;Рисует полилинию по границам ВЭ в модели 
(defun C:TEST () 
  (vl-load-com) 
  (if (null chspace)(load "chspace.lsp")) 
  (foreach ret (_mip-get-point-viewport (getvar "CTAB")) 
  (setq point_list_ctab (car ret)) 
  (setq vpname (last ret)) 
  (setq cvpname (acet-currentviewport-ename)) 
  (command "_.pspace") 
  (command "_PLINE") 
  (foreach pt point_list_ctab (command "_none" pt)) 
  (command "_close") 
  (setq pl (entlast))
    (vl-catch-all-apply '(lambda()
  (if (not (eq cvpname vpname)) 
    (progn 
      (setq vpname (cdr (assoc 69 (entget vpname)))) 
      (command "_.mspace") 
      (setvar "CVPORT"  vpname) 
      (command "_.pspace") 
      ) 
    )
                           )
      )
  (chspace (ACET-LIST-TO-SS (list pl))) 
      (command "_.pspace") 
    
    ) 
  (princ) 
  )

_mip-get-point-viewport - выше

maksimys · 24.08.2007, 09:27

VVA - спасибо :!: за лисп. 8)

Makswell · 24.08.2007, 10:16

Присоединяюсь к maksimys.
Если смотреть корни лиспа на http://www.arcada.com.ua/forum/viewtopic.php?t=850 то конечно отдельное спасибо и Kpblc'у!

Олег К. · 03.10.2007, 17:23

Господа гуру, помогите разобраться с vla-функциями. Составляю программу и заодно изучаю соотв. раздел LISPa. Пользуюсь книгой Полещука "AutoLISP и Visual Lisp в среде AutoCAD", но маловато примеров (или просто я нужное отыскать не могу

).
Пока есть вот такое:

Код:

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

(vl-load-com)
  ; получение "переменных окружения" для исходного файла
  (setq acad_appl (vlax-get-acad-object)
        open_docs (vla-get-Documents acad_appl)
        active_doc (vla-get-ActiveDocument acad_appl)
        model_space (vla-get-ModelSpace active_doc)
        paper_space (vla-get-PaperSpace active_doc)
	active_layout (vla-get-ActiveLayout active_doc)
  )
  ; создание нового файла (неактивного)
  (setq new_doc (vla-Add open_docs "acad.dwt"))
  ; получение "переменных окружения" нового файла
  (setq new_model_space (vla-get-ModelSpace new_doc)
        new_paper_space (vla-get-PaperSpace new_doc))

(setq point_list (list 0.0 0.0 0.0 0.0 10000.0 0.0 10000.0 10000.0 0.0 10000.0 0.0 0.0 0.0 0.0 0.0))
(setq point_array (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 14)) point_list))

(setq nabor (vla-get-ActiveSelectionSet active_doc))
(vla-Clear nabor)

;    ----- 1 -----
(setq listtmp nil)
(vla-SelectByPolygon nabor acSelectionSetCrossingPolygon point_array nil nil)

(vla-CopyObjects active_doc (vlax-make-variant (vlax-safearray-fill
                             (vlax-make-safearray vlax-vbObject (cons 0 (1- (vla-get-Count nabor))))
                             (vlax-for x nabor (setq listtmp (cons x listtmp)))))
                 new_model_space 'idpairs)

;    ----- 2 -----
(vla-CopyObjects active_doc (vlax-make-variant (vlax-safearray-fill
                             (vlax-make-safearray vlax-vbObject (cons 0 1))
                             active_layout))
                 new_doc 'idpairs)

Выполняться это все должно на активном листе.

1. В первой части копировать объекты нужно из модели, а не из листа. Подозреваю, в функции vla-SelectByPolygon вместо последних nil нужно поставить фильтр выбора, но никак не могу правильно его составить. Или временно делать активной модель?

2. Нужно скопировать из исходного файла в новый вкладку листа со всем содержимым (не только объекты, но и настройки печати). Что должно содержаться в массиве и в какую область нового файла это надо копировать? Если не сильно затруднит, то с примером.
Что интересно, в данном варианте при копировании листа при каждом запуске появляются разные ошибки. То "вы неправильно создаете массив", то "не могу вставить этот массив в новый документ". Вот и пойми - чего ему надо!

Да, прошелся по форумам dwg.ru и autocad.ru, ничего похожего не обнаружил. Если кто точно знает темы в которых это обсуждалось или готовые программы (ессно с открытым кодом), киньте, пожалуйста, ссылку.

Заранее спасибо всем откликнувшимся.

Netlog · 03.10.2007, 18:51

Цитата:

Сообщение от Makswell

На то Автокад и является Автокадом - культовой, можно сказать, системой, что в нём есть возможность программировать.
И это не только мое мнение...

Из Корела не доводилось печатать? И там легко делается и нестолько страниц чертежей на одном листе бумаги, и один чертёж разбить на несколько листов, и маркеры для совмещения поставить и т.д. Без программирования.

VVA · 04.10.2007, 09:35

>Олег К.
Посмотри здесь VxSsetSelect - ActiveX counterpart to 'ssget'. Передаешь ф-ции фильтр как ssget, выбор осушествляется ActiveX методами. И вообще там много чего интересного

DEM · 22.01.2008, 15:15

Чей то тема заглохла.
Вопрос следующего плана, требуется программа которая бы создавала несколько файлов по принципу 1 файл 1 лист, и при этом удаляла все что не нужно в из пространства модели.

Кулик Алексей aka kpblc · 22.01.2008, 15:27

Попробуй chspace и потом растаскивать листы

СерJант · 23.01.2008, 10:59

Обращаюсь к корифеям лиспа )
Пожелание к разработчикам программы: Отрисовка границ ВЭкрана в модели.

Програмку неплохо былобы доделать, чтобы полиния отрисовывалась в реальном времени с ВЭкраном, т.е. не приходилось каждый раз вводить TEST, например я меняю размер видового экрана и при этом в модели также меняется границы ВЭкрана, т.е. полная привязка границ в модели к ВЭкрану. Тоже самое и при добавлении, если копируешь или вставляешь новый ВЭкран то автоматом прорисовываются его границы и когда двигаешь ВЭкран относительно координат то также двигаются его границы и в модели. Если не автомат то по нажатию кнопки, только при этом чтобы старое положение границ затиралось, а не наслаивалось столько раз сколько ввел TEST, т.е. работа по принципу обновления...
Такое возможно сделать?
p.s. Думаю многим бы такая фишка пригодилась, т.к. ее было бы очень удобно использовать при компоновке...
С уважением.

DEM · 29.01.2008, 22:55

Тут реактор надо делать.
Что не оч хорошо.

СерJант · 27.02.2008, 16:34

По поводу границ ВЭкрана, код работает не совсем коректно, точнее он работает на одном лайоте, если я работаю на следующем листе все границы видовых окон отрисовывает в одной куче и не там где отображаются объекты в вэкране, а совершенно в другом месте

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

VVA · 01.04.2008, 14:08

Вот еще один вариант без Express'ов (вариант #42)
Команда VPO - ViewPort Outline. Рисует полилинию по границам ВЭ в модели

Код:

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

;;Рисует полилинию по границам ВЭ в модели
;;ViewPort Outline
(defun C:VPO (/ adoc ss lst)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (getvar "tilemode") 0)
    (progn
      (if (= (getvar "cvport") 1)
        (progn
          (if (setq ss nil
                    ss (ssget '((0 . "VIEWPORT")))
              ) ;_ end of setq
            (setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
            (setq lst nil)
          ) ;_ end of if
        ) ;_ end of progn
        (setq lst
               (list
                 (vlax-vla-object->ename (vla-get-activepviewport adoc))
               ) ;_ end of list
        ) ;_ end of setq
      ) ;_ end of if
      (mapcar
        '(lambda (y / x ret)
           (setq x (entget y))
           (if (cdr (assoc 340 x))
             (setq ret (mapcar 'cdr
                               (vl-remove-if-not
                                 '(lambda (b) (= (car b) 10))
                                 (entget (cdr (assoc 340 x)))
                               ) ;_ end of vl-remove-if-not
                       ) ;_ end of mapcar
             ) ;_ end of setq
             (setq ret
                    (list
                      (list
                        (- (cadr (assoc 10 x)) (/ (cdr (assoc 40 x)) 2.))
                        (- (caddr (assoc 10 x))
                           (/ (cdr (assoc 41 x)) 2.)
                        ) ;_ end of -
                      ) ;_ end of list
                      (list
                        (+ (cadr (assoc 10 x)) (/ (cdr (assoc 40 x)) 2.))
                        (- (caddr (assoc 10 x))
                           (/ (cdr (assoc 41 x)) 2.)
                        ) ;_ end of -
                      ) ;_ end of list
                      (list
                        (+ (cadr (assoc 10 x)) (/ (cdr (assoc 40 x)) 2.))
                        (+ (caddr (assoc 10 x))
                           (/ (cdr (assoc 41 x)) 2.)
                        ) ;_ end of +
                      ) ;_ end of list
                      (list
                        (- (cadr (assoc 10 x)) (/ (cdr (assoc 40 x)) 2.))
                        (+ (caddr (assoc 10 x))
                           (/ (cdr (assoc 41 x)) 2.)
                        ) ;_ end of +
                      ) ;_ end of list
                    ) ;_ end of list
             ) ;_ end of setq
           ) ;_ end of if
           (vla-display (vlax-ename->vla-object y) :vlax-true) ;_Вклбючаем показ ВЭ
           (vla-put-mspace adoc :vlax-true) ;_Переходим в модель. Аналог  (command "_.mspace")
           (setvar "cvport" (cdr (assoc 69 x)))
           (setq ret (mapcar '(lambda (pt)
                                (setq pt (trans pt 3 2)
                                      pt (trans pt 2 1)
                                      pt (trans pt 1 0)
                                ) ;_ end of setq
                              ) ;_ end of lambda
                             ret
                     ) ;_ end of mapcar
           ) ;_ end of setq
           (setq ret (mapcar '(lambda (zz) (mapcar '+ zz '(0 0))) ret)) ;_Удаляем координату Z
           (setq ret (apply 'append ret))
           (vla-put-closed
             (vla-addlightweightpolyline
               (vla-get-modelspace adoc)
               (vlax-make-variant
                 (vlax-safearray-fill
                   (vlax-make-safearray
                     vlax-vbdouble
                     (cons 0 (- (length ret) 1))
                   ) ;_ end of vlax-Make-SafeArray
                   ret
                 ) ;_ end of vlax-SafeArray-Fill
               ) ;_ end of vlax-Make-Variant
             ) ;_ end of vla-AddLightWeightPolyline
             :vlax-true
           ) ;_ end of vla-Put-Closed
         ) ;_ end of lambda
        lst
      ) ;_ end of mapcar
      (if ss
        (vla-put-mspace ad :vlax-false)
      ) ;_ Переходим в лист. Аналог (command "._pspace"))
      (setq ss nil)
    ) ;_ end of progn
    (alert "Перейди в лист")
  ) ;_ end of if
) ;_ end of defun

Еще один вариант VPO здесь https://forum.dwg.ru/showpost.php?p=...1&postcount=31

Red Nova · 01.04.2008, 15:00

Вот если бы можно было связать ВЭ и эту полилинию так, чтобы двигая полилинию и ВЭ двигался, то ..........
Вобщем хорошо бы было.

Krieger · 02.11.2016, 08:16

Цитата:

Сообщение от VVA

Вот еще один вариант без Express'ов (вариант #42)
Команда VPO - ViewPort Outline. Рисует полилинию по границам ВЭ в модели

Ошибочка есть маленькая:

Код:

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

      (if ss
        (vla-put-mspace adoc :vlax-false)
      ) ;_ Переходим в лист. Аналог (command "._pspace"))

Папаё · 10.12.2016, 18:29

А как сделать пакетную печать из листов?

AlexKniga · Регистрация: 26.07.2012

Заказчик прописал в ТЗ требование к чертежам в формате «DWG»:

Цитата:

1 файл – 1 лист. Оформление нескольких чертежей в одном файле НЕ ДОПУСКАЕТСЯ. В «модели» не должно содержаться лишней информации, только то что относится к листу.

Попытались так чертить — очень не удобно. Вернулись к привычному (в одном файле несколько листов), перед передачей заказчику разносим листы по отдельным файлам. Ручками это делать долго. Пытаемся автоматизировать.
1) Команда EXPORTLAYOUT вызывает ошибку eWasErased.
2) Установил LayoutManager. Работает, но плохо. Листы по отдельным файлам разносит, но пространство модели не сепарирует — модель полностью дублирует первообразную. Пытаюсь почистить модель скриптами VVA.
При запуске скрипта из #41:

Цитата:

; error: LOAD failed: "chspace.lsp"

при следующем запуске:

Цитата:

; error: no function definition: _MIP-GET-POINT-VIEWPORT

из #52:

Цитата:

; error: bad argument type: VLA-OBJECT nil

AutoCAD 2012 64bit не LT, не вертикалка, не локализован.

kacugu · 21.03.2017, 19:15

Offtop: а у вас все слои разблокированы?

Кулик Алексей aka kpblc · 21.03.2017, 23:50

И что говорит _.audit?

AlexKniga · 22.03.2017, 12:19

Total errors found 0 fixed 0
Erased 0 objects

----- добавлено через 49 сек. -----
Заблокированных слоев нет; есть невидимые.

----- добавлено через ~19 мин. -----
Сейчас пробую пойти другим путем.
1. Публикация или печать в «DWF6 ePlot.pc3».
2. Конвертация dwf -> dwg.

Если у кого-нибудь есть автокадовский принтер «DWG to DWG.pc3», буду очень признателен.

maratovich · 23.03.2017, 16:53

Цитата:

Сообщение от AlexKniga

1 файл – 1 лист. Оформление нескольких чертежей в одном файле НЕ ДОПУСКАЕТСЯ. В «модели» не должно содержаться лишней информации, только то что относится к листу.

Правильно говорит, значит архив у них работает.

Цитата:

Сообщение от AlexKniga

1) Команда EXPORTLAYOUT вызывает ошибку eWasErased.

Приложите файл примера, посмотрим в чём проблема.

Цитата:

Сообщение от AlexKniga

Листы по отдельным файлам разносит, но пространство модели не сепарирует — модель полностью дублирует первообразную.

А зачем разносить - в задании 1 файл – 1 лист подразумевается всё в модели.

AlexKniga · 23.03.2017, 17:12

Цитата:

Сообщение от maratovich

Приложите файл примера, посмотрим в чём проблема.

Приложил.

maratovich · 23.03.2017, 17:57

Цитата:

Сообщение от AlexKniga

Приложил.

Проверил на 2009, 2013, 2014 - экспорт листов в модель проходит без сбоя. в приложении.
Попробуйте запустить восстановление Автокада.
Но думаю что результат вас не обрадует т.к. тексты и выноски глючат, скорее всего из-за анатативности.
В принципе автоматизировать поиск и экспорт в модель можно, чтобы всё пакетно сделать, но нужно сперва понять устроит ли результат.

AlexKniga · 23.03.2017, 20:51

Экспериментировал с EXPORTLAYOUT на легких тестовых файлах.
Работает идеально и с аннотативными и неаннотативными размерами и текстами.

С реальными файлами беда: то работает, то нет. А если работает, то аннатативные объкты слетают.
И с ранее выложенным файлом: экспортирую — ошибка, загрузил другой файл в АКАД — первый стал экспортироваться. Стабильности нет. А когда экспортируется, то результат неудовлетворительный.

----- добавлено через 35 сек. -----
Как у maratovich.

maratovich · 23.03.2017, 21:03

Можно извратится и сделать (если устроит) - в приложении.
Но редактировать уже не получится.
Зато классный способ "пердачи" заказчику

AlexKniga · 24.03.2017, 12:14

Это:
многостраничный dwg -> pdf -> dwg
или
многостраничный dwg -> dwf -> dwg
?

Какими инструментами пользовались?
У меня при печати «DWG to PDF.pc3» + AutoDWG PDF to DWG Converter 2017 более мелко бьется.

maratovich · 24.03.2017, 18:39

Из Автокада распечатал в dwf.
dwf открыл в ZWCAD+ и сохранил в dwg.

karen.karenovich · Регистрация: 30.03.2017

Прошу помочь в мелочной ситуации,у меня 12 чертежей в модели и не могу их разбить по листам.

AMDen · 30.03.2017, 10:05

Цитата:

Сообщение от karen.karenovich

12 чертежей в модели и не могу их разбить по листам

12 листов: листы с видовыми экранами;
12 листов-файлов: делаешь 12 файлов-копий, лишнее удаляешь.
В чём проблема?

baksconstructor · 30.03.2017, 10:12

Цитата:

Сообщение от karen.karenovich

Прошу помочь в мелочной ситуации,у меня 12 чертежей в модели и не могу их разбить по листам.

1. Зачем ?
2. Разбить на отдельные файлы или перенести в листы ?
3. Если в листы, то перенсти полностью или сделать видовые экраны ?
4. файл в студию.

20.08.2007, 19:00		#1
Как разнести листы по разным файлам? maksimys генплана нет spb Регистрация: 15.08.2007 Сообщений: 305 Бывают такие случаи - что надо отдавать цифровую версию файла, но в этом файле заложен весь проет. и все разбито по листам во вьюпортах. Можно ли разбить листы на отдельные файлы - но так чтобы все обьекты двигались и с ними можно было работать ? (ну кроме конечно банальной обрезки модели, передачи jpeg-ов и dwf-ов) Подскажите если это возможно? 8)
Просмотров: 20593