[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, например, для последующей раскраски фасада. Так что нечего попусту критиковать, возможно, человеку нужно для своих целей.