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

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

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


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



十分紧急！

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

lisp俺不会，vb的话很简单

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

用LISP更简单，如下：


(defun tqsz( / ts1)<BR>               (setq ts1 (cdr (assoc 1 (entget (car (entsel "\n请选取文字图元:")))))<BR>                                                                                       ts1 (read (strcat "(" (vl-string-translate "-" " " ts1) ")"))<BR>                                                                                       ts1 (apply 'max (vl-remove-if '(lambda (x) (= (numberp x) nil)) ts1))<BR>               )<BR>       <BR>)





加载后，在命令行中键入


(tqsz)，选取图中“19-a-20-9-G10-10”后即可返回最大数“20”。

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

<P><A name=41275><FONT color=#000066><B>yshf</B></FONT></A>侠，好厉害耶！！！！！！！！！！！！！</P>
<P>&nbsp;</P>

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

那里有版本的转换软件啊
页: [1]
查看完整版本: 跪求能分解19-8-7的源程序