wimal Posted September 27, 2019 Posted September 27, 2019 (setq pt1 (getpoint"\n First corner ")); select all (setq pt2 (getcorner pt1"\n 2nd corner")) (setq ss (ssget"C"pt1 pt2 '((0 . "circle")) )); all circles (repeat (setq i (sslength ss));repeat1 (setq i (1- i)) (setq e (ssname ss i)) (setq center (cdr (assoc 10 (entget e)))); centre of circle (setq x (car center));in mm (setq y (cadr center)) (command-s "text" (list 100 100) 100 0 x) The inserted X value is 2514.1251598456874 like that. I want to insert as 2514.125 How can i reduce the decimal points. LUPREC settings does not work with this. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.