跪求能分解19-8-7的源程序

tc405003 · 发表于 2005-6-23 13:16

跪求能分解19-8-7的源程序

;我是做结构的，现在LISP还不是很厉害，想求高手给编一个LISP：思路是：图中点取文字：如19-20-9或G10-10，能分解文字而且提取最大值，然后就可进行运算和编辑了

十分紧急！

mikewolf2k · 发表于 2005-6-23 19:45

lisp俺不会，vb的话很简单

yshf · 发表于 2005-6-24 17:36

用LISP更简单，如下： (defun 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))
)

) 加载后，在命令行中键入 (tqsz)，选取图中“19-a-20-9-G10-10”后即可返回最大数“20”。

torcky · 发表于 2005-7-19 17:28

yshf侠，好厉害耶！！！！！！！！！！！！！

duskwang10 · 发表于 2005-8-27 19:08

那里有版本的转换软件啊

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