Exploded Dimension

[BeKirra]

I need some helps on this simple code.
I can't figure out why it dosen't create exploded dimensions.
Thanks for your help.

(defun c:TEST (/ CurrentAssoc Pt01)
(setq CurrentAssoc (getvar "dimassoc"))
(setvar "dimassoc" 0)
(setq Pt01 (getpoint "\nSpecify 1st Point <Exit> : "))
(command "._dimlinear" Pt01 pause)
(setvar "dimassoc" CurrentAssoc)
(princ)
)

[pbejse]

(defun c:TEST  (/ CurrentAssoc Pt01)
      (setq CurrentAssoc (getvar "dimassoc"))
      (setvar "dimassoc" 0)
      (setq Pt01 (getpoint "\nSpecify 1st Point <Exit> : "))
      (command "._dimlinear" Pt01 pause pause "")
      (setvar "dimassoc" CurrentAssoc)
      (princ)
      )

[Tharwat]

Needs more inputs ...

(command "._dimlinear" Pt01 pause pause "")

[Tharwat]

Oops pBe beat me to it

[BeKirra]

Thanks to pbejse and Tharwat.
It works.
Just get lost after playing with the iiiiiiiiInventor 2 years.

[BeKirra]

Another question:
Why this doesn't work for polyline arc segment but arc?

(defun c:Test  (/ CurrentAssoc Ent01)
(setq CurrentAssoc (getvar "dimassoc"))
(setvar "dimassoc" 0)
(setq Ent01 (entsel "\nSelect an arc or pline arc segment: "))
(command "._dimarc" Ent01 pause "" pause "")
(setvar "dimassoc" CurrentAssoc)
(princ)
)

Thanks for your helps.