Здесь вы можете скачать документацию и программы для САПР AutoCAD, PCAD, 3DS, Inventor, Pro/E, Solidworks и других CAD CAM CAE EDA GIS

Добавляет ваш личный символ (например имя или название компании) к вызываемому по правой кнопке мыши меню в редакторе 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)
)