自动合并相同标注，并修改标注文字

cq_qg68

用cad的快速标注时，会有多个标注。当间距一样时，绘图时要求合并。比如连续6个间距是100的，需要合并成一个标注，并修改为6x100。 能不能编程实现自动将相邻的相同标注合并并修改？

Lisphk

http://bbs.xdcad.net/thread-704309-1-1.html

                               
登录/注册后可看大图

cq_qg68

看演示动画，似乎是标注合并，不是标注值相同的标注自动合并。

newer

cq_qg68 发表于 2016-12-7 22:32

有很大的区别吗？ 工具要是太细了就不好用了，你合并下，然后改下值不就OK了。如果要改，编程思路是一样的，就是最后加个6X100这样的值代码就行了。

newer

简单写了个，可以批量全图处理相同连续的标注合并到一起。这东西不批量就不值得写了。
想要纯LISP改写朋友，参考下算法思路和里面的函数，用LISP模拟下里面的代码。核心是尺寸分组函数，开源函数库有代码

XD::DIM:GROUP http://bbs.xdcad.net/thread-704531-1-1.html

(defun c:tt ()
  (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)
)

cq_qg68

厉害，正是想要的。