author=Matt W link=topic=67.msg299#msg299 date=1192560646 wrote:
Pretty cool.... Don't suppose you'd like to share?
OK here's my code.
Note, these UNICODE addresses are hard coded to my font "Archs.shx" so you'd have to modify it to work with your font.
Also, it's currently not setup to handle multiple fonts.
You'll also need DosLib to run the code.
Here's an example on how to set it up for creating a new Mtext object:
(defun c:mt (/)
(setq inspt (getpoint "\nInsertion Point: "))
(initdia)
(load "MTClipboadSymbols")
(dcl_Project_Load "clip.odcl")
(dcl_Form_Show clip_Form1)
(dcl_SetCmdBarFocus)
(command ".mtext" inspt pause)
(dcl_Form_Close clip_Form1)
)
You'd have to do the same for Dtext & Mleaders...
For Dbl. Clk. editing of objects, you'll have to edit your CUI per the screen shot below...
[attachment deleted by admin]