谁有兴趣帮我做一道题？

/db_自贡黄明儒_ · 发表于 2020-7-22 11:27:22

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

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

×

高考结束了，谁有兴趣帮我做一道题？在此感谢先

aimisiyou · 发表于 2020-7-22 13:21:00

本帖最后由 aimisiyou 于 2020-7-22 13:31 编辑

好像不是横平竖直。是求行数的最大值，列数的最大值。关键是如何确定连线方式。

/db_自贡黄明儒_ · 发表于 2020-7-22 13:52:00

aimisiyou 发表于 2020-7-22 13:21
好像不是横平竖直。是求行数的最大值，列数的最大值。关键是如何确定连线方式。

意思就是横竖有误差。

newer · 发表于 2020-7-22 16:37:20

/db_自贡黄明儒_ 发表于 2020-7-22 13:52
意思就是横竖有误差。

给你个思路，理解后，纯LISP可以写出来，xd::list:groupbyindex 开源函数库有，纯LISP
计算表格线.gif

(defun c:tt ()
(if (and (setq
e1 (car
(xdrx-entsel "\n拾取最下X方向线<退出>:" '((0 . "*line")))
)
)
(setq
e2 (car
(xdrx-entsel "\n拾取最左Y方向线<退出>:" '((0 . "*line")))
)
)
(setq ss (xdrx-ssget "\n选择圆<退出>:" '((0 . "circle"))))
)
(progn (setq pnts (xdrx-getpropertyvalue ss "position")
lnx (xdrx-getpropertyvalue e1 "get")
lny (xdrx-getpropertyvalue e2 "get")
ydir (xdrx-vector-normalize (mapcar '- (cadr lny) (car lny)))
xdir (xdrx-vector-normalize (mapcar '- (cadr lnx) (car lnx)))
r (xdrx-getpropertyvalue (ssname ss 0) "radius")
)
(setq lst
(xd::list:groupbyindex
(mapcar '(lambda (x)
(setq
dis (distance (xdrx-point-project x lnx ydir) x)
)
(list dis x)
)
pnts
)
r
)
)
;;得到行
(setq
lst1 (mapcar
'(lambda (x)
(apply
'append
(mapcar
'cdr
(xd::list:groupbyindex
(mapcar '(lambda (y)
(setq
dis (distance
(xdrx-point-project y lny xdir)
y
)
)
(list dis y)
)
x
)
r
)
)
)
)
(mapcar 'cdr lst)
)
) ;得到列
(xdrx-prompt "\n表格："
(1- (length lst1))
"*"
(1- (length (car lst1)))
)
(xdrx-setvar "pdmode" 99)
(setq i 0)
(mapcar '(lambda (x)
(xdrx-setpropertyvalue (xdrx-point-make x)
"color"
(setq i (1+ i))
)
)
lst1
)
)
)
(princ)
)

(defun c:tt () 
  (if (and (setq 
             e1        (car 
                  (xdrx-entsel "\n拾取最下X方向线<退出>:" '((0 . "*line"))) 
                ) 
           ) 
           (setq 
             e2        (car 
                  (xdrx-entsel "\n拾取最左Y方向线<退出>:" '((0 . "*line"))) 
                ) 
           ) 
           (setq ss (xdrx-ssget "\n选择圆<退出>:" '((0 . "circle")))) 
      ) 
    (progn (setq pnts (xdrx-getpropertyvalue ss "position") 
                 lnx  (xdrx-getpropertyvalue e1 "get") 
                 lny  (xdrx-getpropertyvalue e2 "get") 
                 ydir (xdrx-vector-normalize (mapcar '- (cadr lny) (car lny))) 
                 xdir (xdrx-vector-normalize (mapcar '- (cadr lnx) (car lnx))) 
                 r    (xdrx-getpropertyvalue (ssname ss 0) "radius") 
           ) 
           (setq lst 
                  (xd::list:groupbyindex 
                    (mapcar '(lambda (x) 
                               (setq 
                                 dis (distance (xdrx-point-project x lnx ydir) x) 
                               ) 
                               (list dis x) 
                             ) 
                            pnts 
                    ) 
                    r 
                  ) 
           ) 
           ;;得到行 
           (setq 
             lst1 (mapcar 
                    '(lambda (x) 
                       (apply 
                         'append 
                         (mapcar 
                           'cdr 
                           (xd::list:groupbyindex 
                             (mapcar '(lambda (y) 
                                        (setq 
                                          dis (distance 
                                                (xdrx-point-project y lny xdir) 
                                                y 
                                              ) 
                                        ) 
                                        (list dis y) 
                                      ) 
                                     x 
                             ) 
                             r 
                           ) 
                         ) 
                       ) 
                     ) 
                    (mapcar 'cdr lst) 
                  ) 
           )                                ;得到列 
           (xdrx-prompt        "\n表格：" 
                        (1- (length lst1)) 
                        "*" 
                        (1- (length (car lst1))) 
           ) 
           (xdrx-setvar "pdmode" 99) 
           (setq i 0) 
           (mapcar '(lambda (x) 
                      (xdrx-setpropertyvalue (xdrx-point-make x) 
                                             "color" 
                                             (setq i (1+ i)) 
                      ) 
                    ) 
                   lst1 
           ) 
    ) 
  ) 
  (princ) 
)

845245015 · 发表于 2020-7-26 14:08:30

为什么不采用面域重构一个表呢，就是通过面域相对位置填到表的相对应位置

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

[研讨] 谁有兴趣帮我做一道题？

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

点评

评分