Brand new here but have been programming lisp for many years. With help from David Carlson I have finished a quick lisp routine to make leroy font styles gruppo and can be easily modified to your tweaking. In short if I have started a dwg and set the dimscale, then I can run the Lisp program below and it will create, to scale, the leroy textstyles presto. I also got 2 files from Derek Roche (SCAD.LSP & surv1.lsp) that helped in this process. Maybe he will post them in the download section.
Also, this is alot bigger I can't get appload to load my lisp routine on start of a session. I end up having to load the thing everytime. Is there a cure, and this is under Carlson 2009 suite.?????
The answer to the appload problem is:
If you use Carlson Civil Suite 2009 w/Intellicad 6.4 you might have found that it doesn't let you autoload lisp routines you might have. I have discovered a way to make it happen. The help manual says to use the Icad.lsp file, but that didn't exit in my load.
I thought that the Quickrun.lsp would work as last posted but I was wrong.
So, here is the way to make it work: find
C:\Program Files\Carlson2009_ICAD\Support\Icad.lsp
create the Icad.lsp file (text file with the extension .lsp) to this file it can contain this kind of lisp line code:
- Code: Select all
;start user lisp file
;load the lisp routine td.lsp
(load "c:\\program files\\Carlson2009_ICAD\\lsp\\td.lsp")
); end of user lisp file
Hope this helps
If you want to add this td.lsp to autoload in Intellicad then use the method shown above and it will be up and running.
This can also be used in reg autocad thru appload (Startup Suite).
Mike
Place the TD.lsp file in this folder location:
C:\Program Files\Carlson2009_ICAD\LSP
Here is the lisp routine code:
- Code: Select all
(DEFUN C:Td ()
graphscr
(setvar "cmdecho" 0)
(setvar "userr5" 1)
(setvar "USERR4" (* 1 (getvar "DIMSCALE")))
(setq stname "L80")
(setq scl_fact (getvar "dimscale"))
(command "-style" "L80" "ic-simplex" (* 0.080 scl_fact) "1" "0" "n" "n" "n" )(princ)
(setvar "textstyle" stname)
(setvar "userr5" 1)
(setvar "USERR4" (* 1 (getvar "DIMSCALE")))
(setvar "luprec" 2)
(setq scl_fact (getvar "dimscale"))
(command "textstyle" "L80")
(setq stname (getvar "textstyle"))(princ)
(setvar "textsize" (* 0.080 scl_fact))
(setq stname (getvar "textstyle"))(princ)
(command "-style" "Standard" "ic-simplex" (* 1.000 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "L10" "ic-simplex" (* 0.010 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L20" "ic-simplex" (* 0.020 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L30" "ic-simplex" (* 0.030 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L40" "ic-simplex" (* 0.040 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L50" "ic-simplex" (* 0.050 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L60" "ic-simplex" (* 0.060 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L100" "ic-simplex" (* 0.100 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L120" "ic-simplex" (* 0.120 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L140" "ic-simplex" (* 0.140 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L200" "ic-simplex" (* 0.200 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "L400" "ic-simplex" (* 0.040 scl_fact) "1" "0" "n" "n" "n" )(princ)
(command "-style" "Line" "ic-simplex" (* 1.000 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "PL100" "ic-simplex" (* 0.100 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "PL120" "ic-simplex" (* 0.120 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "PL140" "ic-simplex" (* 0.140 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "PL200" "ic-simplex" (* 0.200 1.000) "1" "0" "n" "n" "n")(princ)
(command "-style" "PL80" "ic-simplex" (* 0.080 1.000) "1" "0" "n" "n" "n")(princ)
(setvar "textstyle" stname)
graphscr
(setvar "cmdecho" 1)
(princ)
)
If you want to use this with acad then replace the "ic-simplex" with "simplex" or whatever.