[ie.spb]

Добрый день господа программисты. Стоит следующая задача: создать макрос для кнопки, для целей изменения ширины текста, т.е. выделяем текст, а потом правой кнопкой мыши увеличиваем ширину, а левой уменьшаем, с шагом шкалы 0.1. Возможно ли это???

[zenon]

Сообщение от Djonikbishkek Добрый день господа программисты. Стоит следующая задача: создать макрос для кнопки, для целей изменения ширины текста, т.е. выделяем текст, а потом правой кнопкой мыши увеличиваем ширину, а левой уменьшаем, с шагом шкалы 0.1. Возможно ли это???

Возможно и без макроса, надо только панель свойтв открыть. По количеству кликов и телодвижений КПД выше будет.

[ie.spb]

По моему мнения ирония здесь не уместна.

[Makswell]

Можно повесить на кнопку такое:

Код:

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

^C^C(defun C:test (/ m-name m-ent) (setq m-name (car (entsel "Выберите текст: "))) (setq m-ent (entget m-name)) (entmod (subst (cons 41 (+ (cdr (assoc 41 m-ent)) 0.1)) (assoc 41 m-ent) m-ent)) (entupd m-name));test

Фигня конечно, но вдруг поможет...

[ie.spb]

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

[Makswell]

Если всё должно работать, как ты описал 1-м посте, то тут по-моему макросом не обойтись, нужна прога, и довольно непростая. ИМХО.
У меня на такую прогу мозгов конечно же не хватит.
Мой предыдущий макрос призван не решить задачу, а лишь только как то улучшить ситуацию

[ie.spb]

Ситуация действительно улучшилась, большое спасибо! И все таки хотелось бы большего

[CB]

Код:

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

(defun C:test (/ m-name m-ent gr zn)
  (setq m-name (car (entsel "Выберите текст: ")))
  (prompt "\nЛевая кнопка - уменьшение/Правая кнопка -увеличение")
  (setq gr (car (grread)))
  (cond	((= gr 3) (setq zn '-))
	((= gr 11) (setq zn '+))
	(t nil)
  ) ;_ end of cond
  (if zn
    (progn
      (setq m-ent (entget m-name))
      (entmod
	(subst (cons 41 ((eval zn) (cdr (assoc 41 m-ent)) 0.1))
	       (assoc 41 m-ent)
	       m-ent
	) ;_ end of subst
      ) ;_ end of entmod
      (entupd m-name)
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

[ie.spb]

При нажатии левой клавиши все нормально, а вот при нажатии правой получается следующее
Левая кнопка - уменьшение/Правая кнопка -увеличениеnil

[Makswell]

аналогично...

[Makswell]

Разобрался!
Надо так:

Код:

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

(defun C:test (/ m-name m-ent gr zn) 
  (setq m-name (car (entsel "Выберите текст: "))) 
  (prompt "\nЛевая кнопка - уменьшение/Правая кнопка -увеличение") 
  (setq gr (car (grread))) 
  (cond   ((= gr 3) (setq zn '-)) 
   ((= gr 25) (setq zn '+)) 
   (t nil) 
  ) ;_ end of cond 
  (if zn 
    (progn 
      (setq m-ent (entget m-name)) 
      (entmod 
   (subst (cons 41 ((eval zn) (cdr (assoc 41 m-ent)) 0.1)) 
          (assoc 41 m-ent) 
          m-ent 
   ) ;_ end of subst 
      ) ;_ end of entmod 
      (entupd m-name) 
    ) ;_ end of progn 
  ) ;_ end of if 
) ;_ end of defun

[ie.spb]

Еще вопрос, можно зациклить так чтобы увеличивала или уменьшала пока не отменишь команду

[Makswell]

Код:

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

(defun C:test (/ m-name m-ent gr zn)
  (setq m-name (car (entsel "Выберите текст: ")))
  (prompt "\nЛевая кнопка - уменьшение/Правая кнопка -увеличение/любая клавиша-выход")
  (while (/= (setq gr (car (grread))) 2)
    (cond ((= gr 3) (setq zn '-))
	  ((= gr 25) (setq zn '+))
	  (t nil)
    ) ;_ end of cond 
    (if	zn
      (progn
	(setq m-ent (entget m-name))
	(entmod
	  (subst (cons 41 ((eval zn) (cdr (assoc 41 m-ent)) 0.1))
		 (assoc 41 m-ent)
		 m-ent
	  ) ;_ end of subst 
	) ;_ end of entmod 
	(entupd m-name)
      ) ;_ end of progn 
    ) ;_ end of if
  )
) ;_ end of defun

[Apelsinov]

Велосипед какой-то изобретаете, господа.
есть команда в ET - TEXTFIT

[Makswell]

Даа....
Как то подзабыл я эту команду
Ну чтож, дурная голова, как говорится, рукам покоя не дает

[lee]

Сообщение от Makswell Даа.... Как то подзабыл я эту команду Ну чтож, дурная голова, как говорится, рукам покоя не дает

По моему мнения ирония здесь не уместна.

[ie.spb]

Makswell спасибо большое, очень выручил. А как пользоваться ET - TEXTFIT, что то я не пойму, буду признателен, если введете в курс дела. Заранее спасибо

[andrew_ro]

Makswell
очень полезный код из #13. Просматривая тему у меня родилась вот какая идея: здесь в #47 лежит лисп для динамического изменения масштаба линий. Код на самом деле "прикольный". Вопрос для ЛИСП-программистов: нельзя ли создать нечто пободное для width factor текста? Хотелось бы, чтобы код обрабатывал text и mtext.

[ArtemYa]

Подскажите пожалуйста, как можно добраться до свойства атрибута "Width factor" через код VBA, не могу найти такого свойства((.

[Vildar]

Сообщение от ArtemYa Подскажите пожалуйста, как можно добраться до свойства атрибута "Width factor" через код VBA, не могу найти такого свойства((.

ScaleFactor

[ArtemYa]

а Scale - это разве не масштаб?

[Vildar]

ArtemYa, согласен, название не удачное. Но, что это коэф.сжатия текста атрибута я уверен. Попробуй.

Код:

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

oAtrDef.ScaleFactor = 0.9

[ArtemYa]

действительно сжатием оказалось, большое спасибо!