[讨论]：怎样输出文字最大值

hdlyt11 · 发表于 2009-3-9 18:13:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tqsz( / ts1)
(setq ts1 (cdr (assoc 1 (entget (car (entsel "\n请选取文字图元:")))))
ts1 (read (strcat "(" (vl-string-translate "-" " " ts1) ")"))
ts1 (apply 'max (vl-remove-if '(lambda (x) (= (numberp x) nil)) ts1))
)
)
怎样把这段提取最大值的程序，实现将最大值在屏幕上输出。例如：选择0-5-9，运行命令
0-5-9变成9？

zml84 · 发表于 2009-3-10 16:57:02

(defun C:tt (/ )
(and (setq SS (entsel "\n请选取文字图元:"))
   (setq STR (cdr (assoc 1 (entget (car SS)))))
   (setq LST (read (strcat "("
   (vl-string-translate "-" " " STR)
   ")"
   )
   )
   )
   (princ (apply 'max LST))
)
(princ)
)

账号		自动登录	找回密码
密码			立即注册

[讨论]：怎样输出文字最大值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子