• ант
  • Восстановленный участник
  • На форуме с 16 января 2007г.
  • Сообщений: 43
  • Спасибо: 0

Тема: plot style для "части" рисунка

а как при распечатке рисунка, для части этого рисунка задать свой стиль печати, отличный от общего? (речь только о стиле печати)
например нужно распечатать файл, у которого по умолчанию стиль печати полноцветный, с отображением веса линий, а как так сделать чтобы у какой то части рисунка, в данном случае подгруженной ссылке, хотя иногда и группе слоев, задать другой стиль печати, монохромный (тоесть ч.б.), и без отображения веса линий (тесть чтобы все принудительно печаталось с 0,00 толщиной).

  • ант
  • Восстановленный участник
  • На форуме с 16 января 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: plot style для "части" рисунка

проблемма то побольшому счету в блоках, уж очень их долго в Bylayer переопределять, а взрывать виснет все... благо block editor есть), немогу найти, была то ли в липсе, толи в готовых программах-команда, все свойства в Bylayer перекидывает, если кто помнит, скинте ссылу, плииз

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: plot style для "части" рисунка

Только не в ByLayer, а ByBlock. Если до вечера подождешь - выложу код. Кстати, было что-то у меня на блоге: http://my.opera.com/kpblc/blog/show.dml/299368 и там почти в самом конце

  • ант
  • Восстановленный участник
  • На форуме с 16 января 2007г.
  • Сообщений: 43
  • Спасибо: 0

Re: plot style для "части" рисунка

подожду)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: plot style для "части" рисунка

Не проверял особо:

(defun c:normblock (/ *error* adoc loc:restore-layers lst:layers)
  (defun *error* (msg)
    (loc:restore-layers)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun
  (defun loc:restore-layers ()
    (foreach item lst:layers
      (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
      (vl-catch-all-apply
        '(lambda ()
           (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
           ) ;_ end of lambda
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of defun
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for item (vla-get-layers adoc)
    (setq lst:layers
           (cons (list item
                       (cons "lock" (vla-get-lock item))
                       (cons "freeze" (vla-get-freeze item))
                       ) ;_ end of list
                 lst:layers
                 ) ;_ end of cons
          ) ;_ end of setq
    (vla-put-lock item :vlax-false)
    (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)))
    ) ;_ end of vlax-for
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-islayout blk_def) :vlax-false)
             (equal (vla-get-isxref blk_def) :vlax-false)
             ) ;_ end of and
      (vlax-for ent blk_def
        (vla-put-layer ent "0")
        (vla-put-color ent 0)
        (vla-put-lineweight ent aclnwtbyblock)
        (vla-put-linetype ent "byblock")
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  (loc:restore-layers)
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun