Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Добавляет ваш личный символ (например имя или название компании) к вызываемому по правой кнопке мыши меню в редакторе mtext.

Назад к списку функций
;;; Помните, что чтобы добиться желаемого эффекта, вы должны изменить содержимое функции
;;; Синтакс:
;;; (vl-registry-write key "Name <1,2,3...n>" "")
;;; (vl-registry-write key "Contents <1,2,3...n>" "")

(defun PersonalMtextSymbols ()
  (vl-load-com)
  (setq key (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\MTEXT\\Symbols"))
  (vl-registry-write key "Name 1" "Имя")
  (vl-registry-write key "Name 2" "Компания")
  (vl-registry-write key "Contents 1" "Собственно имя")
  (vl-registry-write key "Contents 2" "Собственно компания")
)

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



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko