[Vova]

Несколько раз были вопросы. Вдруг толстая полилиния оказывалась незаполненной, хотя переменная Fill=1. Виной тому оказывалась Orbit, которую несанкционированно включали нажатием колеса+Shift (разъяснил Хмурый здесь). Починить можно командой _Plan.
А можно-ли конкретную полилинию сделать незаполненной? Остальные должны оставаться нормальными.

[Profan]

Возможный способ:
Перед отрисовкой незакрашенной полилинии повернуть ПСК (UCS), например, вокруг оси X на 0.01 градус. Нарисовать полилинию. Вернуть ПСК в МСК (WCS).

[Vova]

Хмyрый и Profan-не пальцем деланныe, и руки и мозги из правильного места растут. Я тоже, получается, отличился-свел воедино, и из проблемы вышла хорошая штука. Сразу применил на практике: надо было показать скрытую оборудованием толстую пунктирную линию. Да еще цвет ей задал по интенсивности на печати 30%. Получилось ненавязчиво и красиво.

[VVA]

По алгоритму, изложенному в #2 небольшой лиспик.
PFM0 - делает то, что сделал Vova в #3
PFM1 - возвращает сделанное назад.
PFM0_ - делает то, что сделал Vova в #3, выбор нескольких полилиний
PFM1_ - возвращает сделанное назад, выбор нескольких полилиний.

Код:

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

(defun C:PFM0  ( / en ed)
;;; Set select Polyline FillMode=0
(and (setq en (car(entsel "\nSelect polyline")))
     (wcmatch (cdr(assoc 0 (setq ed(entget en)))) "*POLYLINE")
     (entmod (subst '(210 0.0 -0.000174533 1.0)(assoc 210 ed) ed))
     (entupd en)
     )
  (princ)
  )
(defun C:PFM1  ( / en ed)
;;; Set select Polyline FillMode=1
(and (setq en (car(entsel "\nSelect polyline")))
     (wcmatch (cdr(assoc 0 (setq ed(entget en)))) "*POLYLINE")
     (entmod (subst '(210 0.0 0.0 1.0)(assoc 210 ed) ed))
     (entupd en)
     )
  (princ)
  )
(defun C:PFM0_  ( / ss ed en)
  ;;; Set select Polyline FillMode=0
(setq ss  (ssget "_:L"  '((0 . "*POLYLINE"))))
  (setq i -1)
  (repeat (sslength ss)
    (setq en (ssname ss (setq i (1+ i)))
          ed (entget en)
          )
    (entmod (subst '(210 0.0 -0.000174533 1.0)(assoc 210 ed) ed))
    (entupd en)
    )
    (princ)
  )
(defun C:PFM1_  ( / ss ed en)
  ;;; Set select Polyline FillMode=1
(setq ss  (ssget "_:L"  '((0 . "*POLYLINE"))))
  (setq i -1)
  (repeat (sslength ss)
    (setq en (ssname ss (setq i (1+ i)))
          ed (entget en)
          )
    (entmod (subst '(210 0.0 0.0 1.0)(assoc 210 ed) ed))
    (entupd en)
    )
    (princ)
  )

PS: Подразумевается, что у полилинии задана ненулевая ширина

[Profan]

Хочу немного дополнить. Закраска широкой полилинии исчезает при включении Орбиты. Однако надо иметь в виду, что в данном случае не происходит поворот ПСК, происходит поворот Вида. Поэтому закраска восстанавливается при переходе в вид Top (Сверху). Визуальный стиль при этом должен быть 2D каркас. А в 3D каркасе и Орбиту включать не надо, закраска исчезает.

[zinger]

Можно мне вставить тупой вопрос . Как отключать и включать эту самую толстую полилинию ? Тоесть ко мне попал один файл где полилинию отрисовывает толстой , что не очень удобно в данном чертеже !

[Profan]

Как это - отключить полилинию? Может, изменить ее ширину, вплоть до нулевой? Так это в свойствах.

[zinger]

С отрисованной получилось , а как сделать , выставить что-бы со старта она отрисовывалась нулевой !?
это 2 тупой вопрос

[Profan]

Смотри в командную строку. После указания первой точки появится куча опций, среди которых есть и установка ширины сегментов.

[zinger]

Благодарствую маэстро !

[OxYGeN]

а почему для незакрашных полилиний нельзя пользоваться командой mline, ширина линий настраивается через mlstyle

[Profan]

Много причин, одна из которых - невозможность отрисовки дуг.

[Миксер]

VVA, добрый день, а можете сделать , чтобы моно было выбирать несколько полилиний сразу?

[VVA]

Обновил #4
К сведению, есть еще Polyline Outline