make ripe and cool man:
(defuntes1(/&kw&kw1%k1)(setq&kw(entsel"请选择要打断的直线"))(if(/=&kwnil)(Progn(setq&kw1(entget(car&kw)))(setq%k1(CDR(assoc0&kw1)))(if(/=%k1"line")(Progn(alert"你选择的不是直线,请重新选择");;如不需要提示就删除这句话下同(setq&kwnil)))))&kw)(defuntes2(&kw/ll2#os#clayer@p1&kw1&kw#k1@p2@p3....