[求助]：高手帮帮忙!!!!

shq197528

我朋友在网上下载了的个弧或圆可以变为多段线!不过设置为10000条线太多了!有时又想多,又时又想少.可不可以帮我改改.改成输入式的.并且他下载的LSP是单选的,顺便也改为双选!
(defun *error*(msg)(print st_pt)(print st_p)(print mid_pt)(print ed_pt)(print ed_p))(defun c:zz(/ pts min_distacne vlo st_par ed_par ent n)(setq        vlo        (vlax-ename->vla-object(setq ent(car(entsel"\n选择圆弧、椭圆或SPLINE："))))        st_par        (vlax-curve-getstartparam vlo)        ed_par        (vlax-curve-getendparam vlo)        pts        (list(vlax-curve-getstartpoint vlo))        min_distacne(/(vlax-curve-getdistatparam vlo ed_par)10000.0)        n         0)(t1 vlo st_par ed_par)(command"pline")(foreach n pts(command"non"n))(command)(princ(strcat"\n创建一条顶点数为"(itoa(length pts))"的复义线。"))(princ))(defun t1(vl_obj start_par end_par / dis_m_m ed_p ed_pt mid_p mid_pt mid_pt_vlo st_p st_pt)(setq        st_p         start_par         ed_p         end_par         st_pt        (vlax-curve-getpointatparam vl_obj st_p)        ed_pt        (if(vlax-curve-getpointatparam vl_obj ed_p)                (vlax-curve-getpointatparam vl_obj ed_p)                (vlax-curve-getendpoint vl_obj)                )        mid_p        (/(+ st_p ed_p)2.0)        mid_pt        (mapcar '(lambda(x y)(/(+ x y)2.0))st_pt ed_pt)        mid_pt_vlo(vlax-curve-getpointatparam vl_obj mid_p)
        dis_m_m        (distance mid_pt_vlo mid_pt))(if(or(> dis_m_m min_distacne)(t2 vl_obj start_par end_par st_pt ed_pt))(progn(t1 vl_obj st_p mid_p)(t1 vl_obj mid_p ed_p))(setq pts(append pts(list mid_pt_vlo)(list ed_pt)))))(defun t2(vl st_par ed_par s_pt e_pt / run delta_p delta_pt)(setq        run         t         delta_p        (/(- ed_par st_par)5.0)        delta_pt(mapcar '(lambda(x y)(/(- x y)5.0))e_pt s_pt))(while(and run(<(setq st_par(+ st_par delta_p))ed_par)) (if(>(distance(vlax-curve-getpointatparam vl st_par)                (setq s_pt(mapcar '(lambda(x y)(+ x y))s_pt delta_pt))        )         min_distacne         )        (setq run nil) ))(not run))