This may get you going, but it's quick and dirty, as I didn't have a lot of time to spend on it.
Code:
(defun c:gl ()
; (initerr) ;<--commented for testing purposes only; function not tested
(setvar "cmdecho" 1) ;<--added to have command prompts in pline, insert and dtext
;commands, otherwise the user doesn't know what's going on unless you give them prompts
(setvar "orthomode" 0);<<--Extra quote removed
(command "-style" "notes" "romans.shx" "4.75" "0.85" "10" "n" "n" "n");<-Don't forget the leading
;0 in reals < 1.0 IE: 0.85 not .85
(setvar "osmode" 512)
; (command "-insert" "grabm" pause "" "" pause);<--commented for testing purposes; I didn't
;take time to create a block
(command "pline" pause pause);<-- you can continue a command later by calling the
;command function again as long as you don't execute a diffrent command in between
(setvar "orthomode" 1)
(command pause "");;<<--moved pause and removed extra "enter" (""); finishes up the pline
;command
(setvar "osmode" 0)
(command "dtext" pause "0");are you manually placing the text insertion point?
;(reset) ;<--commented for testing purposes only; function not tested
(princ)
)
Also, a lot of people have spent a lot of time on routines similar to this. Have you looked in
the Archive to see if there is something you can use, or get ideas from?
Take care,