Linetype program not setting linetype to current

[murmanator]

Hi, I made this program that sets layer, color and linetype in order to draw a line. The linetype part is supposed to search for the type, load it if its not in the drawing, and set it to current. Everything seems to be working except for setting the linetype to current. It does load it just dosent set it. If I run the program with the linetype loaded it works fine. What am I missing? I have layer programs that are much like this and work like they should.

(DEFUN C:ITREE ()
	(GV)
	(command "-LAYER" "set" "RUNS" "" "" "")
	(command "-color" "YELLOW")
		(SETVAR 'CMDECHO 0)
		(if (= (assoc 0 (tblsearch "Ltype" "I_TREES")) nil)
			(vl-cmdf "-linetype" "l" "I_TREES" "" "" )
			(vl-cmdf "-linetype" "s" "I_TREES" "")
		)
	(command "_.pline" pause)
		(while (> (getvar "CMDACTIVE") 0) (command pause))
	(command "-linetype" "set" "Bylayer" "")
	(SV)
    (princ)
)

[Kent1Cooper]

---

@murmanator wrote:

... I am running an older version of CAD in 2013. ....

---

That would explain it.  I think [don't quote me] (command-s) didn't come in until 2014 or 2015.  You would need to use a version with the check on the CMDACTIVE System Variable.