[armmen]

товарищи гуру и эксперты - можно ли поменять стиль мультилинии, если она уже используется в чертеже? стандартным образом - через Format-Multiline Style не делается =((( ну так чтоб - поменять содержание ее - и все в чертеже обновились?

[Zouss]

врядли ибо нестандартным (LISP без V через entmod) тоже не получается - надо всю мультилинию перестраивать, что в принципе реализуемо, но геморно - подождем может кто из закромов чего выскребет

[armmen]

эээх... ждем-с =))))

[Zouss]

во вложении черновой вариант проги - правда она не меняют стиль мультилинии, а перерисовывает ее с выбранным стилем, удаляя старую
отрисовка ведется на текущем слое с текущими же настройками, никаких проверок кроме типа выбираемого объекта не проводится.
также отсутствуют *error*, сохранение/восстановление настроек

желающие могут:
1 владеющие DCL модифицировать функцию getmlinestylename для выбора имени стиля в диалоге
2 владеющие VLISP модифицировать функцию getvertexlist для более элегантного получения списка вершин
3 располагающие временем модифицировать функцию makemline для изготовления мультилинии через entmake с копированием свойств оригинальной мультилинии
[ATTACH]1159968444.zip[/ATTACH]

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

У мультилинии один малоприятный момент: свойство "стиль" у нее read-only, то есть пробовать менять StyleName у ее vla-представления (либо 340 группу в entget) бесполезно. А координаты можно и так получить, к примеру:

Код:

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

(mapcar 'cdr (vl-remove-if-not '(LAMBDA(x) (= (car x)11)) (entget (entlast))))

можно по имени стиля попробовать до него добраться так:

Код:

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

(cdr (assoc 350 (member (cons 3 "STANDARD") (mapcar
'(LAMBDA(z) (cons (car z) (if (= (type (cdr z)) 'str) (strcase (cdr z)) (cdr z))))
 (vl-remove-if '(LAMBDA(x) (not (member (car x) '(3 350))))(entget (cdadr (member (cons 3 "ACAD_MLINESTYLE") (entget (NAMEDOBJDICT)))))
)))))

Потом составить entget представление мультилинии и сделать ее через (entmake), заменив 340-ю группу. Только эффективность будет практически нулевая, я думаю.