[Бали]

У меня возникла такая задача, даже две. Возможно это уже обсуждалось, но я не видел
Задумка, состоит в том, чтобы доставить проблемы тем, кто не желает приводить свои чертежи к удобоизменяемости. Может поймут что такое автокад :twisted:
Дано: Чертеж с н-ным кол-вом слоев, текстовых и размерных стилей, все красиво и цивильно.
Задача 1: Преобразовать чертеж так, чтобы визуально он остался таким же (цвет, толщина, тип линий, свойства текстов и размеров), но кол-во слоев уменьшилось до одного стандартного, к примеру слой "0", также кол-во текстовых и размерных стилей соответственно тоже до одного стандартного.
Задача 2: Все по тому же принципу, только вместо одного слоя или стиля, перевести каждый элемент в свой собственный стиль и слой, в итоге получится красивый снаружи, но уродливый внутри монстр.
Переделывать преобразованные таким образом чертежи, для людей, поверхностно знающих автокад, думаю будет неудобно или даже сложновато, для чуваков же, вроде вас, это будет проще пареной репы.
PS: Возникла эта задача при переделке(не оформительская, а конструктивная, чето там неправильно было, а чел который все это наваял отсутствовал) мною кривых чертежей, принадлежащих людям, которые не знаю почему не пользуются ни слоями, ни текстовыми, ни размерными стилями.

[_Andre_]

Вы серьезно думаете, что таким образом подтолкнете людей к тому что нужно пользоваться слоями и тп? Или просто желание в качестве мести доставить проблемы?

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

[Бали]

>_Andre_
Возможно вы правы, но все-таки я хотел бы найти решение к этой задачке

[Zouss]

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

[pomka]

Сообщение от Бали Задумка, состоит в том, чтобы доставить проблемы тем, кто не желает приводить свои чертежи к удобоизменяемости. Может поймут что такое автокад

а вы "ЧУВАК" не задумывались над тем что люди работают в автокаде и создают чертежи так как им это удобно!!! Лучше дайте им сцылу на этот форум.

[Бали]

>Zouss
Да понимаю я что вес файла увеличится, просто может неправильно представляю во сколько раз.
> All
Если задача 2 нереальная, то хотя-бы первую задачу попробуйте решить.

[Бали]

>pomka
какая нафиг сцыла, некоторые не представляют, что такое инет

[Alan]

Сообщение от Бали >Zouss Да понимаю я что вес файла увеличится, просто может неправильно представляю во сколько раз. > All Если задача 2 нереальная, то хотя-бы первую задачу попробуйте решить.

Мужики всё верно выше описали.
Вообще разве это задача? Все бывающие на этом форуме делают это практически постоянно.
Даже отвечать не хочется. Или Вам для интереса?
Ctrl+A Ctrl+1 и всё там.

[Бали]

>Alan

Вообще разве это задача? Все бывающие на этом форуме делают это практически постоянно. Даже отвечать не хочется. Или Вам для интереса? Ctrl+A Ctrl+1 и всё там.

Чёто не получается, всё просто тупо переходит в один слой со всеми свойствами, может чё не так делаю.
Народ, мне это интересно не мести ради, а для общего развития, если че не так.

[Бали]

Вся соль в том, что цвет, тип и толщина к примеру линии, забиты в слоях, и при изменении слоя соответственно все цвета и т.д. сбрасываются в один. Такая же хрень происходит и с текстом, и с размерами.
Как нормально сделать?

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

Ну лиспом сделать задачу "перевести все в 1 слой с сохранением визуального отображения" в общем-то можно, с текстовыми стилями только не все так просто будет. Решаемо. Только, как тут правильно сказали, никому это нафиг не надо. Если такое будет сделано, люди никогда ничему не научатся, да еще и тебя разучат работать. Оно тебе надо?
Обратная задача (которая нумер двай) - это вообще мрак. Проще повеситься.

[ASLYS]

переименовать существующие

[VVA]

>Бали А вы мазохист, батенька

Код:

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

(defun C:ПЛЮЩИТЬВСЕ ( / Doc lays) 
(vl-load-com) 
(setvar "CLAYER" "0")  
(setq Doc (vla-get-ActiveDocument(vlax-get-Acad-object))) 
(vla-StartUndoMark Doc) 
(vlax-for lay (setq lays (vla-get-Layers Doc)) 
  (if (eq (vla-get-Lock lay) :vlax-true) 
    (vla-put-Lock Lay :vlax-false)) 
  (if (eq (vla-get-freeze lay) :vlax-true) 
    (vla-put-Freeze Lay :vlax-false) 
    ) 
  ) 
(vlax-for Blk (vla-get-Blocks Doc) 
 (if (= (vla-get-IsXref Blk) :vlax-false) 
  (vlax-for Obj Blk 
   (setq lay (vla-get-Layer Obj)) 
   (setq lay (vla-item lays lay)) 
   (if (= (vla-get-color obj) acByLayer) 
     (vla-put-color obj (vla-get-color lay))) 
   (if (= (vla-get-LineWeight obj) acLnWtByLayer) 
     (vla-put-LineWeight obj (vla-get-LineWeight lay))) 
   (if (= (vla-get-Linetype obj) "ByLayer") 
     (vla-put-LineType obj (vla-get-LineType lay))) 
    (vla-put-layer Obj "0") 
  ) 
 ) 
) 
(repeat 3  (vla-purgeall Doc)) 
(vla-EndUndoMark Doc)(princ) 
)

[Ander822]

Надо выбрать все объекты, поместить их на один слой, потом взорвать всё, даже размеры и текст. Потом присвоить им цвет по слою.

[T-Yoke]

Сообщение от Бали ...Задумка, состоит в том, чтобы доставить проблемы тем, кто не желает приводить свои чертежи к удобоизменяемости. Может поймут что такое автокад :twisted: ...Задача 1: Преобразовать чертеж так, чтобы визуально он остался таким же (цвет, толщина, тип линий, свойства текстов и размеров), но кол-во слоев уменьшилось до одного стандартного, к примеру слой "0", также кол-во текстовых и размерных стилей соответственно тоже до одного стандартного. ...

По первой задаче, скажу так, это конечно очень крутая месть, работать с таким чертежом будет невозможно это точно, мои слова может VOVA подтвердить. Если все объекты в чертеже свалить в один слой... Ужас! Я представил свой чертеж с 57-ю слоями. Сделать-то вообщем можно так, выделяя фильтром послойно, назначать атрибуты не по слою, а пообъектно (цвета, типы линий и т.д.), а потом все объекты перевести в нужный слой, например в тот же "0", а очищенный слой удалить. Внешне на первый взгляд всё сохраниться, но внутри "каша" будет.
Правда придётся повозиться с блоками, особенно если они имеют несколько уровней вложения, и несут в себе атрибуты разных слоёв. Скорее всего их придётся переопределять, или делать заново.

[Бали]

>VVA
Че-то не получается, у меня 2008 стоит, может из-за этого.
>All
Народ! Ну интересная же задача, чё так вяло думаем?

[ASLYS]

Надо выбрать все объекты, поместить их на один слой, потом взорвать всё, даже размеры и текст. Потом присвоить им цвет по слою.

а потом все, что получилось загнать в block minsert, чтоб знали цуки, как слоями пользоваться

[Бали]

>ASLYS
Не, не канает, надо всё как в условии, это шоб самому если чё можно было работать, да и чертеж должон цивильно выглядеть

[Ander822]

Сообщение от ASLYS Надо выбрать все объекты, поместить их на один слой, потом взорвать всё, даже размеры и текст. Потом присвоить им цвет по слою. а потом все, что получилось загнать в block minsert, чтоб знали цуки, как слоями пользоваться

А че такое в block minsert?

[Ander822]

Сообщение от Бали >ASLYS Не, не канает, надо всё как в условии, это шоб самому если чё можно было работать, да и чертеж должон цивильно выглядеть

Ну ты сам себе противоречишь.
А вобще работать можно с любыми чертежами.
Я вот например работал с чертежами где все объекты были линиями или полилиниями, и текст и размеры, а при распечатке чертеж выглядит вполне прилично.

[Бали]

>Ander822
Не понял, почему сам себе противоречу?

[Ander822]

Сообщение от Бали >Ander822 Не понял, почему сам себе противоречу?

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

[ASLYS]

если серьезно, то можно использовать .dwt или .dws

[Бали]

>Ander822
Еще раз повторю, я хочу шоб всё было на одном слою но с разными, принудительно измененными цветами, толщинами (какие были шоб остались). Я ж говорю проблема в том что эти параметры послою стоят, если бы они были изначально не послою, то было бы всё просто.

[VVA]

>Бали
Исправил ошибку (всетаки 13 пост ).
Код остался там же

[Бали]

Сообщение от ASLYS если серьезно, то можно использовать .dwt или .dws

А по условию, не могёт народ?

[Бали]

Сообщение от VVA >Бали Исправил ошибку (всетаки 13 пост ). Код остался там же

Круто вы однако разобрались!!
А теперь с текстами и размерами такую же замануху могёте.
И если не трудно ЗАДАЧА2 тоже

[Бали]

Ау, народ! Ну почти добили же задачу, чуть чуть осталось.
VVA - вы реально прикольную прогу написали, хотелось бы остальное так же просто разрулить.

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

VVA, ты попал...

[VVA]

Код:

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

(defun C:ПЛЮЩИТЬВСЕ ( / Doc lays tempObjType ColCnt RowCnt StyName count) 
(vl-load-com)
(setq StyName "Standard" count 0)
(setvar "CLAYER" "0")  
(setq Doc (vla-get-ActiveDocument(vlax-get-Acad-object))) 
(vla-StartUndoMark Doc)
(vla-put-ActiveTextStyle  Doc (vla-item (vla-get-TextStyles Doc) StyName))
(vlax-for lay (setq lays (vla-get-Layers Doc)) 
  (if (eq (vla-get-Lock lay) :vlax-true) 
    (vla-put-Lock Lay :vlax-false)) 
  (if (eq (vla-get-freeze lay) :vlax-true) 
    (vla-put-Freeze Lay :vlax-false) 
    ) 
  ) 
(vlax-for Blk (vla-get-Blocks Doc)
 (if (= (vla-get-IsXref Blk) :vlax-false) 
  (vlax-for Obj Blk
   (grtext -1 (strcat "Элемент N " (itoa (setq count (1+ count))))) 
   (setq lay (vla-get-Layer Obj)) 
   (setq lay (vla-item lays lay)) 
   (if (= (vla-get-color obj) acByLayer) 
     (vla-put-color obj (vla-get-color lay))) 
   (if (= (vla-get-LineWeight obj) acLnWtByLayer) 
     (vla-put-LineWeight obj (vla-get-LineWeight lay))) 
   (if (= (vla-get-Linetype obj) "ByLayer") 
     (vla-put-LineType obj (vla-get-LineType lay))) 
    (vla-put-layer Obj "0")
    (setq tempObjType (vla-get-ObjectName Obj))
    (cond
    ((vl-position tempObjType '("AcDbText" "AcDbMText" "AcDbAttributeDefinition"))
     (vla-put-StyleName Obj StyName)
    )
    ((wcmatch tempObjType "AcDb*Dimension")
     (vla-put-TextStyle Obj StyName)
    )
    ((= tempObjType "AcDbBlockReference")
     (foreach Att (vlax-invoke Obj 'GetAttributes)
      (vla-put-StyleName Att StyName)
     )
     (foreach Att (vlax-invoke Obj 'GetConstantAttributes)
      (vla-put-StyleName Att StyName)
     )
    )
    ((= tempObjType "AcDbTable")
     (setq ColCnt 0)
     (repeat (vla-get-Columns Obj)
      (setq RowCnt 0)
      (repeat (vla-get-Rows Obj)
       (vlax-invoke Obj 'SetCellTextStyle RowCnt ColCnt StyName)
       (setq RowCnt (1+ RowCnt))
      )
      (setq ColCnt (1+ ColCnt))
     )
    )
   )
  ) 
 ) 
) 
(repeat 3  (vla-purgeall Doc)) 
(vla-EndUndoMark Doc)(princ) 
)

И если не трудно ЗАДАЧА2 тоже

Если у меня в среднем порядка 30000 элементов в чертеже, предлагашь создать 30000 слоев? AutoCAD такого не простит, а мне сним дружить хочется.

[Бали]

>VVA
Чё то хуже вроде вышло, только один из трех текстовых стилей убрался, тексты поползли немного (вроде Мтексты), да и размеры тоже.
Задача2 признаю немного туповата её делать не имеет смысла.
В принципе первый вариант VVA-ской проги канает. Всем спасибо, я удовлетворен, но если вам интересно можете все-таки решить до конца.

[Бали]

>VVA
Все таки мне хочется увидеть решение задачи1 до конца, вручную попробовал-получается, думаю програмно тоже можно решить, не откажите

[Бали]

Ау! Вопрос всё ещё висит!
мОзги-програмеры, снизойдите, а то я в лиспе ни болта не рублю.

[Ander822]

Есть такая идея:
Пишется лиспик, который создает файлик где для каждого объекта чертежа прописаны все его свойства (слой, цвет, вес...)
потом каждому объекту присваиваются значения цвета, веса линии которые были у соответсвующих слоев, а сами объекты переносятся на 0-й слой.

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

[Бали]

>Ander822
Хорошая идея, но сначала давайте разрулим задачу1

[Admin]

>>Бали

Ау! Вопрос всё ещё висит! мОзги-програмеры, снизойдите, а то я в лиспе ни болта не рублю.

Прекращай создавать искусственный интерес и поддергивать топик каждые пол-часа, а то совсем закрою.

[VVA]

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

[Бали]

>VVA
Высылаю то что получилось с мтекстом
[ATTACH]1185878762.dwg[/ATTACH]

[VVA]

Так что здесь странного?
У тебя бал стиль Russo R со шрифтом romans.shx степень сжатия 0.8 и наклоном 10, а стал Standard со шрифтом txt.shx
Назначь стилю Standard шрифт romans.shx степень сжатия 0.8 и наклон 10 и будет то же самое

[Бали]

>VVA
Так не канает, потому что на одном чертеже степень сжатия может быть разной. ???

[VVA]

Тогда забудь про текстовые стили.

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

Бали, не мучайся, используй flatten с режимом удаления невидимых. В потом лисп VVA.
Только проворачивай на копии.

[VVA]

Хочешь насолить, попробуй это
http://forum.dwg.ru/showpost.php?p=236810&postcount=3
(пробуй на копии)

[Олег К.]

>> VVA
Чисто на уровне идеи: что если при выполнении первой задачи имя слоя и стиль текста писать в расширенные данные каждого объекта (примитива), а во 2-й по этим данным все восстанавливать?
Вот только все начерченное между этими действиями останется без изменений.

[Bull]

Не стал всё это читать, скажу токо IMHO.

ПЕРВАЯ - решение чревато возникновением случайных ошибок. Раз стили размеров все приводятся к одному.

ВТОРАЯ - обезьянья работа. ОООООчень кропотливая и бестолковая при этом. Лисп, конечно, в этом поможет. Только чтоб его написать, нужно сначала узнать, что натворено до этого. И опять таки, можно случайно размеры испортить. Не все же рисуют в одном листе/модели в единственном масштабе.

Остается только посоветовать применить материальный стимул для т.н. "нормальной" работы с наказанием для "отклоняющихся".

[Zouss]

сображение по поводу обратной задачи - разносить объекты по комбинации свойств цвет, тип линии, толщина (которая вес).
соответственном и имена новым слоям давать вида #_linetype_##, где # номер цвета, linetype имя типа линии, ## толщина линии. количество слоев будет вполне приемлемо

Код:

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

(defun C:deplusher (/ divider adoc ss n ed en colr lint linw lname)
  (defun makelayer (lname colr lint linw /)
    (entmake
      (list
	(cons 0 "LAYER")
	(cons 100 "AcDbSymbolTableRecord")
	(cons 100 "AcDbLayerTableRecord")
	(cons 70 0)
	(cons 2 lname)
	(cons 62 colr)
	(cons 6 lint)
	(cons 370 linw)
      ) ;_  list
    ) ;_  entmake
  ) ;_  defun

  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (setq	divider	"__"
	ss	(ssget "X")
	n	(sslength ss)
  ) ;_  setq
  (repeat n
    (setq ed	(entget (setq en (ssname ss 0)))
	  colr	(cdr (assoc 62 ed))
	  lint	(cdr (assoc 6 ed))
	  linw	(cdr (assoc 370 ed))
	  lname	(strcat (itoa colr) divider lint divider (rtos linw))
    ) ;_  setq
    (if	(not (tblsearch "LAYER" lname))
      (makelayer lname colr lint linw)
    ) ;_  if
    (setq ed (subst (cons 8 lname) (assoc 8 ed) ed)
	  ed (subst (cons 6 "bylayer") (assoc 6 ed) ed)
    ) ;_  setq
    (entmod ed)
    (ssdel en ss)
  ) ;_  repeat
  (vla-endundomark adoc)
  (princ)
) ;_  defun

только цвет и толщину линии установить в bylayer с наскоку чёт не получилось

[Бали]

Всем кто пытался помочь выражаю большой респект. Пасиба.