[hwarang]

Добрый день!
Подскажите, пожалуйста в следующем вопросе.
Импортирую в Autocad чертеж из другой программы (Компас). Типы, цвет, толщина линий у примитивов меня не устраивают. Кроме того, некоторые объекты вставляются блоками. Напр., у основной линии выставлены свойства:цвет - 0,0,255, тип линии - K5LT_BASIC, вес линии - 0,6 мм. Хотел написать макрос для кнопки, выполняющий следующую последовательность действий: Выделить все->взорвать->Выделить все->Быстрый выбор->По типу линии (напр., "K5LT_BASIС"). Выделенный набор переместить в слой "Основная", свойства поменять цвет - по слою, тип линии - по слою, вес линии - по слою. Дошел до пункта "Быстрый выбор" (диалоговое окно) и застопорился. Можно ли как-то передать параметры выбора или может быть есть какой-нибудь др. способ перебрать объекты на чертеже по конкретному свойству (возможно, использовать LISP?).

[ciril]

(ssget "_X" (list ...)), где (list ...) - список точечных пар (dxf-код . значение), то есть нужных тебе свойств.

[TararykovDG]

Сообщение от hwarang Можно ли как-то передать параметры выбора или может быть есть какой-нибудь др. способ перебрать объекты на чертеже по конкретному свойству (возможно, использовать LISP?).

Есть такой вариант Быстрый выбор примитивов по образцу, там же есть ссылка на программу SelSim от Александра Ривилиса

[hwarang]

Сообщение от TararykovDG Есть такой вариант Быстрый выбор примитивов по образцу, там же есть ссылка на программу SelSim от Александра Ривилиса

Спасибо, видел. Только я не силен в лиспе, поэтому переделать под себя более сложную программу мне пока трудновато. Мне нежно просто выделить примитивы с определенным свойством (тип линии) и изменить их заданные свойства на свойство "по слою", а также поменять их свойство "слой".
Как это должно выглядеть?

Код:

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

(defun C:line_type (mode /)
(ssget "X" `((6 . "K5LT_BASIC")))
)
(princ)
)

Конечно, очень коряво, с лиспом начал знакомиться пару часов назад...

[ciril]

скорее вот так:

Код:

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

 (ssget "_X" '((6 . "K5LT_BASIC")))

-вместо ` - ' и нижнее подчеркивание перед X
лучше свой код выложи.

[hwarang]

Сообщение от ciril лучше свой код выложи.

В #4 и есть пока что весь имеющийся код, при вводе line_type в командную строку пишет "Неизвестная команда "LINE_TYPE". Для вызова справки нажмите F1."
Думал ограничиться макросом с кнопкой, но видно не получится.

[Profan]

В #4 фигня написана, да простит меня Господь. Что еще за mode?

[hwarang]

Сообщение от Profan да простит меня Господь

Господь здесь как раз не при чем.

Сообщение от hwarang лиспом начал знакомиться пару часов назад

поэтому о том, что

Сообщение от Profan фигня написана

я догадываюсь, а mode взял из одного примера в интернете можно сказать бездумно.
Если есть советы по написаному в #1 и #4, буду благодарен.

[ciril]

Код:

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

 (defun qsandmod     (e00 / x00 x01 x02 x03 x04)
  (setq x00 -1)
  (and (setq x01 (ssget "_X" (list e00)))
       (repeat (sslength x01)
     (setq x03 (cdr
             (assoc -1
                (setq x02 (subst '(8 . "Основная") (assoc 8 (setq x02 (entget (ssname x01 (setq x00 (1+ x00)))))) x02)))))
     (and (entmake
        (foreach auxi  '(-1 330 5 6 62 370)
          (setq x02 (append (reverse (cdr (member (setq x04 (assoc auxi x02)) (reverse x02)))) (cdr (member x04 x02))))))
          (entdel x03))))
  (setq x01 nil))

(qsandmod '(6 . "K5LT_BASIC")) - эту строка вызывает перенос набора на слой Основная и т.д.
Ты уверен, что нужно все взрывать перед изменениями свойств?

[hwarang]

Сообщение от ciril (qsandmod '(6 . "K5LT_BASIC")) - эту строка вызывает перенос набора на слой Основная и т.д.

Спасибо за помощь! Получил ошибку:

Команда: (qsandmod '(6 . "K5LT_BASIC")) ; ошибка: слишком много аргументов

Взрывать точно нужно, т.к., напр., прямоугольник вставляется как блок.
Еще такой вопрос: на чертеж вставляется несколько типов линий (в зависимости от содержимого) основная, тонкая, осевая... Можно ли добавить обработку разных типов линий в твой код, а изменение свойств и перенос на другие слои (каждый тип линии на свой) выполнять автоматически. Т.е., открыл чертеж, вызвал функцию, напр., qsandmod, далее все произошло на автомате? Названия всех типов исходных линий (K5LT_BASIC - основная, K5LT_AXLED - осевая...) я знаю наперед.

[ciril]

быть того не может что ты сделал перед этим?
на автомате и нужно

Код:

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

 (defun c:modcomp () (foreach auxi '(...) (qsandmod auxi)) (princ))

в командной строке: modcomp
вместо ... точечные пары (6 . тип_линии), которые тебе заранее известны, если выбор производится только по типам линий, то код можно немного переписать
или все на автомате - это вместе с разбиением?

[hwarang]

Сообщение от ciril быть того не может что ты сделал перед этим?

Может по неопытности...
Скопировал текст, вставил в блокнот, сохранил под именем 5.lsp, загрузил его в autocad ("5.lsp успешно загружен"), набрал в командной строке (qsandmod '(6 . "K5LT_BASIC")). Получил ошибку.

[ciril]

Попробуй открыть редактор лиспа в акаде: сервис->AutoLISP->редактор VisualLISP и вставить в нем в новый файл, потом Ctrl+Alt+E, в любом случае, не в блокноте программы пишутся

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

Сообщение от ciril в любом случае, не в блокноте программы пишутся

Кто сказал? В некоторых случаях именно VLIDE не очень удобен.

[ciril]

Сообщение от hwarang Получил ошибку.

Ты скопировал вместе с номерами строк

Сообщение от Кулик Алексей aka kpblc Кто сказал? В некоторых случаях именно VLIDE не очень удобен.

Как-то отлаживать программу все-таки удобней в IDE Я себе не могу представить случаев, когда VLIDE неудобен

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

Уточню: разбирать чужой код на несколько тысяч строк мне проще в Notepad++, чем в VLIDE

[Дима_]

Заявляю категорично - мне VLIDE не удобен, я много раз пытался заставить себя им пользоваться - в результате, использую сторонний лисп редактор (причем совсем не под автолисп). "По мелочи" notepad++.

[Do$]

Сообщение от Кулик Алексей aka kpblc Уточню: разбирать чужой код на несколько тысяч строк мне проще в Notepad++, чем в VLIDE

Offtop: Тоже к этой мысли прихожу. Даже в своем коде, когда он разрастается, очень тяжело становится во VLIDE ориентироваться. Пока не могу с него "слезть", привык к автоматическому форматированию и возможности проверить работу кода прямо из редактора, но уже не раз ловил себя на мысли, что пора искать альтернативу.

[ciril]

Кулик Алексей aka kpblc - дело вкуса, я смотрю Lister, но ведь отлаживать приходится все равно в VLIDE
Дима_ - а что за сторонний лисп-редактор?

[hwarang]

Точно, скопировал с номерами строк.
Убрал номера строк, добавил в конце

Код:

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

 (defun c:modcomp () (foreach auxi '((6 . "K5LT_BASIC")) (qsandmod auxi)) (princ))

запустил и все линии с типом K5LT_BASIC перенеслись на слой "Основная". При этом тип линии и вес линии стали "По слою", а цвет остался прежний. Можно ли его тоже сделать "По слою"?