（XD::Entity:Fingerprint）获取实体的“指纹”

newer · 发表于 2019-1-18 11:19:56

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

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

×

本帖最后由 newer 于 2019-1-18 11:25 编辑

通过这个函数，可以把很多耗时的工作，变成线性一次遍历就解决。比如查找完全重叠的实体

(defun xd::entity:fingerprint (e mode /
#center #color #endangle
#endpoint #layer #linetype
#majoraxis #majorradius
#radius #startangle
#startpoint ar
area blk box
cen cen1 d
data data1 len
minoraxis minorradius
nums pt pts
typ x
)
(defun _pttostr (pt)
(apply 'strcat (mapcar '(lambda (x) (rtos x 2 3)) pt))
)
(setq typ (car (xdrx_object_classname e)))
(setq box (xdrx_entity_box e)
cen (xd::geom:get9pt box 5)
cen (_pttostr cen)
)
(cond ((wcmatch typ "*POLYLINE")
(setq nums (xdrx_getpropertyvalue e "numverts")
pts (xdrx_getpropertyvalue e "vertices")
pts (if (xdrx_curve_direction e)
pts
(reverse pts)
)
len (xdrx_getpropertyvalue e "length")
ar (xdrx_getpropertyvalue e "area")
cen (xdrx_getpropertyvalue e "centroid")
data1 (xdrx_prompt
nums
(rtos len 2 3)
(rtos ar 2 3)
(_pttostr cen)
(mapcar '(lambda (x) (_pttostr x)) pts)
t
)
data data1
)
)
((= typ "ARC")
(setq data (xdrx_getpropertyvalue
e "center" "radius" "startangle" "endangle")
data (xdrx_prompt
(_pttostr #center)
(rtos #radius 2 3)
(rtos #startangle 2 3)
(rtos #endangle 2 3)
t
)
)
)
((= typ "CIRCLE")
(setq data (xdrx_getpropertyvalue e "center" "radius")
data (xdrx_prompt (_pttostr #center) (rtos #radius 2 3) t)
)
)
((= typ "ELLIPSE")
(xdrx_getpropertyvalue
e "center" "majorradius"
"majoraxis" "minorradius" "minoraxis"
"startangle" "endangle" "radiusratio"
)
(setq data (xdrx_prompt
(_pttostr #center)
(rtos #majorradius 2 3)
(_pttostr #majoraxis)
(rtos minorradius 2 3)
(_pttostr minoraxis)
(rtos #startangle 2 3)
(rtos #endangle 2 3)
t
)
)
(xdrx_string_md5hash data)
)
((= typ "LINE")
(xdrx_getpropertyvalue e "startpoint" "endpoint")
(setq data
(xdrx_prompt (_pttostr #startpoint) (_pttostr #endpoint) t)
)
)
((= typ "TEXT")
(setq box (xdrx_text_box e)
cen (xd::geom:get9pt box 5))
(xdrx_getpropertyvalue e "textstring")
(setq data
(xdrx_prompt #textstring (apply 'strcat (mapcar '(lambda(x)(_pttostr x)) (cons cen box))))
)
)
((wcmatch typ "*DIM*")
(xdrx_getpropertyvalue e "Measurement" "textbox")
(setq data
(xdrx_prompt (rtos #Measurement 2 1) (apply 'strcat (mapcar '(lambda(x)(_pttostr x)) #textbox)))
)
)
((= typ "HATCH")
(setq box (xdrx_entity_box e)
cen (xd::geom:get9pt box 5)
cen (_pttostr cen)
data1 (apply
'strcat
(mapcar
'(lambda (x)
(setq d (xdrx_getpropertyvalue e "getloopat" x)
cen1 (xdrx_getpropertyvalue d "centroid")
len (xdrx_getpropertyvalue d "length")
area (xdrx_getpropertyvalue d "area")
)
(xdrx_object_release d)
(xdrx_prompt
(itoa x)
(_pttostr cen1)
(rtos len 2 1)
(rtos area 2 1)
t
)
)
(xd::list:flat
(xdrx_getpropertyvalue e "rootloops" "childloops")
)
)
)
)
(setq data (strcat cen data1))
)
((= typ "INSERT")
(setq blk (xdrx_getpropertyvalue e "blocktablerecord" nil)
data (strcat (strcase blk) cen)
)
)
(t
(setq
data (strcat
cen
(apply 'strcat (mapcar '(lambda (x) (_pttostr x)) box))
)
)
)
)
(if data
(progn (xdrx_getpropertyvalue e "layer" nil "color" "linetype" nil)
(if (= (logand mode 1) 1)
(setq data (strcat #layer data))
)
(if (= (logand mode 2) 2)
(setq data (strcat (if (listp #color)
(_pttostr #color)
(itoa #color)
)
data
)
)
)
(if (= (logand mode) 4)
(setq data (strcat #linetype data))
)
(setq data (strcat typ data))
(xdrx_string_md5hash data)
)
)
)

(defun xd::entity:fingerprint (e          mode             / 
                               #center          #color     #endangle 
                               #endpoint  #layer     #linetype 
                               #majoraxis #majorradius 
                               #radius          #startangle 
                               #startpoint             ar 
                               area          blk             box 
                               cen          cen1             d 
                               data          data1             len 
                               minoraxis  minorradius 
                               nums          pt             pts 
                               typ          x 
                              ) 
  (defun _pttostr (pt) 
    (apply 'strcat (mapcar '(lambda (x) (rtos x 2 3)) pt)) 
  ) 
  (setq typ (car (xdrx_object_classname e))) 
  (setq        box (xdrx_entity_box e) 
        cen (xd::geom:get9pt box 5) 
        cen (_pttostr cen) 
  ) 
  (cond        ((wcmatch typ "*POLYLINE") 
         (setq nums  (xdrx_getpropertyvalue e "numverts") 
               pts   (xdrx_getpropertyvalue e "vertices") 
               pts   (if (xdrx_curve_direction e) 
                       pts 
                       (reverse pts) 
                     ) 
               len   (xdrx_getpropertyvalue e "length") 
               ar    (xdrx_getpropertyvalue e "area") 
               cen   (xdrx_getpropertyvalue e "centroid") 
               data1 (xdrx_prompt 
                       nums 
                       (rtos len 2 3) 
                       (rtos ar 2 3) 
                       (_pttostr cen) 
                       (mapcar '(lambda (x) (_pttostr x)) pts) 
                       t 
                     ) 
               data  data1 
         ) 
        ) 
        ((= typ "ARC") 
         (setq data (xdrx_getpropertyvalue 
                      e        "center" "radius" "startangle" "endangle") 
               data (xdrx_prompt 
                      (_pttostr #center) 
                      (rtos #radius 2 3) 
                      (rtos #startangle 2 3) 
                      (rtos #endangle 2 3) 
                      t 
                    ) 
         ) 
        ) 
        ((= typ "CIRCLE") 
         (setq data (xdrx_getpropertyvalue e "center" "radius") 
               data (xdrx_prompt (_pttostr #center) (rtos #radius 2 3) t) 
         ) 
        ) 
        ((= typ "ELLIPSE") 
         (xdrx_getpropertyvalue 
           e                    "center"             "majorradius" 
           "majoraxis"            "minorradius"    "minoraxis" 
           "startangle"            "endangle"             "radiusratio" 
          ) 
         (setq data (xdrx_prompt 
                      (_pttostr #center) 
                      (rtos #majorradius 2 3) 
                      (_pttostr #majoraxis) 
                      (rtos minorradius 2 3) 
                      (_pttostr minoraxis) 
                      (rtos #startangle 2 3) 
                      (rtos #endangle 2 3) 
                      t 
                    ) 
         ) 
         (xdrx_string_md5hash data) 
        ) 
        ((= typ "LINE") 
         (xdrx_getpropertyvalue e "startpoint" "endpoint") 
         (setq data 
                (xdrx_prompt (_pttostr #startpoint) (_pttostr #endpoint) t) 
         ) 
        ) 
        ((= typ "TEXT") 
         (setq box (xdrx_text_box e) 
               cen (xd::geom:get9pt box 5)) 
         (xdrx_getpropertyvalue e "textstring") 
         (setq data 
                (xdrx_prompt #textstring (apply 'strcat (mapcar '(lambda(x)(_pttostr x)) (cons cen box)))) 
         ) 
        ) 
        ((wcmatch typ "*DIM*") 
         (xdrx_getpropertyvalue e "Measurement" "textbox") 
         (setq data 
                (xdrx_prompt (rtos #Measurement 2 1) (apply 'strcat (mapcar '(lambda(x)(_pttostr x)) #textbox))) 
         ) 
        ) 
        ((= typ "HATCH") 
         (setq box   (xdrx_entity_box e) 
               cen   (xd::geom:get9pt box 5) 
               cen   (_pttostr cen) 
               data1 (apply 
                       'strcat 
                       (mapcar 
                         '(lambda (x) 
                            (setq d    (xdrx_getpropertyvalue e "getloopat" x) 
                                  cen1 (xdrx_getpropertyvalue d "centroid") 
                                  len  (xdrx_getpropertyvalue d "length") 
                                  area (xdrx_getpropertyvalue d "area") 
                            ) 
                            (xdrx_object_release d) 
                            (xdrx_prompt 
                              (itoa x) 
                              (_pttostr cen1) 
                              (rtos len 2 1) 
                              (rtos area 2 1) 
                              t 
                            ) 
                          ) 
                         (xd::list:flat 
                           (xdrx_getpropertyvalue e "rootloops" "childloops") 
                         ) 
                       ) 
                     ) 
         ) 
         (setq data (strcat cen data1)) 
        ) 
        ((= typ "INSERT") 
         (setq blk  (xdrx_getpropertyvalue e "blocktablerecord" nil) 
               data (strcat (strcase blk) cen) 
         ) 
        ) 
        (t 
         (setq 
           data        (strcat 
                  cen 
                  (apply 'strcat (mapcar '(lambda (x) (_pttostr x)) box)) 
                ) 
         ) 
        ) 
  ) 
  (if data 
    (progn (xdrx_getpropertyvalue e "layer" nil "color" "linetype" nil) 
           (if (= (logand mode 1) 1) 
             (setq data (strcat #layer data)) 
           ) 
           (if (= (logand mode 2) 2) 
             (setq data        (strcat        (if (listp #color) 
                                  (_pttostr #color) 
                                  (itoa #color) 
                                ) 
                                data 
                        ) 
             ) 
           ) 
           (if (= (logand mode) 4) 
             (setq data (strcat #linetype data)) 
           ) 
           (setq data (strcat typ data)) 
           (xdrx_string_md5hash data) 
    ) 
  ) 
)

命令: (xd::entity:fingerprint (entlast) 1)
"a7376d1b73c801e11b9e254cc2bf7118"

qyming2000 · 发表于 2019-1-18 13:15:51

什么是实体的指纹
来自: 微社区

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

[实体] （XD::Entity:Fingerprint）获取实体的“指纹”

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