[Red Nova]

Есть некоторые символы или слова, которые очень часто используются в предложениях инженерного характера. В AutoCAD есть свои часто используемые символы, но там многого не хватает, можно конечно выбрать symbol=> other потом найти нужный символ, но это довоьно долго. А порой не символ а целое обозначение нужно вписать, которое довольно часто используется.
Можно ли создать что-то на подобии пользовательской таблицы часто используемых символов и слов, чтобы вводить эти символы в мтекст было также легко как и символы в таблице symbol. Заранее благодарю за помощь.

[Bull]

Хотел сказать можно. Думал, через автозамену в Punto switcher. Только нельзя Alt забить, оказывается. Может гуру что подскажут?

[Red Nova]

А где этот Punto switcher находится?

[Солидворкер]

Сообщение от Red Nova А где этот Punto switcher находится?

http://www.punto.ru/

[VVA]

Когда-то был такой совет, не знаю, актуален ли сейчас
Можно ли отредактировать выпадающее меню встроенного MTEXT-р

[Red Nova]

Установил Punto switcher, попытался внести в автозамену фразы содержащие символы типа диаметр, уголок, швеллер (такие есть в шрифтах СПДС), так вот эти символы в результате не распознаются, появляются знаки вопросов, не знаете это можно исправить?

[Солидворкер]

А шрифты СПДС тоже SHX?

[Red Nova]

И такие есть и другие, для всех результат похожий. Вот ссылка на шрифты http://dwg.ru/f/attachment.php?attac...204058707Смоти в частнотси CS standart и CS gost2304

[Red Nova]

VVA, Спасибо. Пока не углублялся, но чувствую то что надо (интересно как примет символы шрифтов СПДС). Попозже поизучаю.
Вот как лисп выглядит: В него надо вписать типовые выражения.

Код:

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

;;; 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: info@jtbworld.com
;;; 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" "Name")
  (vl-registry-write key "Name 2" "Company")
  (vl-registry-write key "Contents 1" "Jimmy Bergmark")
  (vl-registry-write key "Contents 2" "JTB World")
)

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

[Red Nova]

Установил программку от VVА, вписал нужные символы, все оно, вот тока ради интереса решил проверить сколько максимум строк можно втиснуть (руки то чешутся), проверил, больше 25 не влезает, вот только проблемы возникли когда хотел лишние строки удалить (мне надо было только 12 символов оставить). Дело в том что загружая этот лисп обновляются только строчки для которых есть значения в Лиспе, а если новых значений для конкретных строк нет, то для этих строк остаются заданные прежде символы. Вот теперь у меня первые 12 символов нужные, а дальше белиберда. Помогите пожалуйста произвести чистку.

[Makswell]

Здесь прописываются ветки в реестре Виндовс. Поэтому, чтобы удалить ненужное, надо просто почистить реестр.

[VVA]

Скопируй этот код в командную строку Автокада и увидишь полный путь к нужной ветке реестра

Код:

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

 
(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\MTEXT\\Symbols")

[Red Nova]

Спасибо