判断多边形与文字的关系

cz78873559 · 发表于 2013-6-14 13:16:40

要求：
1、一个多边形内有一个文字且不压线，多边形和文字颜色不变（随层）。
2、多边形内有文字但是压线，多边形和文字颜色变为蓝色。
3、多边形内无文字，或者文字未被多边形包围，多边形和文字都变为绿色。
4、多边形有里面有两个文字，或者一个文字被两个多边形包围（多边形可能重合可能相交），多边形和文字都变绿色。
说明：
1、支持框选判
2、此功能可能会对有重点的或者是有回头线的多边形判断成绿色，这种也可以认为是错误的。只要变色后，我可以人为去找出错误。
3、我最终需要的正确图形是一个闭合的多边形内只会包含一个单行文字。
4、运行速度不能太慢。

XDSoft · 发表于 2013-6-14 13:21:35

这个问题好像讨论过了吧。

请附上详细的图片，说明下各种情况。和提供测试用的DWG图。

cz78873559 · 发表于 2013-6-14 13:29:41

情况和测试图如下

cz78873559 · 发表于 2013-6-14 13:33:00

对，前段时间经过大家的帮助，已经能解决部分功能。但是在使用中，发现如果多边形和文字太多，速度很慢。而且结果不是很稳定。以下是我目前的一些代码

;判断没有文字的多边形和压线的多边形
(defun c:xt ( / e elst ent i pts1 pts ss ss1 ss2 y x)
(setvar "CMDECHO" 0)
(prompt "请选择需要比较的多边形,找出压线的多边形和文字!")
(if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形
(progn
(setq i 0)
(while (setq ent (ssname ss i))
(setq elst (cons ent elst))
(setq i (1+ i))
)
(mapcar
'(lambda (e)
(if
(setq pts
(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e))
)
)
(cond
((setq ss2(ssget "wp" pts '((0 . "TEXT"))));功能1、多边形内有文字且不压线，多边形和文字颜色变红色
(command "change" e ss2 "" "p" "C" "1" "")
)
((setq ss2 (ssget "f" pts '((0 . "TEXT"))));功能2、多边形有文字但是压线，多边形和文字颜色变为蓝色（未实现文字变蓝色）
(command "change" e ss2 "" "p" "C" "5" "")
)
(t ;功能3、多边形内无文字，或者文字未被多边形包围，多边形和文字都变为绿色。（只实现了多边形变色）
(command "change" e "" "p" "C" "3" "")
)
)
)
)
elst
)
)
)
(setvar "CMDECHO" 1)
(princ)
)

;判断没有文字的多边形和压线的多边形 
(defun c:xt ( / e elst ent i pts1 pts ss ss1 ss2  y x) 
  (setvar "CMDECHO" 0) 
(prompt "请选择需要比较的多边形,找出压线的多边形和文字!") 
  (if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形 
    (progn 
      (setq i 0) 
      (while (setq ent (ssname ss i)) 
        (setq elst (cons ent elst)) 
        (setq i (1+ i)) 
      ) 
      (mapcar 
        '(lambda (e) 
          (if 
            (setq pts 
              (mapcar 'cdr 
                (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e)) 
              ) 
            ) 
             (cond 
              ((setq ss2(ssget "wp" pts '((0 . "TEXT"))));功能1、多边形内有文字且不压线，多边形和文字颜色变红色 
                (command "change" e ss2 "" "p" "C" "1" "") 
              ) 
              ((setq ss2 (ssget "f" pts '((0 . "TEXT"))));功能2、多边形有文字但是压线，多边形和文字颜色变为蓝色（未实现文字变蓝色） 
                (command "change" e ss2 "" "p" "C" "5" "") 
              ) 
              (t                              ;功能3、多边形内无文字，或者文字未被多边形包围，多边形和文字都变为绿色。（只实现了多边形变色） 
                (command "change" e "" "p" "C" "3" "") 
              ) 
            ) 
          ) 
        ) 
        elst 
      ) 
    ) 
  ) 
  (setvar "CMDECHO" 1) 
  (princ) 
)

XDSoft · 发表于 2013-6-14 13:35:30

cz78873559 发表于 2013-6-14 13:33
对，前段时间经过大家的帮助，已经能解决部分功能。但是在使用中，发现如果多边形和文字太多，速度很慢。而 ...

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

请用上面链接的制作动画的软件，把有问题的各种情况，分别作几个动画，说明不了情况的在截取图片标明下，然后贴论坛上来。

关键是要大家理解你的想法。

cz78873559 · 发表于 2013-6-14 13:44:15

哦好的。我也学学这样制作动画

Free-Lancer · 发表于 2013-6-14 13:49:27

这个用lisp只能是优化，不要期望太高，算法中是取文字为基准还是已以pline为基准要权衡下来自: Android客户端

XDSoft · 发表于 2013-6-14 14:10:36

cz78873559 发表于 2013-6-14 13:44
哦好的。我也学学这样制作动画

做动画就是连续的截图，你给个开始指令，然后就操作，再给个结束指令，就做到文件里面了，可以适当修饰下，然后保存动画GIF就行了。

QiaoCheng · 发表于 2013-6-14 15:07:03

本帖最后由 QiaoCheng 于 2013-6-14 15:09 编辑

问题是楼主说了这句"或者一个文字被两个多边形包围(多边形可能重合可能相交)，多边形和文字都变绿色"，不确定是以文字还是多边形为准，其他的应该好办

cz78873559 · 发表于 2013-6-14 15:32:47

恩。我个人认为应该以文字而且也应该以多边形为判断依据，不知道这样能否实现？

XDSoft · 发表于 2013-6-14 15:35:39

cz78873559 发表于 2013-6-14 15:32
恩。我个人认为应该以文字而且也应该以多边形为判断依据，不知道这样能否实现？

你准确的画一个图，把要求的在图上用文件标出来，然后贴上来。

cz78873559 · 发表于 2013-6-14 15:37:13

我还是没能搞好视频动画。麻烦大家下载了附件就能看明白我说的情况了。

cz78873559 · 发表于 2013-6-14 19:45:40

非常感谢XDSoft 的提点。我把效果做了动画，麻烦大家帮忙看看！

cz78873559 · 发表于 2013-6-14 19:49:16

非常感谢XDSoft 的提点。我把效果做了动画，麻烦大家帮忙看看！

牢固 · 发表于 2013-6-14 20:43:41

cz78873559 发表于 2013-6-14 19:49
非常感谢XDSoft 的提点。我把效果做了动画，麻烦大家帮忙看看！

(setq ss2(ssget "wp" pts '((0 . "TEXT")))之前先要用(command "zoom" p1 p2) 将pts的坐标范围移到可见范围之内！

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

[编程申请] 判断多边形与文字的关系

点评

点评

点评

点评