设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 171|回复: 0

[原创] 取出钢筋符号中数量最多的钢筋符号,数量相同时,取强度值低者

[复制链接]

已领礼包: 182个

财富等级: 日进斗金

发表于 2020-5-29 09:39:41 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

[Actionscript3] 纯文本查看 复制代码
(defun yqz::get:maxfh(lst / lst-rp)
	(defun get::e(lst-rp lst / e len len1 lst-a)
		(while (setq e (car lst-rp))
			(setq len (length lst)
				lst (vl-remove e lst)
				lst-rp (cdr lst-rp)
			);;;setq
			(if lst
				(setq len1 (length lst))
				(setq len1 0)
			);;;if
			(setq lst-a (cons (list (- len len1) e) lst-a))
		);;;while
		(cadar
			(vl-sort lst-a
				'(lambda(a b)
					(if (= (car a) (car b))
						(< (cadr (assoc (cadr a) *lst-fh*))
							(cadr (assoc (cadr b) *lst-fh*))
						);;;
						(> (car a) (car b))
					);;;if
				);;;lambda	
			);;;vl
		);;;cadar
	);;;defun
	(setq *lst-fh* '(("%%132%%140R%%141" 360.)("%%132" 360.)("%%133" 435.)("%%131" 300.)("%%130%%140RH%%141" 430.)));;构造钢筋符号、强度值表
	(setq lst-rp (xd::list:removedup lst))
	(if (= (length lst-rp) 1)
		(car lst-rp)
		(get::e lst-rp lst)
	);;;if
);;;defun


实例:
1、(setq lst '("%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132"
"%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132"
"%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%132" "%%133" "%%133" "%%130%%140RH%%141"))
返回值:"%%132"
2、(setq lst '("%%133" "%%133" "%%132" "%%132" "%%130%%140RH%%141" "%%130%%140RH%%141"))
返回值:"%%132"
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-10-21 12:09 , Processed in 0.099157 second(s), 21 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表