批量合并连续相同尺寸标注

newer

[sell]
(defun c:XDTB_DIMMerge1 ( / base d1 d2 d3 dtxt e1 e2 el ents first Measurement1 Measurement2 second ss x)
  (defun _process (el)
    (while (cdr el)
      (setq e1 (car el)
            e2 (cadr el)
      )
      (if (not first)
        (setq first e1)
      )
      (setq Measurement1 (xdrx_getpropertyvalue e1 "Measurement")
            Measurement2 (xdrx_getpropertyvalue e2 "Measurement")
      )
      (if (equal Measurement1 Measurement2 1e-3)
        (progn
          (setq second (cons e2 second))
        )
        (progn
          (if second
            (progn
              (setq d1 (append
                         (mapcar
                           'car
                           (XD::Dim:xLine first)
                         )
                         (mapcar
                           'car
                           (XD::Dim:xLine (car second))
                         )
                       )
                    base (XD::Dim:BasePoints first)
                    d2 (xdrx_points_sortoncurve base d1)
                    d3 (mapcar
                         'cadr
                         d2
                       )
              )
              (xdrx_dimension_MakeRotate (car d3) (last d3) (car base)
                                         (apply
                                           'angle
                                           base
                                         )
              )
              (setq dtxt (xdrx_prompt (1+ (length second)) "X"
                                      (rtos Measurement1 2 1) "="
                                      (rtos (xdrx_getpropertyvalue
                                                                   (entlast) "Measurement"
                                            ) 2 1
                                      ) t
                         )
              )
              (xdrx_setpropertyvalue (entlast) "dimtext" dtxt)
              (xdrx_entity_setPropertiesFrom (entlast) first)
              (xdrx_object_swapid (entlast) first)
              (xdrx_entity_delete (cons (entlast) second))
            )
          )
          (setq second nil
                first nil
          )
        )
      )
      (setq el (cdr el))
    )
  )
  (xdrx_initssget "\n选取要合并的同长度尺寸<退出>:")
  (if (setq ss (xdrx_ssget '((0 . "dim*") (-4 . "&=")
                            (70 . 0)
                           )
               )
      )
    (progn
      (setq ents (xd::dim:group ss 0))
      (mapcar
        '(lambda (x)
           (_process x)
         )
        ents
      )
    )
  )
  (princ)
)
[/sell]

osikou

好东东，谢谢分享。

zb_88888

很好很强大 谢谢楼主

宏光

谢谢，下载下来学习一下

kqqt6236

功能不错。

yiyu_ye

试试看好不好··

小瓶子

请教各位一个问题，我用了这个插件后只显示“111”并没有合成，在论坛看了一圈也没能找到好的解决办法，所以只好过来请教了，截图见下

香远益清

不错的插件，测试成功

w879805623

试用成功，但是合并之后怎么把数字精确到个位而不是小数点后一位，也取消掉后面的等于