Automating Common Text

[jaberwok]

... I was just saying (whether the OP wants it or not) that set-up dimstyles is the way to go for this, in my opinion...

I agree.

[gfreddog]

I agree.

I agree with your agree... I copied them into my Template then dragged them onto a Tool Palette so all I have to do is click and dimension when I want and it's done.

BTW we network out Tool Palettes so once I set it up everyone had access to it as well.

[cadtag]

I use a modifyed version of PersonalMtextSymbols.lsp from http://www.jtbworld.com/lisp/PersonalMtextSymbols.htm for Mtext. Besides symbols like × and ÷ I've added all the engineers names with PE numbers. Just right-click in the editor hover over Symbol and pick from the list. This routine updates the Profile in the Windows Registry so it only needs to be run once. I'd recomend creating a new profile to test it with.

Tom, what do your settings in that .lsp look like for the multiplication or division sign? Can you change font for the 'odd' symbols or text strings you're adding?

[Tom Beauford]

Tom, what do your settings in that .lsp look like for the multiplication or division sign? Can you change font for the 'odd' symbols or text strings you're adding?

My modified version below, you can't change font for 'odd' symbols or text strings. They don't work unless the font has the symbol at the specified location.

 ;;; PersonalMtextSymbols.LSP ver 1.0
;;; Add personal mtext symbols in the right click menu in the mtext editor
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2004 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; Tested on AutoCAD 2002 - 2009
;;; (load "PersonalMtextSymbols.LSP") PersonalMtextSymbols
;;; 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>")
;;; Command line: (load "PersonalMtextSymbols.lsp")

(defun PersonalMtextSymbols ()
  (vl-load-com)
  (setq key (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\MTEXT\\Symbols"))
  (vl-registry-write key "Name 1" "%%0215 \U+00D7")
  (vl-registry-write key "Name 2" "%%0247 \U+00F7")
  (vl-registry-write key "Name 3" "%%172  \U+00BC")
  (vl-registry-write key "Name 4" "%%171  \U+00BD")
  (vl-registry-write key "Name 5" "%%0190 \U+00BE")
  (vl-registry-write key "Name 6" "%%0133 \U+2026")
  (vl-registry-write key "Name 7" "Kim sign")
  (vl-registry-write key "Name 8" "Charles sign")
  (vl-registry-write key "Name 9" "Theresa sign")
  (vl-registry-write key "Name 10" "George sign")
  (vl-registry-write key "Name 11" "Felton sign")
  (vl-registry-write key "Name 12" "Kathy sign")
  (vl-registry-write key "Contents 1" "×")
  (vl-registry-write key "Contents 2" "÷")
  (vl-registry-write key "Contents 3" "¼")
  (vl-registry-write key "Contents 4" "½")
  (vl-registry-write key "Contents 5" "¾")
  (vl-registry-write key "Contents 6" "…")
  (vl-registry-write key "Contents 7" "Kimberly Ann Wood P.E. No.  54562")
  (vl-registry-write key "Contents 8" "Charles Wu P.E. No.  47518")
  (vl-registry-write key "Contents 9" "Theresa B. Heiker P.E. No. 43305")
  (vl-registry-write key "Contents 10" "Shinming George Su, P.E. No. 47120")
  (vl-registry-write key "Contents 11" "Felton B. Ard, P.E. No. 51860")
  (vl-registry-write key "Contents 12" "Katherine Burke P.E. No. 42576")
)

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