批量操作文本逻辑判断是否能实现？？？

124803430 · 发表于 2015-3-21 21:15:32

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

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

×

假设有这样2排文本数字，选择上面的一排数字，然后逻辑判断，然后得出结论赋值给下面一排文本，而且是一一对应的关系，如下图单个操作比较简单
如果有很多，是否能实现批量性判断

csharp · 发表于 2015-3-22 08:51:15

按列 (X) 分组，组内按Y分上下，两两一组

124803430 · 发表于 2015-3-22 11:39:36

csharp 发表于 2015-3-22 08:51
按列 (X) 分组，组内按Y分上下，两两一组

能否具体一点？？？
是直接做成表然后实现对应关系？？？？

iLisp · 发表于 2015-3-22 12:24:08

（（x1 y1 e1）（x2 y2 e2）……）然后用xd::list:gtoupbyindex分组

LIYONGZHI · 发表于 2015-3-22 12:52:42

提示: 作者被禁止或删除内容自动屏蔽

csharp · 发表于 2015-3-22 14:28:56

LIYONGZHI 发表于 2015-3-22 12:52
“用xd::list:gtoupbyindex分组”，这个是什么来的？麻烦大神讲解一下

开源函数库有源码

(defun c:tt (/ ss d lst)
(princ "\n选择两排数字...")
(if (and (setq ss (ssget '((0 . "text"))))
(setq d (getdist "\n列误差: "))
)
(progn
(setq lst (mapcar '(lambda (x / p el)
(setq el (entget x)
p (cdr (assoc 10 el));_仅适用 10 对齐方式
)
(list (car p) (cadr p) x)
)
(ss->ents ss)
)
lst (xd::list:groupbyindex lst d)
lst (vl-remove-if '(lambda (x) (/= (length x) 2)) (mapcar 'cdr lst))
lst (mapcar '(lambda (a)
(vl-sort a
'(lambda (x1 x2)
(> (cadr x1) (cadr x2))
)
)
)
lst
)
lst (mapcar '(lambda (x) (mapcar 'last x)) lst) ;_两两对应文字
)
)
)
(princ)
)
(defun ss->ents (ss / sl el e)
(setq sl (sslength ss))
(while (setq e (ssname ss (setq sl (1- sl))))
(setq el (cons e el))
)
el
)

(defun c:tt (/ ss d lst) 
  (princ "\n选择两排数字...") 
  (if (and (setq ss (ssget '((0 . "text")))) 
           (setq d (getdist "\n列误差: ")) 
      ) 
    (progn 
      (setq lst        (mapcar        '(lambda (x / p el) 
                           (setq el (entget x) 
                                 p  (cdr (assoc 10 el));_仅适用 10 对齐方式 
                           ) 
                           (list (car p) (cadr p) x) 
                         ) 
                        (ss->ents ss) 
                ) 
            lst        (xd::list:groupbyindex lst d) 
            lst        (vl-remove-if '(lambda (x) (/= (length x) 2)) (mapcar 'cdr lst)) 
            lst        (mapcar        '(lambda (a) 
                           (vl-sort a 
                                    '(lambda (x1 x2) 
                                       (> (cadr x1) (cadr x2)) 
                                     ) 
                           ) 
                         ) 
                        lst 
                ) 
            lst        (mapcar '(lambda (x) (mapcar 'last x)) lst) ;_两两对应文字 
      ) 
    ) 
  ) 
  (princ) 
) 
(defun ss->ents        (ss / sl el e) 
  (setq sl (sslength ss)) 
  (while (setq e (ssname ss (setq sl (1- sl)))) 
    (setq el (cons e el)) 
  ) 
  el 
)

124803430 · 发表于 2015-3-23 15:06:28

csharp 发表于 2015-3-22 14:28
开源函数库有源码

这个好像只能竖向的选择
如果我先是横向选择一排数字
然后再横向选择下面要赋值的结果
你这个方法貌似就实现不了

124803430 · 发表于 2015-3-23 15:12:08

批量选择上面的数字
然后选择下面的，最后一一对应赋值
要按上面坛友的方法，貌似还是得一组一组的去框选。
这样还是不能批量操作啊

iLisp · 发表于 2015-3-23 18:08:07

124803430 发表于 2015-3-23 15:12
批量选择上面的数字
然后选择下面的，最后一一对应赋值
要按上面坛友的方法，貌似还是得一组一组的去框选 ...

一次选两行

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

LIYONGZHI LIYONGZHI 当前离线 UID 747117 积分 10 精华贡献威望活跃度 D豆在线时间小时注册时间 2015-2-5 最后登录 1970-1-1 窥视卡雷达卡	发表于 2015-3-22 12:52:42 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助] 批量操作文本逻辑判断是否能实现？？？

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

点评

点评

点评