[gipro]

Ни у кого нет идей по поводу использования символов (греческие буквы, обозначение металлопроката и т.п.) не в СПДСовских инструментах (таблицы, СПДС текст), а в Автокадовском тексте/МТексте и таблицах?

[MCAD]

Ты только шрфт переименуй!

[Krieger]

Ну дык бери да используй...

[Shoorup]

gipro, ничего не понял что ты хотел.

[gipro]

Объясню, не поленюсь...
В редакторе СПДС текста и СПДС-таблиц есть кнопочка "вставка символа". Там много всяких полезных обозначений... Но лично мне удобнее пользоваться Автокадовскими таблицами и текстом. Там такой кнопочки нет... Может кто знает как вставлять туда СПДС-овские символы?

[VVA]

Что-то типа такого \U+E725
В этом шрифте часть символов совпадает с юникодовскими позициями с СПДС, есть кое-что еще плюс склерозник.

[gipro]

Шрифт, конечно хороший, но кнопка, которая идет в комплекте у меня не заработала... А держать в голове кучу кодов символов - слишком тяжело. Если бы как внедрить кнопочку в меню mtext или в контекстное меню пункт...
Не поможете?

[VVA]

Кнопка ссылается на msh файл (по моему mipgost.mht). Открывается обычным IE или последней оперой.
Внедрить в меню текст можно. См. пример Алексея. Имеет смысл внедрить наиболее используемые символы.

[gipro]

Хм... код Алексея у меня не заработал. Может потому что у меня локализованная версия?
А вообще вводить через контекст - вполне приемлемый вариант. Кнопка как в СПДС - вариант идеальный, но, думаю, трудно реализуемый.

[Red Nova]

gipro,
Вот лисп которым пользуюсь я, по моему его VVA откопал. Надо один раз загрузить и в ком строке вызвать PM. Дальше в символах мтекст эдитора добавятся нужные символы. Конкретно в этом лиспе мои часто используемые символы, тоже из шрифта СПДС. Можешь поменять на что хочешь.

Код:

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

;;; PersonalMtextSymbols.LSP ver 1.1
;;; Add personal mtext symbols in the right click menu in the mtext editor
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2007 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: [email protected]
;;; Tested on AutoCAD 2002, 2004, 2005, 2008 Not sure about 2006. 2007 does not support this.
;;;
;;; Remember that you can change the contents to whatever you would like
;;; The syntax is:
;;; (vl-registry-write key "Name <1,2,3...n>" "<Description>")
;;; (vl-registry-write key "Contents <1,2,3...n>" "<Value>")

(defun PersonalMtextSymbols ()
  (vl-load-com)
  (setq key (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\MTEXT\\Symbols"))
  (vl-registry-write key "Name 1" "Диаметр CS")
  (vl-registry-write key "Name 2" "Бетта")
  (vl-registry-write key "Name 3" "Гамма")
  (vl-registry-write key "Name 4" "Дельта")
  (vl-registry-write key "Name 5" "Сигма")
  (vl-registry-write key "Name 6" "Сигма L=")
  (vl-registry-write key "Name 7" "Уголок")
  (vl-registry-write key "Name 8" "2 Уголка полкой в низ")
  (vl-registry-write key "Name 9" "2 Уголка полкой в верх")
  (vl-registry-write key "Name 10" "2 Уголка крест на крест")
  (vl-registry-write key "Name 11" "Швеллер")
  (vl-registry-write key "Name 12" "2 Швеллера, стенки внуть")
  (vl-registry-write key "Name 13" "2 Швеллера, стенки врозь")
  (vl-registry-write key "Name 14" "Двутавр")
  (vl-registry-write key "Name 15" "2 Двутавра")
  (vl-registry-write key "Name 16" "Труба квадратная")
  (vl-registry-write key "Name 17" "Труба D")
  (vl-registry-write key "Name 18" "Фланец D")
  (vl-registry-write key "Name 19" "Отверстие D")
  (vl-registry-write key "Name 20" "Арматура")
  (vl-registry-write key "Name 21" "Арматура")
  (vl-registry-write key "Name 22" "D Арматура")
  (vl-registry-write key "Name 23" "D Арматура")
  (vl-registry-write key "Name 24" "D Арматура, L=")
  (vl-registry-write key "Name 25" "D Арматура, L=")
  (vl-registry-write key "Contents 1" "%%c")
  (vl-registry-write key "Contents 2" "\U+03B2")
  (vl-registry-write key "Contents 3" "\U+03B3")
  (vl-registry-write key "Contents 4" "\U+03B4")
  (vl-registry-write key "Contents 5" "\U+03A3")
  (vl-registry-write key "Contents 6" "\U+03A3L=")
  (vl-registry-write key "Contents 7" "\U+E720")
  (vl-registry-write key "Contents 8" "\U+E721")
  (vl-registry-write key "Contents 9" "\U+E722")
  (vl-registry-write key "Contents 10" "\U+E723")
  (vl-registry-write key "Contents 11" "\U+E725")
  (vl-registry-write key "Contents 12" "\U+E724")
  (vl-registry-write key "Contents 13" "\U+E726")
  (vl-registry-write key "Contents 14" "\U+E729")
  (vl-registry-write key "Contents 15" "\U+E72A")
  (vl-registry-write key "Contents 16" "\U+E72E")
  (vl-registry-write key "Contents 17" "Тр. %%c")
  (vl-registry-write key "Contents 18" "Фл. %%c")
  (vl-registry-write key "Contents 19" "Отв. %%c")
  (vl-registry-write key "Contents 20" "Ас1")
  (vl-registry-write key "Contents 21" "А500с")
  (vl-registry-write key "Contents 22" "%%c Ас1")
  (vl-registry-write key "Contents 23" "%%c А500с")
  (vl-registry-write key "Contents 24" "%%c Ас1, L=")
  (vl-registry-write key "Contents 25" "%%c А500с, L=")
)

(defun c:PM ()
  (PersonalMtextSymbols)
  (princ)
)

[gipro]

Red Nova, Спасибо огромное!!! то, что надо!!!

[VVA]

gipro, Странно, что код Алексея не заработал. Это те же ..., только вид сбоку. Начало было положено здесь: Можно ли отредактировать выпадающее меню встроенного MTEXT-р

[gipro]

Все работает теперь...