[bytyamin]

Помогите пожалуйста реализовать....Начал с этого...



(COMMAND "_LAYER" "_MAKE" "Sloy_c_obeektami" "_COLOR" "140" "" "")
(command "_rectangle" '(2 2) '(-2 -2) "")

Незнаю как осущесвляется перемещение на др слой.Помогите плззз!!!!!

[Profan]

Ничего перемещать не надо. Надо просто изменить свойство объекта (ов) - слой.

[bytyamin]

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

; Программа 10 Перенос примитивов с одного слоя
; на другой


(DEPUN C:CNGLAY (/cmd entn ent)
(SETVAR "CMDECHO" 0)
(SETQ found NIL)
(SETQ oldlyr (STRCASE (GETSTRINO
"\n Введите старое имя слоя:"))
newlyr (STRCASE (OETSTRING
"\n Введите новое имя слоя:")))
(PRINC "\n Ведется поиск примитивов на слое")
(SETQ entn (ENTNEXT))
(WHILE (/=entn nil)
(SETQ ent (ENTGET entn))
(IF ( = (CDR (ASSOC 8 ent) oldlyr)
(PROGN
(COMMAND "CHANGE" entn""
"p" "LA" newlyr"")
(SETQ found t)
);progn
);if
(SETQ entn (ENTNEXT entn))
); while
(IF (NOT found)
(PRINC (STRCAT "\n На слое" oldlyr" нет примитивов"))
);if
(SETVAR "CMDECHO" 1)
)

[Donhuan]

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

Код:

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

(command "_.-layer" "_s" "Sloy_c_obeektami" "")

[bytyamin]

Не,вот суть программы:
Я создаю слой и рисую на нем все что угодно, затем запускаю программу и она переносит все объекты которые начертил на слой 0...Вот...Завтра сдавать...Капец мне если не сделаю =(((

[Donhuan]

Вставь в конец своей программы:

Код:

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

(mapcar
  '(lambda (x)
     (entmod (subst (cons 8 "0") (assoc 8 x) x))
   )
  (mapcar
    '(lambda (x)
       (entget (cadr x))
     )
    (ssnamex (ssget "_x" '((8 . "Sloy_c_obeektami"))))
  )
)

[Аshаs-ка]

Убить за такую прогу. Нет ничего мерзопакостнее в автокаде, чем чертежи, нарисованные (не могу написать- начерченные!) целиком в слое "0". Он еще и служебный, кстати. Сдай- и больше так никогда не делай.

[Vova]

Ashas-ka прав на 200%

[Lev_37]

Ashas-ka! Vova!
А как нормально можно работать с файлом в котором созданы десятки слоев и блоков?
В чем мерзопакосность работы на одном слое?

[Reka]

Сообщение от Lev_37 В чем мерзопакосность работы на одном слое?

Вы когда-нибудь "бороду" на катушке от спининга распутывали?

Сообщение от Lev_37 А как нормально можно работать с файлом в котором созданы десятки слоев и блоков?

А так виток к виточку!

[Аshаs-ка]

Lev-37: А вот если 100 блоков у меня вставлено, я один оедактирую- все меняются, а вот если чертеж забит сверх всякой меры - экспресстулсами манипулирую видимостью слоев как мне удобно, аесли внешние ссылки - так вообще можно всем отделом над одним проектом работать и вообще цветные чертежи читать проще и работать с ними проще, ошибок меньше. Более того, у меня рабочие на стройке спрашивают - а почему не ЦВЕТНЫЕ?!

[Vova]

Сообщение от Lev_37 А как нормально можно работать с файлом в котором созданы десятки слоев и блоков?

Посмотри здесь, в посте #18 файл. В нем

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

А если бы был один, работа с ним заняла бы невообразимо больше времени

[bytyamin]

СПАСИБО БОЛЬШОЕ!!!!!!!!!!

[Vova]

Сообщение от bytyamin Не,вот суть программы: Я создаю слой и рисую на нем все что угодно, затем запускаю программу и она переносит все объекты которые начертил на слой 0...Вот...Завтра сдавать...Капец мне если не сделаю =(((

Ну так чем это закончилось?

[Sazanoff_e]

Сообщение от Аshаs-ка Убить за такую прогу.

Очевидно так и поступили)))

[T-Yoke]

Цитата: Программа переносящая все объекты чертежа на слой 0
За такие программки я бы расстреливал на месте из рогатки Половину функционала убивают сходу.

[ssn]

да ладно вам, вполне нормальная программа для того, что бы поделиться файлом куданить мимо конторы. просто надо использовать по назначению.
сюда же добавить ещё пакостей всяких...
иногда приходят чертежи, не знаю, спецом так делают, или после каких то махинаций такое выходит, но прикольно: несколько однострочных текстов с одной координатой по У на разными координатами по Х собраны в один длинющий текст с кучей пробелов... например, цепочка размеров, естественно взорвана, и куча размеров, ну допустим штук 20... и все в одном тексте. вот подарочек для редактировния
или виды смаленькими противными скейлами (причем разными по осям), что то вроде 1,0005, что бы не ставились размеры масштабные тоже весело

[T-Yoke]

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

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

[Vova]

Ну ладно, а как технически справит'ся с такой проблемой: был слой с типом линии такой-то. В свойствах стоит Послою. Переводим в 0. Что получаем на выходе? А про цвета и говорить нечего. Поэтому весь чертеж искорежится

[Profan]

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

[Donhuan]

Ну вы и нафлудили. Возникает непреодолимое желание удалить код вызвавший такую бурю негатива.
Если серьезно, то студенту скорее всего понадобилась прожка для лабораторной какой нибудь (ради примера взяли слой "0"), он и не заходил-то на форум больше.
P.S.
Кстати код переносит на слой "0" объекты только со слоя "Sloy_c_obeektami", так что название темы некорректно.

[ssn]

да прям пипец какой лепет...
наверно не приходилось получать чертежи от смежников с количеством слоёв за сотню, тапа двери, окна, туалеты, рамы, закладные, 1, 3, 11, нина, вася... ну и так далее... мне это все надо как подложка, не более того.
если чертёж выполнен правильно, то труда эта операция не составит. но выидимо такой судьба мой, что не встречал ещё чертежей, что бы вот так просто, выделили все, перенесли на нужный слой, пурганули разок - и все, ура, продолжаем разговор...
да ладно, все глумятся как хотят...
и почему решили что все переносится на ноль с потерей цвета, толщин и прочего? можно внешний вид четрежа после переноса оставить таким же.
слой 0 тут понятное дело не так нужен, он для внутренних целей, но код, который разносит все объекты чертежа на три четыре слоя по типу: толстые, тонкие, размеры, текст и удаляет все остальные слои думаю был бы довольно таки полезным.

[Vova]

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

Посмотри тему Подоснова. Там представлен американский чертеж с количеством слоев под 1000. Чтобы сделать из него подоснову стандартными способамин надо неск. часов, хотя чертеж сделан правильно (с точки зрения его авторов)

и почему решили что все переносится на ноль с потерей цвета, толщин и прочего? можно внешний вид четрежа после переноса оставить таким же. .

Потому что так и есть. Внешний вид исказится

[ssn]

да ладно исказится....
можно примитивам напрямую задавать свойства "материнских" объектов...
думаю вот сделать такую прогу на ВБА... только с моим знанимем програмирования наверно выйдет очень медленная штука. хотя, впринципе, если надо из 1000 слоёв сделать например 4, то такая прога была бы супер полезной... запустил, и пошел пить кофе

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

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

[ssn]

неужели так сложно?
а в чем вся соль?
выбрал объект, узнал его свойства, согластно них назначил новые....
чего я не учитываю?

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

Вхождения и описания обычных и дин.блоков (а для описаний надо еще и DXF-представления обрабатывать для гарантии). Атрибуты. Размеры и размерные стили. Прокси-графика. Внешние ссылки. Расширенные данные на примитивы.
Это те моменты, которые я "навскидку" вспомнил. Возможно, при разработке еще что-нибудь вылезет.