[CelDenP]

Здравствуйте! имеется чертеж, в котором все веса линий даны "по слою"
Каким образом можно перевести из "по слою" в вес линий, который задан в свойстве самих слоев, т.е. линия стоит "по слою", а сам слой имеет вес 30, а нужно чтобы сама линия стала 30

[Ingpro]

Сообщение от CelDenP имеется чертеж, в котором все веса линий даны "по слою"

??

[ЁХАН]

Для полилиний можно глобальную ширину установить 30, или любую другую

[Хмурый]

CelDenP, если вес линий не виден, то следует включить отображение веса

LWDISPLAY <OFF>: 1

[name02]

По-быстрому как-то так получилось:

Код:

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

 (defun c:LW (/ ss i obj lw_list lw_obj)
  (vl-load-com)
  (vlax-for lay	(vla-get-layers
		  (vla-get-activedocument (vlax-get-acad-object))


		)

    (setq
      lw_list (cons (cons (vla-get-name lay) (vla-get-lineweight lay))
		    lw_list
	      )
    )

  )

  (setq	ss (ssget "_X"
		  '((0 . "*LINE,ELLIPSE,CIRCLE,ARC,SPLINE,*TEXT,INSERT"))
	   )
  )

  (repeat (setq i (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss (1- i))))
    (setq lw_obj (cdr (assoc (vla-get-layer obj) lw_list)))
    (vla-put-lineweight obj lw_obj)
    (setq i (1- i))
  )

  (princ)
)

[DS1974]

А разве не проще выделить все линии на нужном слое, и сразу всем присвоить нужный вес?

[name02]

Можно и так, если слоев немного, а если их более десятка, а тебе нужно для каждого слоя:

1. зайти в диспетчер слоев, посмотреть какая толщина линий задана у слоя
2. запустить "Быстрый выбор", указать слой для выделения
3. указать требуемый вес линий

[Сергей812]

Сообщение от name02 (setq ss (ssget "_X"18 '((0 . "*LINE,ELLIPSE,CIRCLE,ARC,SPLINE,*TEXT,INSERT"))19 )20 )

текст и блоки обычно не входят в явном виде в набор линий

[ЁХАН]

Форум DWG.RU > Программное обеспечение > AutoCAD > Как сделать толщину линий 3 мм, т.е. выше стандарта
Здесь рассматривали подобное