求助宗地号编号重号或者漏号问题

yn1985321 · 发表于 2014-5-21 22:25:31

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

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

×

本人手段编号范围00001-99999之间，在编号过程由于是手动，有可能重号，想通过程序来检查是否有重复？

st788796 · 发表于 2014-5-21 23:02:00

(XD::List:GroupByIndex '(("00001" e1) ("00002" e2) ("00001" e3) .....))
后检查每个子表数量判断是否有重号
用总 Length 及 Max 判断是否漏号

yn1985321 · 发表于 2014-5-21 23:17:05

能帮我写个程序吗，我刚学不是很懂

st788796 · 发表于 2014-5-22 08:14:45

(defun c:tt (/ ss lst nl nnl num)
(if (setq ss (ssget '((0 . "Text"))));_过滤编号还应加其它条件
(progn
(setq
lst (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "textstring")
x
)
)
(xdrx_pickset->ents ss)
)
lst (vl-sort lst '(lambda (x1 x2) (< (car x1) (car x2))))
nl (list (car lst))
lst (cdr lst)
)
(while lst
(if (= (caar lst) (caar nl))
(setq nnl (cons (car lst) nnl))
(setq nl (cons (car lst) nl))
)
(setq lst (cdr lst))
)
(if nnl
(progn
(setq s1 (ssadd))
(mapcar '(lambda (x) (ssadd (cadr x) s1)) nnl)
(sssetfirst nil s1)
) ;_重复
)
;;
(if (zerop (setq num
(abs
(- (abs
(- (distof (caar nl)) (distof (car (last nl))))
)
(length nl)
)
)
)
)
(princ "\nOk!")
(princ (strcat "\n漏掉 " (itoa num) " 个编号!"))
)
)
)
(princ)
)

(defun c:tt (/ ss lst nl nnl num) 
  (if (setq ss (ssget '((0 . "Text"))));_过滤编号还应加其它条件 
    (progn 
      (setq 
        lst (mapcar '(lambda (x) 
                       (list (xdrx_getpropertyvalue x "textstring") 
                             x 
                       ) 
                     ) 
                    (xdrx_pickset->ents ss) 
            ) 
        lst (vl-sort lst '(lambda (x1 x2) (< (car x1) (car x2)))) 
        nl  (list (car lst)) 
        lst (cdr lst) 
      ) 
      (while lst 
        (if (= (caar lst) (caar nl)) 
          (setq nnl (cons (car lst) nnl)) 
          (setq nl (cons (car lst) nl)) 
        ) 
        (setq lst (cdr lst)) 
      ) 
      (if nnl 
        (progn 
          (setq s1 (ssadd)) 
          (mapcar '(lambda (x) (ssadd (cadr x) s1)) nnl) 
          (sssetfirst nil s1) 
        ) ;_重复 
      ) 
      ;; 
      (if (zerop (setq num 
                        (abs 
                          (- (abs 
                               (- (distof (caar nl)) (distof (car (last nl)))) 
                             ) 
                             (length nl) 
                          ) 
                        ) 
                 ) 
          ) 
        (princ "\nOk!") 
        (princ (strcat "\n漏掉 " (itoa num) " 个编号!")) 
      ) 
    ) 
  ) 
  (princ) 
)

yn1985321 · 发表于 2014-5-22 20:34:19

no function definition: XDRX_PICKSET->ENTS
怎么出现这个啊老大。谢谢您了

dnbcgrass · 发表于 2014-5-22 23:16:49

你应该上一份样图，以方便帮你设计和调试程序。

yn1985321 · 发表于 2014-5-24 09:27:07

请老大看看

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

[求助] 求助宗地号编号重号或者漏号问题

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

评分