I try this. Is any better way to do this?
Code:
(defun c:TEST (/ scl ht d sel e sum verts ptList p_)
(setq scl(/ (getreal "\n select scale (100,200,500,etc) : ") 100))
;(setq scl (getvar "useri1")) <---DONT DELETE IT
; (setq ht (* 0.0025 scl)) <---DONT DELETE IT
; (setq d (* 0.0035 scl)) <---DONT DELETE IT
(command "_layer" "_m" "NO" "_c" "161" "" "")
(setq inc (cond
((getint (strcat "\nEnter number"
(if inc
(strcat " <"
(itoa inc)
">: ")
": ")
)))
(inc))
)
(setq x (getstring "\nSpecify prefix <enter for none>: "))
(if
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(repeat (sslength ss)
(setq e (ssname ss 0)
sum '(0 0)
verts (cdr (assoc 90 (setq ent (entget e)))))
(setq ptList
(mapcar 'cdr
(vl-remove-if-not
'(lambda (x) (= (car x) 10))
ent)))
(foreach x ptList (setq sum (mapcar '+ x sum)))
(setq p_ (mapcar '/ sum (list verts verts)))
(entmakex
(list
(cons 0 "TEXT")
(cons 10 p_)
(cons 11 p_)
;(cons 40 ht)
(cons 40 0.50)
(cons 7 "TopoCAD")
'(72 . 4)
'(73 . 3)
(cons 1 (strcat x (itoa inc)))
)
)
(entmakex
(list (cons 0 "CIRCLE")
(cons 10 p_)
;(cons 40 d) <---DONT DELETE IT
(cons 40 1.40)
)
)
(setq inc (1+ inc))
(ssdel e ss)
)
)
(princ)
;layer 0
(mapcar 'setvar '("clayer" "cecolor" "celtype" "celweight") (list "0" "BYLAYER" "BYLAYER" -1))
(princ)
)
And if I want to add a sufix how to do it without add ???
Code:
(setq x (getstring "\nSpecify prefix <enter for none>: "))
(setq y (getstring "\nSpecify prefix <enter for none>: "))
(cons 1 (strcat x (itoa inc) y))
Thanks