[잡담] 핑까 부탁드립니다.

(setq r 0

i t

tmp (ssadd)

)

(while i

(setq gr (grread nil (+ 2 4 8) 2))

(if (member (car gr) '(3))

(progn

(if (setq obj (car (nentselp (cadr gr))))

(progn

 

(setq p_txt (last (MT_T (cdr (assoc 1 (entget obj))))))

(if (vl-string-search "OD" p_txt)

(setq p_od (atof (find_no p_txt)))

(setq p_od (atof (chg_p_size (find_no p_txt) 0)))

)

(setq i nil)

(sssetfirst nil (ssadd obj tmp))

)

(progn

(prompt "n선택할 객체가 없습니다.")

))

))

(if (member (car gr) '(2))

(progn

(princ (chr (cadr gr)))

(setq p_txt (cons (chr (cadr gr)) p_txt))

(if (member (cadr gr) '(8))

(progn

(setq p_txt (cdr (cdr p_txt)))

))

(if (member (cadr gr) '(0 13))

(progn

(setq p_od (apply 'strcat (reverse (cdr p_txt))))

(setq i nil)

))

))

)