[编程申请]：字符处理如果0≤x≤2.80,则将x变为K，如果

lengliqun

求LSP程序，条件如下：
CAD图中有若干非红色数字如0.000，1.150，2.880，3.610，4.560，5.550，5.950等。
设这些数字为x，框选这些数字，
如果   0≤x≤2.80,则将x变为K8
如果2.80<x≤3.35,则将x变为M8
如果3.35<x≤3.93,则将x变为K10
如果3.93<x≤5.23,则将x变为M10
如果5.23<x≤5.65,则将x变为M12
如果5.65<x≤7.54,则将x变为M12
如果x>7.54,则x值不变，但颜色变为红色。
运行后以一例题数字变为：K8，K8，M8，K10，M10，K12，M12

上面有些字符显示不出来，请下载附件。谢谢。

xyp1964

楼上说明缺乏逻辑性！
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

(defun c:test()
  (cmdla0)
  (setq ss (ssget '((0 . "TEXT")))
        i -1)
  (while(setq s1(ssname ss(setq i (1+ i))))
    (setq x (atof (dxf 1 (entget s1))))
    (cond
      ((and(>= x 0)(<= x 2.80))(sub_upd s1 1 "K8"))
      ((and(> x 2.8)(<= x 3.50))(sub_upd s1 1 "M8"))
      ((and(> x 3.5)(<= x 3.93))(sub_upd s1 1 "K10"))
      ((and(> x 3.93)(<= x 5.23))(sub_upd s1 1 "M10"))
      ((and(> x 5.23)(<= x 5.65))(sub_upd s1 1 "K12"))
      ((and(> x 5.65)(<= x 7.54))(sub_upd s1 1 "M12"))
      ((> x 7.54)(command"change" s1 "" "p" "c" 1 "")
       )
      )
    )
  (cmdla1)
  )[/php]

lengliqun

可以用，谢谢大侠。