[nikolaevas]

Как на лиспе описать команду выделения объектов с весом линий 0.15?
И как к выделенному применить команду изменения веса линий на 0.40?
Возможно это баян, но правда искал - не нашел(

[Сергей812]

какие хоть объекты - примитивы типа полилиний, отрезков? или и блоки, и т.д.?

[nikolaevas]

Выбор по типу "Быстрого выбора" с параметром вес линий = "0.15" (Блоки не обязательно... линии окружности полилинии сплайны)

[Сергей812]

ну если на всем чертеже, то смотри функцию ssget с параметром "_X" и фильтром на соответствующую группу (вроде 370 группа, но не уверен)

[nikolaevas]

Попробовал, не выходит.

Код:

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

 Команда: (ssget "_x" '(370 0.15))

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

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

Попробуй лучше (ssget "_X" '((370 . 15)))
Пишу без проверки

[Сергей812]

Алексей опередил - у Полещука написано: 370 - вес, преобразованный в целое число умножением на 100

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

Это не все Посчитай количество скобочек ))

----- добавлено через 56 сек. -----
Ну и разница между списком и точечной парой, опять же ))

[nikolaevas]

Команда выполнилась и селекшн сет определен.
Теперь вопрос как поменять для селекшн сета толщину линий на 0.4

Код:

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

 (setq ssWidth15 (ssget "_X" '((370 . 15))))

[Сергей812]

получили коллекцию элементов. Пройдите по ней и обновите в каждом элементе группу 370 через entmod с последующим обновлением через entupd

[nikolaevas]

Код:

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

 (setq one_ent (entnext))            ; Gets name of first entity.
 (while one_ent 
 . 
 .                                  ; Processes new entity.
 . 
  (setq one_ent (entnext one_ent))
)                                   ; Value of one_ent is now nil.

Нашел в справке, но это перебор всей базы, а для селекшн сета пока увидел функцию

Код:

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

 (setq ilast (sslength ssWidth15))  ; Finds index of the last entity 
                              ; in sset.

[Сергей812]

ssname - получение примитива из набора по порядковому номеру

[nikolaevas]

Код:

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

 (setq ssWidth15 (ssget "_X" '((370 . 15))))
(setq ilast (sslength ssWidth15))
(setq i 0)
(while (< i ilast)
 (setq ent (ssname ssWidth15 i))
 (setq ent (subst (cons 370 "40") (assoc 370 ent) ent ))
 (entmod ent)
 (entupd ent)
 (setq i (1+ i))
)

При этом пишет Неверный тип аргумента listp

[Сергей812]

на чем именно пишет то? используйте пошаговую отладку из редактора VLisp

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

Потому что ent у тебя не список, а указатель на примитив. http://autolisp.ru/2009/09/10/vlide-misc-01/ ; http://autolisp.ru/2009/09/12/vlide-misc-02/

----- добавлено через 31 сек. -----
И заодно в документации посмотри, с чем работает subst. entmod, entupd