API应用亮显重叠文字

eachy · 发表于 2014-7-14 21:36:39

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

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

×

(defun c:tt (/ ss lst l1 lst1 ll tf)
(if (setq ss (ssget '((0 . "text"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (xd::text:box x);_实际包围盒
x
)
)
(xdrx_pickset->ents ss)
)
)
(while lst
(setq l1 (car lst)
lst1 (cdr lst)
tf t
)
(while lst1
(setq l2 (car lst1)
lst1 (cdr lst1)
)
(if (xdrx_points_boundingboxintersect (car l1) (car l2));_几何运算，效率更高
(if tf
(setq ll (cons (cadr l1) ll)
ll (cons (cadr l2) ll)
tf nil
)
(setq ll (cons (cadr l2) ll))
)
)
(setq lst1 (cdr lst1))
)
(setq lst (cdr lst))
)
(if ll
;;(progn
(sssetfirst nil (xd::Entity->Pickset ll))
;;(xdrx_pickset_highlight (xd::Entity->Pickset ll))
;;)
(princ "\nOk!")
)
)
)
(princ)
)

(defun c:tt (/ ss lst l1 lst1 ll tf) 
  (if (setq ss (ssget '((0 . "text")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (list (xd::text:box x);_实际包围盒 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
      ) 
      (while lst 
        (setq l1   (car lst) 
              lst1 (cdr lst) 
              tf   t 
        ) 
        (while lst1 
          (setq        l2   (car lst1) 
                lst1 (cdr lst1) 
          ) 
          (if (xdrx_points_boundingboxintersect (car l1) (car l2));_几何运算，效率更高 
            (if        tf 
              (setq ll (cons (cadr l1) ll) 
                    ll (cons (cadr l2) ll) 
                    tf nil 
              ) 
              (setq ll (cons (cadr l2) ll)) 
            ) 
          ) 
          (setq lst1 (cdr lst1)) 
        ) 
        (setq lst (cdr lst)) 
      ) 
      (if ll 
        ;;(progn 
        (sssetfirst nil (xd::Entity->Pickset ll)) 
        ;;(xdrx_pickset_highlight (xd::Entity->Pickset ll)) 
        ;;) 
        (princ "\nOk!") 
      ) 
    ) 
  ) 
  (princ) 
)

14702470 · 发表于 2016-6-19 10:48:15

不能用，(xdrx_points_boundingboxintersect (car l1) (car l2)) 函数值始终未nil，不知道为什么

WhoCanSay · 发表于 2016-6-19 20:21:27

对使用者而言，尺寸文字也是文字，可以扩展一下，给用户提个醒

newer · 发表于 2016-6-20 07:56:08

14702470 发表于 2016-6-19 10:48
不能用，(xdrx_points_boundingboxintersect (car l1) (car l2)) 函数值始终未nil，不知道为什么

是点表求包围盒交，两个参数都要是点表。

newer · 发表于 2016-6-20 09:25:08

14702470 发表于 2016-6-19 10:48
不能用，(xdrx_points_boundingboxintersect (car l1) (car l2)) 函数值始终未nil，不知道为什么

看了下代码，是 L1 L2都是二维点表的原因，你把他们变成3D点表就行了

(xdrx_points_boundingboxintersect (xd::pnts:z0 (car l1)) (xd::pnts:z0 (car l2)))

14702470 · 发表于 2016-7-9 22:30:31

newer 发表于 2016-6-20 09:25
看了下代码，是 L1 L2都是二维点表的原因，你把他们变成3D点表就行了

(xdrx_points_boundingboxinters ...

谢谢，太感谢了

pxt2015 · 发表于 2017-5-18 21:42:04

试用了一下，似乎能判断水平、竖向文字是否重叠，对于其他角度的文字（例如45度），判断是否重叠时，不重叠的文字，程序也认为重叠

newer · 发表于 2017-5-18 21:56:18

pxt2015 发表于 2017-5-18 21:42

截取个图片上来说明下，图上标出你认为的问题的地方。

pxt2015 · 发表于 2017-5-19 09:20:21

newer 发表于 2017-5-18 21:56

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:测试cad图纸.rar
下载次数:1 文件大小:1.99 MB
下载权限: 不限以上 [免费赚D豆]

pxt2015 · 发表于 2017-5-19 09:30:13

如截图所示，没有重叠的位置，程序有时将它当成重叠了。有重叠的位置，有时当成不重叠。

newer · 发表于 2017-5-19 10:48:14

pxt2015 发表于 2017-5-19 09:30

修改了下代码，你拷贝下面代码回去，测试下，看看

代码支持TEXT和MTEXT的重叠查找

(defun c:tt (/ ss lst l1 lst1 ll tf)
(if (setq ss (ssget '((0 . "text,mtext"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (xdrx_getpropertyvalue x "textbox") ;_实际包围盒
x
)
)
(xdrx_pickset->ents ss)
)
)
(while lst
(setq l1 (car lst)
lst1 (cdr lst)
tf t
)
(while lst1
(setq l2 (car lst1)
lst1 (cdr lst1)
)
(setq g1 (xdrx_polyline_make (car l1) t)
g2 (xdrx_polyline_make (car l2) t)
)
(if (xdrx_entity_intersectWith g1 g2)
(if tf
(setq ll (cons (cadr l1) ll)
ll (cons (cadr l2) ll)
tf nil
)
(setq ll (cons (cadr l2) ll))
)
)
(xdrx_entity_delete g1 g2)
(setq lst1 (cdr lst1))
)
(setq lst (cdr lst))
)
(if ll
(progn
(sssetfirst nil (xd::entity->pickset ll))
(xdrx_prompt
"\n找到了"
(length ll)
"个重叠文字. 已经夹点显示."
)
)
(princ "\n没有找到重叠的文字!")
)
)
)
(princ)
)

(defun c:tt (/ ss lst l1 lst1 ll tf) 
  (if (setq ss (ssget '((0 . "text,mtext")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (list (xdrx_getpropertyvalue x "textbox") ;_实际包围盒 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
      ) 
      (while lst 
        (setq l1   (car lst) 
              lst1 (cdr lst) 
              tf   t 
        ) 
        (while lst1 
          (setq        l2   (car lst1) 
                lst1 (cdr lst1) 
          ) 
          (setq        g1 (xdrx_polyline_make (car l1) t) 
                g2 (xdrx_polyline_make (car l2) t) 
          ) 
          (if (xdrx_entity_intersectWith g1 g2) 
            (if        tf 
              (setq ll (cons (cadr l1) ll) 
                    ll (cons (cadr l2) ll) 
                    tf nil 
              ) 
              (setq ll (cons (cadr l2) ll)) 
            ) 
          ) 
          (xdrx_entity_delete g1 g2) 
          (setq lst1 (cdr lst1)) 
        ) 
        (setq lst (cdr lst)) 
      ) 
      (if ll 
        (progn 
          (sssetfirst nil (xd::entity->pickset ll)) 
          (xdrx_prompt 
            "\n找到了" 
            (length ll) 
            "个重叠文字. 已经夹点显示." 
          ) 
        ) 
        (princ "\n没有找到重叠的文字!") 
      ) 
    ) 
  ) 
  (princ) 
)

pxt2015 · 发表于 2017-5-19 11:41:50

非常感谢new版主的回复。感觉这个程序，实际上算法相当复杂。像我一样画图的CAD工程师，无法理解的。但是程序实用性很强的。

还是上贴附件测试图，下面截图中，同样的文字选择集，重复文字统计，数量有时不同。

newer · 发表于 2017-5-19 12:18:56

pxt2015 发表于 2017-5-19 11:41

你这个图片看不请，你就把文字图层显示，其他关闭，

然后集中放大某几个地方，截取几个图片，说明下哪些是不应该重叠的，给判断重叠了，或者应该重叠的，给落下了。

pxt2015 · 发表于 2017-5-19 13:51:09

newer 发表于 2017-5-19 12:18

pxt2015 · 发表于 2017-5-19 15:49:33

如上图所示，红色外框的文字，实际是部分重叠的。

反复执行tt，通过不同的选择方式（从左到右选，从右到左选，从上到下选等等），程序有时能判断为重叠，有时不行。

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

[每日一码] API应用 亮显重叠文字

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

[每日一码] API应用亮显重叠文字