统计矩形的长度，高度，数量，总长，面积并制表

newer · 发表于 2017-6-17 18:23:44

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

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

×

本帖最后由 newer 于 2017-6-17 18:25 编辑

[sell=5]

(defun c:XDTB_TJRec (/ ar ar1 data e i key l l1 l2 len len1 lst num nums p1
p2 p3 pt pts scl ss tb tlen txth val w x y
)
(defun _process (e)
(if (XD::Polyline:IsRectang e)
(progn
(setq pts (xdrx_getpropertyvalue e "vertices")
p1 (car pts)
p2 (cadr pts)
p3 (caddr pts)
l1 (distance p1 p2)
l2 (distance p2 p3)
l (list l1 l2)
l (vl-sort l '(lambda (x y)
(> x y)
)
)
)
(list (rtos (car l) 2 #xd_var_rectang_tol) (rtos (cadr l) 2 #xd_var_rectang_tol))
)
)
)
(defun _keyword (key)
(cond
((= key "D")
(if (setq val (getint (xdrx_prompt "\n保留小数位数<"
#xd_var_rectang_tol ">:" t
)
)
)
(setq #xd_var_rectang_tol val)
)
)
((= key "E")
(if (setq val (getreal (xdrx_prompt "\n表格字高<"
#xd_var_rectang_txtheight ">:" t
)
)
)
(setq #xd_var_rectang_txtheight val)
)
)
)
(_prompt)
)
(defun _prompt ()
(xdrx_prompt "\n当前设置: 字高(" #xd_var_rectang_txtheight
") / 小数位数(" #xd_var_rectang_tol ")"
)
)
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(if (not #xd_var_rectang_tol)
(setq #xd_var_rectang_tol 1)
)
(if (not #xd_var_rectang_txtheight)
(setq #xd_var_rectang_txtheight 3.5)
)
(_prompt)
(if (and
(xdrx_initget "D E")
(xdrx_initssget "\n选取要统计的矩形[字高(E)/小数位(D)]<退出>:" "D E"
"" "_keyword"
)
(setq ss (xdrx_ssget '((0 . "*POLYLINE") (-4 . "&=")
(70 . 1)
)
)
)
)
(progn
(setq data nil
i 0
)
(mapcar
'(lambda (x)
(if (setq lst (_process x))
(setq lst (cons (apply
'strcat
lst
) lst
)
data (cons lst data)
)
)
)
(xdrx_pickset->ents ss)
)
(setq data (xd::list:groupbyindex data 0.1)
data (vl-sort data '(lambda (x y)
(< (car x) (car y))
)
)
i 0
tlen 0.0
nums 0
ar 0.0
data (mapcar
'(lambda (x)
(setq val (list (itoa (setq i (1+ i))) (setq l
(caadr x)
)
(setq w (cadadr x))
(setq num (itoa (length (cdr x))))
(setq len (* (atoi num) (* 2
(+
(atof l)
(atof w)
)
)
)
ar1 (* (atoi num) (*
(atof l)
(atof w)
)
)
nums (+ nums (atoi num))
len1 (rtos len 2
#xd_var_rectang_tol
)
)
(rtos ar1 2 #xd_var_rectang_tol)
)
)
(setq tlen (+ len tlen)
ar (+ ar1 ar)
)
val
)
data
)
data (cons (list "编号" "长度" "高度" "数量" "总长" "面积")
data
)
data (cons (list "矩形统计表" nil nil nil nil nil) data)
data (append
data
(list (list "合计" nil "" (itoa nums) (rtos tlen 2 #xd_var_rectang_tol)
(rtos ar 2 #xd_var_rectang_tol)
)
)
)
)
(if (setq pt (getpoint "\n表格插入点<退出>:"))
(progn
(xd::text:init 1)
(setq scl (* (xd::var:getratio) (XD::Var:GetScaleRatio))
txth (* scl #xd_var_rectang_txtheight)
)
(setq tb (xd::table:makefromlist data pt txth (/ txth 3.0)))
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:XDTB_TJRec (/ ar ar1 data e i key l l1 l2 len len1 lst num nums p1 
                       p2 p3 pt pts scl ss tb tlen txth val w x y 
                    ) 
  (defun _process (e) 
    (if (XD::Polyline:IsRectang e) 
      (progn 
        (setq pts (xdrx_getpropertyvalue e "vertices") 
              p1 (car pts) 
              p2 (cadr pts) 
              p3 (caddr pts) 
              l1 (distance p1 p2) 
              l2 (distance p2 p3) 
              l (list l1 l2) 
              l (vl-sort l '(lambda (x y) 
                              (> x y) 
                            ) 
                ) 
        ) 
        (list (rtos (car l) 2 #xd_var_rectang_tol) (rtos (cadr l) 2 #xd_var_rectang_tol)) 
      ) 
    ) 
  ) 
  (defun _keyword (key) 
    (cond 
      ((= key "D") 
        (if (setq val (getint (xdrx_prompt "\n保留小数位数<" 
                                           #xd_var_rectang_tol ">:" t 
                              ) 
                      ) 
            ) 
          (setq #xd_var_rectang_tol val) 
        ) 
      ) 
      ((= key "E") 
        (if (setq val (getreal (xdrx_prompt "\n表格字高<" 
                                            #xd_var_rectang_txtheight ">:" t 
                               ) 
                      ) 
            ) 
          (setq #xd_var_rectang_txtheight val) 
        ) 
      ) 
    ) 
    (_prompt) 
  ) 
  (defun _prompt () 
    (xdrx_prompt "\n当前设置: 字高(" #xd_var_rectang_txtheight 
                 ") / 小数位数(" #xd_var_rectang_tol ")" 
    ) 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (if (not #xd_var_rectang_tol) 
    (setq #xd_var_rectang_tol 1) 
  ) 
  (if (not #xd_var_rectang_txtheight) 
    (setq #xd_var_rectang_txtheight 3.5) 
  ) 
  (_prompt) 
  (if (and 
        (xdrx_initget "D E") 
        (xdrx_initssget "\n选取要统计的矩形[字高(E)/小数位(D)]<退出>:" "D E" 
                        "" "_keyword" 
        ) 
        (setq ss (xdrx_ssget '((0 . "*POLYLINE") (-4 . "&=") 
                              (70 . 1) 
                             ) 
                 ) 
        ) 
      ) 
    (progn 
      (setq data nil 
            i 0 
      ) 
      (mapcar 
        '(lambda (x) 
           (if (setq lst (_process x)) 
             (setq lst (cons (apply 
                               'strcat 
                               lst 
                             ) lst 
                       ) 
                   data (cons lst data) 
             ) 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
      (setq data (xd::list:groupbyindex data 0.1) 
            data (vl-sort data '(lambda (x y) 
                                  (< (car x) (car y)) 
                                ) 
                 ) 
            i 0 
            tlen 0.0 
            nums 0 
            ar 0.0 
            data (mapcar 
                   '(lambda (x) 
                      (setq val (list (itoa (setq i (1+ i))) (setq l 
                                                                   (caadr x) 
                                                             ) 
                                      (setq w (cadadr x)) 
                                      (setq num (itoa (length (cdr x)))) 
                                      (setq len (* (atoi num) (* 2 
                                                                 (+ 
                                                                    (atof l) 
                                                                    (atof w) 
                                                                 ) 
                                                              ) 
                                                ) 
                                            ar1 (* (atoi num) (* 
                                                                 (atof l) 
                                                                 (atof w) 
                                                              ) 
                                                ) 
                                            nums (+ nums (atoi num)) 
                                            len1 (rtos len 2 
                                                       #xd_var_rectang_tol 
                                                 ) 
                                      ) 
                                      (rtos ar1 2 #xd_var_rectang_tol) 
                                ) 
                      ) 
                      (setq tlen (+ len tlen) 
                            ar (+ ar1 ar) 
                      ) 
                      val 
                    ) 
                   data 
                 ) 
            data (cons (list "编 号" "长 度" "高 度" "数 量" "总 长" "面 积") 
                       data 
                 ) 
            data (cons (list "矩形统计表" nil nil nil nil nil) data) 
            data (append 
                   data 
                   (list (list "合 计" nil "" (itoa nums) (rtos tlen 2 #xd_var_rectang_tol) 
                               (rtos ar 2 #xd_var_rectang_tol) 
                         ) 
                   ) 
                 ) 
      ) 
      (if (setq pt (getpoint "\n表格插入点<退出>:")) 
        (progn 
          (xd::text:init 1) 
          (setq scl (* (xd::var:getratio) (XD::Var:GetScaleRatio)) 
                txth (* scl #xd_var_rectang_txtheight) 
          ) 
          (setq tb (xd::table:makefromlist data pt txth (/ txth 3.0))) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

[/sell]

fangzheng158 · 发表于 2017-6-17 21:03:05

学习学习一下

pezyl · 发表于 2017-6-17 23:48:16

顶版主，汇总使用更广泛了

qqqincccken · 发表于 2017-6-18 00:19:39

谢谢版主的提供，学习了

longer1000 · 发表于 2017-6-18 09:04:22

谢谢版主的提供，学习

lrd1861 · 发表于 2017-6-18 16:16:14

如果给矩形编上号就更好了

pezyl · 发表于 2017-6-18 17:53:59

lrd1861 发表于 2017-6-18 16:16

嗯，是的，支持+1

sh_h · 发表于 2017-6-20 11:23:48

谢谢楼主分享！！！

XU838934774 · 发表于 2017-6-21 09:31:01

jxwfz19740724 · 发表于 2017-6-27 10:55:03

看看再说话。

celcheung · 发表于 2017-7-2 14:14:52

学习学习一下

比目大神 · 发表于 2017-7-28 15:37:32

谢谢版主的提供，学习了

zhouzhiy · 发表于 2017-8-4 08:16:31

谢谢楼主分享！

jwcc310 · 发表于 2017-8-10 15:13:46

有光文字统计的插件

jwcc310 · 发表于 2017-8-10 15:16:16

好东西，就是运行环境局限性了

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

[矩形] 统计矩形的长度，高度，数量，总长，面积并制表

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

评分

相关帖子