【已解决】选择多个（圆、文字、pl等），读取文本里数值逐个自动移位

yfanziyfanzi · 发表于 2017-6-3 20:52:32

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

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

×

本帖最后由 newer 于 2017-6-5 00:02 编辑

有若干个图形，包含圆、矩形、单行文字等，不是很杂乱在一起。要求一起选上，按照记事本里多行单列数字，逐个自动移位。带负号的垂直向下m，没有负号的垂直向上m。捕获3.JPG

Lispboy · 发表于 2017-6-3 21:36:51

哪个实体对哪个文字？

从左到右，从上到下排序？

选的实体和文件里面的数数目上对不上怎么办？

yfanziyfanzi · 发表于 2017-6-3 22:19:15

本帖最后由 yfanziyfanzi 于 2017-6-3 22:26 编辑

Lispboy 发表于 2017-6-3 21:36

大侠还没休息！按照从左到右的顺序，选择集和文本数字个数不对应，提示检查数据，并退出。谢谢关注！
补充：选择集里每个元素（圆，多线等）从屏幕左到右的顺序，和文本里从上到下的数字一一对应，从目前位置，在垂直方向上上下移动！

Lispboy · 发表于 2017-6-3 22:38:59

本帖最后由 Lispboy 于 2017-6-3 23:27 编辑

yfanziyfanzi 发表于 2017-6-3 22:19

试试

1、实体从左到右，从下到上排序
2、支持UCS
3、实体数和文件里面位移最大匹配移动（有几个实体按照文件里面的位移的数匹配移动），
例子：3个实体，两个位移，移动两个实体
2个实体，3个位移，移动两个实体

(defun c:tt ()
(defun _file (lst)
(vl-remove nil
(mapcar '(lambda (x)
(if (xd::string:isnum x)
x
nil
)
)
lst
)
)
)
(xdrx_begin)
(if (not #xd_var_tol)
(setq #xd_var_tol 100.0)
)
(if
(and
(setq fl (car (xdrx_system_selectFiles "选择文件" "" "txt")))
(setq lst (xd::list:fromfile fl))
(setq lst (_file lst))
(> (length lst) 0)
(if (setq
val (getreal
(xdrx_prompt "\n输入行距离精度<" #xd_var_tol ">:" t)
)
)
(setq #xd_var_tol val)
t
)
(xdrx_initssget "\n选取要移动的实体<退出>:")
(setq ss (xdrx_ssget))
(xdrx_document_setprec #xd_var_tol 1)
(setq ents (XD::Pickset:TableSort ss 0 0 '< '<))
(setq ents (apply 'append ents))
)
(progn
(setq i -1)
(setq p1 (getvar "ucsorg"))
(vl-some '(lambda (x)
(if (setq val (nth (setq i (1+ i)) lst))
(progn
(setq p2 (mapcar '+
p1
(xdrx_vector_product
'(0 1 0)
(atof val)
)
)
)
(xdrx_entity_move x (trans p1 1 0) (trans p2 1 0))
nil
)
t
)
)
ents
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun _file (lst) 
    (vl-remove nil 
               (mapcar '(lambda (x) 
                          (if (xd::string:isnum x) 
                            x 
                            nil 
                          ) 
                        ) 
                       lst 
               ) 
    ) 
  ) 
  (xdrx_begin) 
  (if (not #xd_var_tol) 
    (setq #xd_var_tol 100.0) 
  ) 
  (if 
    (and 
      (setq fl (car (xdrx_system_selectFiles "选择文件" "" "txt"))) 
      (setq lst (xd::list:fromfile fl)) 
      (setq lst (_file lst)) 
      (> (length lst) 0) 
      (if (setq 
            val (getreal 
                  (xdrx_prompt "\n输入行距离精度<" #xd_var_tol ">:" t) 
                ) 
          ) 
        (setq #xd_var_tol val) 
        t 
      ) 
      (xdrx_initssget "\n选取要移动的实体<退出>:") 
      (setq ss (xdrx_ssget)) 
      (xdrx_document_setprec #xd_var_tol 1) 
      (setq ents (XD::Pickset:TableSort ss 0 0 '< '<)) 
      (setq ents (apply 'append ents)) 
    ) 
     (progn 
       (setq i -1) 
       (setq p1 (getvar "ucsorg")) 
       (vl-some '(lambda (x) 
                   (if (setq val (nth (setq i (1+ i)) lst)) 
                     (progn 
                       (setq p2 (mapcar '+ 
                                        p1 
                                        (xdrx_vector_product 
                                          '(0 1 0) 
                                          (atof val) 
                                        ) 
                                ) 
                       ) 
                       (xdrx_entity_move x (trans p1 1 0) (trans p2 1 0)) 
                       nil 
                     ) 
                     t 
                   ) 
                 ) 
                ents 
       ) 
     ) 
  ) 
  (xdrx_end) 
  (princ) 
)

yfanziyfanzi · 发表于 2017-6-3 22:52:02

本帖最后由 yfanziyfanzi 于 2017-6-3 23:06 编辑

试了，能运行，就是元素不是按照文本里从上到下的数据移动的。见附件。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Desktop.zip
下载次数:5 文件大小:19.66 KB
下载权限: 不限以上 [免费赚D豆]

Lispboy · 发表于 2017-6-3 23:23:21

yfanziyfanzi 发表于 2017-6-3 22:52

排序是按从左到右，从下到上，基准点是实体包围框的左下点，没加入精度控制，所以你那些实体排序的结果并不是你希望的都是一行的。

修改了代码，加入了行精度控制，给定距离内的都认为是一行

你重新拷贝下代码试试。

yfanziyfanzi · 发表于 2017-6-3 23:45:57

OK了，辛苦了

Lispboy · 发表于 2017-6-3 23:58:08

yfanziyfanzi 发表于 2017-6-3 23:45

不客气，如果可以，麻烦你做个动画吧，贴上来。

yfanziyfanzi · 发表于 2017-6-4 01:36:24

做好了，上传不上去啊

newer · 发表于 2017-6-4 02:23:48

yfanziyfanzi 发表于 2017-6-4 01:36

文件扩展名是什么？
文件多大？
不能上传有什么提示？

yfanziyfanzi · 发表于 2017-6-4 03:34:21

图片可以，GIF老不行捕获1.JPG

newer · 发表于 2017-6-4 22:55:45

yfanziyfanzi 发表于 2017-6-4 03:34

可能是文件大小超过限制了吧，你把他们先分卷1M左右一个，压缩文件传上来吧。

yfanziyfanzi · 发表于 2017-6-4 23:56:54

行了

1028882406@qq.c · 发表于 2017-6-5 17:53:55

路过，学习下

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

[已解决] 【已解决】选择多个（圆、文字、pl等），读取文本里数值逐个自动移位

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