Set precisions

(setq p1 (getpoint "/ Pick on  insertion point"))
(setq x (car p1))
   (setq x1 (/ x 1000))  
 (command "text""j""ML" p1 100 0 x1 )

When I pick a point it insert the x value, but how can reduce the desimal points

Please check the RTOS function - the example below will print the value with 3 decimals:

(command "[color=red]_[/color]text" "[color=red]_[/color]j" "[color=red]_[/color]ML" p1 100 0 [color=red](rtos[/color] x1[color=red] 2 3)[/color] )

Try this ..

(if (setq p1 (getpoint "\n Pick on  insertion point"))
 (progn (setq x1 (/ (car p1) 1000.))
   (command "_.text" "_j" "_ML" p1 100. 0. (rtos x1 2 2)))
)

Tharwat, please take care that on localized versions of AutoCAD the options were translated too, along the names of the commands.

Tharwat, please take care that on localized versions of AutoCAD the options were translated too, along the names of the commands.

Good catch Mircea . thank you .

Thanks for both of you it working.

Good for you .

Always be wary of TEXTSTYLE with defined height when using "_text" command

A quick error prevention:

(if (setq p1 (getpoint "\n Pick on  insertion point"))
 (progn (setq x1 (/ (car p1) 1000.))
        (command "_.text" "_j" "_ML" p1)
       [color="blue"] (If (zerop (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
          (command 100.0 0.0)
          (command 0.))[/color]
        (command (rtos x1 2 2))))

Also consider current dimzin value