Iso Text (Lisp Code)

[Colby]

The Following snipit of code will allow you to place Iso text on a drawing

feel free to copy and change as needed

(defun ISOTEXT1 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "330" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "330"))
;
(defun ISOTEXT2 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "30" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "30"))
;
(defun ISOTEXT3 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "30" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "330"))
;
(defun ISOTEXT4 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "330" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "30"))
;
(defun ISOTEXT5 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "330" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "90"))
;
(defun ISOTEXT6 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "30" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "90"))
;
(defun ISOTEXT7 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "330" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "270"))
;
(defun ISOTEXT8 ()
(setvar "filedia" 0)
(command "-style" "Simplexi" "simplex" "0.125" "0.75" "30" "" "" "")
(princ "Pick The Point where you want the text ")
(setq aa (getpoint))
(setvar "filedia" 1)
(command "text" aa "270"))
;


:D

[showmak]

Where do we put this code "in which file"?

[703215]

showmak,

you can copy this file in any of the search paths.:D

[703215]

Colby,

Thanks for the lisp, however, what is the command? I tried isotext1, isotext2, etc and it didn't work!

[Colby]

these commands were meant to be executed from a Toolbar. If you want to use from a command line do the following

where you find

(defun

replace with

(defun c:


this should fix your problem


Colby