(if (zerop (cdr (assoc 40 (tblsearch 'STYLE' (getvar 'TEXTSTYLE'))))) (= (cdr(assoc 0 (entget ent))) 'LWPOLYLINE') (setq ent (car (entsel '\nChoose a polyline: '))) (if (null (setq n (getint)))(setq n *NPoint*)) (if (not (numberp *NPoint*))(setq *NPoint* 1)) (setq sys_var (mapcar 'getvar '('osmode' 'cmdecho'))) How to make numbers of corner points of polyline? (defun C:Nvx (/ ent n lst_point sys_var htxt)