Как ЛИСПом поменять цвет текста нажатием кнопки мышки (Страница 1 из 2)

Неужели никто не поможет?
Даже по случаю победы в хоккее?

> Makson
ОК, подожду. Понимаю - головка с утреца - бо-бо...

По поводу второй фишки. А если сделать панельку с выпадающими кнопками (2 штуки)? Одна зеленая, другая красная. Нажали, выбрали зеленую и она запомнилась в интерфейсе. В другой раз выбрали красную - и теперь она на виду.

> Владимир Громов
Это не фишка, Это стандартное решение, это у меня и у других сослуживцев есть на компах. Фишка в другом: ни у кого нету, а у меня появится! (Ненадолго, конечно, потом поделюсь с сослуживцами, кто попросит, но пару-тройку деньков подержу монополию на этот прикольчик)

> VVA
Ага, спасибо, щас попробую...

Чтобы поломать мышку нужно просто зациклить команду

;;;Text Green ->Bylayer
(defun C:TGB ( / ss txt )
  (while t
  (if (setq ss (ssget "_:L:S:E" '((0 . "*TEXT"))))
    (progn
      (setq txt (ssname ss 0))
      (if (= (cdr(assoc 62 (entget txt))) 3)
  (entmod
    (subst (cons 62 256)(assoc 62 (entget txt))(entget txt)))
  (entmod
    (if (assoc 62 (entget txt))
    (subst (cons 62 3)(assoc 62 (entget txt))(entget txt))
    (append (entget txt)(list(cons 62 3)))
      )
     )
  )
      )
    )
    )
  (princ)
  )

Ну же! Мастера-программисты! Неужели никто даже не попробует сделать автоматическую замену иконки на кнопке? Покажите планете, что и вы не хуже наших футболистов и хоккеистов в своем деле!

мне неудобно перед столь уважаемой публикой
выставлять свое безобразие, но может тебе малявка это и сгодится.
пропиши в acad2004.lsp (load "c:/.../mouse_reactor.lsp")
и попробуй, должно роботать без всяких кнопок
;;;;;;;;;;;;;;;;;;;;;;;;
(defun dtr (a)
   (* pi (/ a 180.0))
)
;#################################
(defun mouse_reactor (mm)
(vl-load-com)
(if (= mm nil)
(progn
;;(setq mm (vlr-mouse-reactor nil
  ;;  '((:vlr-BeginDoubleClick . green))
                                        ))
;;))
(setq mm(VLR-Mouse-Reactor
    data
    '(
      (:VLR-beginDoubleClick . green)
      (:VLR-beginRightClick . back)
      )
    )
  )
);end defun
(defun green (mm point / p1 p2 p3 pr_obj)
(setq i 0)
(setq p1 (car point))
(setq p2 (polar p1 (dtr 45) 2)) ;;;; zdes' 2-heigh of text, nado pomenat' na visotu tvoego texta
(setq p3 (polar p1 (dtr 225) 2));;;; zdes' 2-heigh of text, nado pomenat' na visotu tvoego texta
(setq pr_obj (ssget "c" p2 p3))
(if (/= pr_obj nil)
(progn
(setq ssobj (ssname pr_obj i))
(print ssobj)
(setq obj (vlax-ename->vla-object ssobj))
(vla-put-color obj "3")
);progn
);if
);defun
(defun back (mm point / p1 p2 p3 pr_obj)
(setq i 0)
(setq p1 (car point))
(setq p2 (polar p1 (dtr 45) 2)) ;;;; zdes' 2-heigh of text, nado pomenat' na visotu tvoego texta
(setq p3 (polar p1 (dtr 225) 2));;;; zdes' 2-heigh of text, nado pomenat' na visotu tvoego texta
(setq pr_obj (ssget "c" p2 p3))
(if (/= pr_obj nil)
(progn
(setq ssobj (ssname pr_obj i))
(setq obj (vlax-ename->vla-object ssobj))
(vla-put-color obj "256")
);progn
);if
);defun
(mouse_reactor mm)

> VVA
Ну, почти то, что доктор прописал...
При одинарном клике левой кнопкой не должно выскакивать окно редактирования текста, просто должен зеленеть существующий текст. А вот при двойном клике должно появляться окно редактирования текста с последующим майским зеленением нового текста.
А откат должен происходить при одинарном правом клике. Он (правый клик) какой-то ненадежный. Когда-то срабатывает с первого раза, а когда-то приходится раз пять наступить...
Как же мне запустить Mouse_reactor  в работу?

> Малявка
Спорт прошел...Держи ,блондинка, свою кнопку.
Создаешь кнопку в Toolbar1. Вещаешь на неё _.knopka. "R:\\off.bmp" и "R:\\on.bmp" ссылка на твои красные и зеленые картинки. appname- приложение VLX которое должна у тебя исполнятся при нажатой кнопке.
(defun C:knopka()
(vl-load-com)
   (setq cz (vla-item(vla-item (vla-get-toolbars(vla-item(vla-get-menugroups(vlax-get-acad-object)) "ACAD")) "Toolbar1") 0 ))
   (vla-getbitmaps cz 'SmallBitmapName 'BigBitmapName)
  (if (= SmallBitmapName "R:\\on.bmp") ((vla-setbitmaps cz "R:\\off.bmp" "R:\\off.bmp")(vl-unload-vlx appname)) ((vla-setbitmaps cz "R:\\on.bmp" "R:\\on.bmp")(load appname)))
  )

> Makson
Подстроила лисп под себя вот так:
(defun C:knopka()
(vl-load-com)
(setq cz (vla-item(vla-item (vla-get-toolbars(vla-item(vla-get-menugroups(vlax-get-acad-object)) "ACAD")) "Toolbar2") 0 ))
(vla-getbitmaps cz 'SmallBitmapName 'BigBitmapName)
(if (= SmallBitmapName "C:\Progam files\AutoCAD 2004\Support\on.bmp") ((vla-setbitmaps cz "C:\Progam files\AutoCAD 2004\Support\off.bmp" "C:\Progam files\AutoCAD 2004\Support\off.bmp")(vl-unload-vlx TGBD)) ((vla-setbitmaps cz "C:\Progam files\AutoCAD 2004\Support\on.bmp" "C:\Progam files\AutoCAD 2004\Support\on.bmp")(load TGBD)))
)
А он ругается:
Command: _.knopka ; error: bad argument type: stringp nil

> Малявка
Переделал...
tmp.lsp лисп который у тебя должен работать при нажатай кнопке. main_function его функция...Получаеться как только тебе она не нужна ты её обноляешь. А как потребуется загружаешь заново.
(defun C:knopka()
(vl-load-com)
   (setq cz (vla-item(vla-item (vla-get-toolbars(vla-item(vla-get-menugroups(vlax-get-acad-object)) "ACAD")) "Toolbar1") 0 ))
   (vla-getbitmaps cz 'SmallBitmapName 'BigBitmapName)
  (if (= SmallBitmapName "R:\\on.bmp") ((vla-setbitmaps cz "R:\\off.bmp" "R:\\off.bmp")(defun main_function() nil)) ((vla-setbitmaps cz "R:\\on.bmp" "R:\\on.bmp")(load "R:\\tmp.lsp")))
  )