[shartal]

Можно ли это сделать одной командой, не обращаясь в БВЫБОРу?

[Олег (jr.)]

Наверно так, без проверки на отключенные слои

Код:

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

 (vl-load-com)
   (setq adoc (vla-get-activedocument
                (vlax-get-acad-object)
              ) 
   )
(setq acsp (vla-get-modelspace adoc))
(vlax-for obj acsp
  (if (eq (vla-get-objectname obj) "AcDbPolyline")
  (vla-put-constantwidth obj 40.0)
(vla-put-lineweight obj acLnWtByLayer) 
    ))