[求助]：请大家帮忙！

sfjlx

请大家帮忙编个程序！（用lisp）在autocad中， 如何把类似
4-10-5的字符串中的最大数值选出来，并改成其他字符串!
例如4-8-5 选出8最大,并把4-8-5改成2%%13122

sieben

[php](defun c:ct (/ ss1 ent1  code text1 list1 max_num i)
  (setq ss1 (ssget '((0 . "TEXT"))))
  (setq i 0)
  (while (setq ent1 (ssname ss1 i))
    (setq code (entget ent1))
    (setq text1 (cdr (assoc 1 code)))
    (setq list1 nil)
    (while (setq num1 (vl-string-position (ascii "-") text1))
      (setq list1 (cons (atoi (substr text1 1 num1)) list1))
      (setq text1 (substr text1 (+ 2 num1)))
    )
    (setq list1 (cons (atoi text1) list1))
    (setq max_num (car (vl-sort list1 '>)))
    (princ (strcat "\nMax Number :" (itoa max_num)))
    (setq code (subst (cons 1 "2%%13122") (assoc 1 code) code))
    ;;(setq code (subst (cons 1 "2%%%%%%13122") (assoc 1 code) code))
    (entmod code)
    (entupd ent1)
    (setq i (1+ i))
  )
  (princ)
)[/php]

sfjlx

非常感谢！我没想到如此之快，谢谢！
我运行了一下，发现r14下不能用，但是r2004可以，不知可否告知原因！
我的原意是2-8-3改为2%%13122
而如果其他如2-11-6则改为3%%13122依此类推
能否解释一下每行的用途？我刚学lisp, 想提高一些！
再次感谢！