[sertor]

Уважаемые форумчане. Подскажите, "существует ли в природе" лисп для скрытия заднего фона мультитекста кликом по нему, с заранее установленными параметрами(коэффициент перекрытия, использование цвета фона чертежа)? Если да, то сориентируйте, где искать. Поиском самому найти не удалось. Спасибо.

[trir]

textmask?

[sertor]

Сообщение от trir textmask?

Ну не совсем. Я имел ввиду опцию МТекста "скрытие заднего плана" с определенными настройками.

[ciril]

В настройках мультитекста существует. А если программно, то DXf 90, 63, 45, 441. 63 - номер цвета, 45 - коэффициент перекрытия, если 90 - 3 (использовать цвет фона чертежа, 0 - не использовать), то 63 - цвет фона, что такое 441 - не сам знаю

Код:

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

 (defun c:mask  (/ x00)
  (while (not (eq "MTEXT" (cdr (assoc 0 (setq x00 (entget (car (entsel)))))))))
  (entmod (append x00 '((90 . 3) (63 . 256) (45 . 1.0) (441 . 0))))
  (princ))

[TararykovDG]

Сообщение от ciril что такое 441 - не сам знаю

441 - прозрачность фона (зарезервировано на будущее)

[Do$]

Сообщение от ciril В настройках мультитекста существует. А если программно, то DXf 90, 63, 45, 441. 63 - номер цвета, 45 - коэффициент перекрытия, если 90 - 3 (использовать цвет фона чертежа, 0 - не использовать), то 63 - цвет фона, что такое 441 - не сам знаю Код: [Выделить все] (defun c:mask (/ x00) (while (not (eq "MTEXT" (cdr (assoc 0 (setq x00 (entget (car (entsel))))))))) (entmod (append x00 '((90 . 3) (63 . 256) (45 . 1.0) (441 . 0)))) (princ))

Интересно, а что случится, если выбранного у MTEXTа уже есть задний фон?

[ciril]

Черт его знает, хотя, согласен, небрежность Тогда так:

Код:

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

 (defun c:mask  (/ x00)
 (while (not (eq "MTEXT" (cdr (assoc 0 (setq x00 (entget (car (entsel)))))))))
 (or (assoc 441 x00) (entmod (append x00 '((90 . 3) (63 . 256) (45 . 1.0) (441 . 0)))))
 (princ))

[sertor]

Сообщение от ciril В настройках мультитекста существует. А если программно, то DXf 90, 63, 45, 441. 63 - номер цвета, 45 - коэффициент перекрытия, если 90 - 3 (использовать цвет фона чертежа, 0 - не использовать), то 63 - цвет фона, что такое 441 - не сам знаю

Спасибо большое, работает. И еще один вопрос. А нельзя ли дополнить код функцией преобразования однострочного текста в многострочный, со всеми "вытекающими..." Я понимаю, что это есть в Expresse и в ToolPacе, но в идеале, одним кликом, было бы супер.
В дополнение, имя команды лиспа mask совпадает с внутренней командой AutoCAD Civil 3D 2012г mask (маскирующие блоки). Переименовать бы? Спасибо.

[hwd]

Offtop:

Сообщение от sertor В дополнение, имя команды лиспа mask совпадает с внутренней командой AutoCAD Civil 3D 2012г mask (маскирующие блоки). Переименовать бы? Спасибо.

Это очень сложная, длительная по времени, а так же требующая значительных финансовых затрат операция, которую так просто не решить... Особенно имея на руках четыре строчки исходников... Придётся подождать годика пол...

[sertor]

Сообщение от hwd Это очень сложная, длительная по времени, а так же требующая значительных финансовых затрат операция, которую так просто не решить... Особенно имея на руках четыре строчки исходников... Придётся подождать годика пол...

Это я на тот случай, если кому-нибудь, помимо меня, (с подобным багажом знаний) понадобится.

[gomer]

Сообщение от ciril Тогда так:

В чем смысл этого, если есть панель свойств. Если уж делать в один клик, тогда как-то так:

Код:

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

 (defun c:bgcmskmtxt (/ i ss dx)
  (if (setq i  -1
	    ss
	       (ssget "_X" '((0 . "MTEXT")))
      )
    (repeat (sslength ss)
      (if
	(setq
	  dx (assoc 90 (setq en (entget (ssname ss (setq i (1+ i))))))
	)
	 (entmod
	   (subst '(90 . 3) dx en)
	 )
      )
    )
  )
  (princ)
)

[sertor]

Сообщение от gomer В чем смысл этого, если есть панель свойств. Если уж делать в один клик, тогда как-то так:

Почему-то не срабатывает. При вводе команды никакой реакции. Программы AutoCAD 2013 и аналогично Civil 3D 2012г. Подскажите, в чем может быть проблема?

[gomer]

а какая должна реакция быть?
Если тексты не имеют маски, то ее сначала добавить нужно
Если маска есть, но не совсем такая как надо, то это тоже надо учитывать

Код:

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

 (defun c:bgcmskmtxt2 (/ i ss dxf90 wid cnt0 cnt1 cnt2)
  (if (setq wid	2.0
	    i -1
	    cnt0 0
	    cnt1 0
	    cnt2 0
	    ss
	     (ssget "_X" '((0 . "MTEXT")))
      )
    (progn
      (repeat (sslength ss)
	(if
	  (setq
	    dxf90 (assoc
		    90
		    (setq en (entget (ssname ss (setq i (1+ i)))))
		  )
	  )
	   (if (= 3 (cdr dxf90))
	     (setq cnt0 (1+ cnt0))
	     (progn
	       (entmod
		 (subst	(cons 45 wid)
			(assoc 45 en)
			(subst '(90 . 3) dxf90 en)
		 )
	       )
	       (setq cnt1 (1+ cnt1))
	     )
	   )
	   (progn
	     (entmod
	       (append
		 en
		 (list '(90 . 3) '(63 . 256) (cons 45 wid) '(441 . 0))
	       )
	     )
	     (setq cnt2 (1+ cnt2))
	   )
	)
      )
      (terpri)
      (princ (sslength ss))
      (princ (strcat " entit"
		     (if (= 1 (sslength ss))
		       "y"
		       "ies"
		     )
		     " processed: "
	     )
      )
      (if (< 0 cnt0)
	(princ (strcat (itoa cnt0)
		       " mask"
		       (if (< 1 cnt0)
			 "s"
			 ""
		       )
		       " ignored"
		       (if (or (< 0 cnt1) (< 0 cnt2))
			 ", "
			 "."
		       )
	       )
	)
      )
      (if (< 0 cnt1)
	(princ (strcat (itoa cnt1)
		       " mask"
		       (if (< 1 cnt1)
			 "s"
			 ""
		       )
		       " changed"
		       (if (< 0 cnt2)
			 ", "
			 "."
		       )
	       )
	)
      )
      (if (< 0 cnt2)
	(princ (strcat (itoa cnt2)
		       " mask"
		       (if (< 1 cnt2)
			 "s"
			 ""
		       )
		       " added."
	       )
	)
      )
    )
    (princ "No MTexts found")
  )
  (princ)
)

[sertor]

Доброго времени суток.
gomer , спасибо большое! Здорово. И если можно, последний нюанс. Возможно ли подкорректировать лисп (если это не очень сложно), чтобы скрытие заднего плана выполнялось с цветом 255,255,255? Если да, то прошу помочь. Спасибо.

[getr]

По ссылке имеется неплохой лисп http://lee-mac.com/mask.html

[sertor]

Спасибо всем за помощь. Решение надено. Вопрос снят. Удачи!