多边形与文字的处理

QiaoCheng · 发表于 2013-5-29 08:42:53

把这一句(while (setq e (ssname ss i))单独提出来，会不会更好点？

cz78873559 · 发表于 2013-5-29 10:07:22

我想实现的是：判断多边形内是否有文字，如果没有文字多边形则变绿色，如果文字没有多边形则变绿色。
如果文字有压线的情况则把多边形和文字变为白色。这要怎么改呢？

cz78873559 · 发表于 2013-5-29 10:10:43

把(while (setq e (ssname ss i)提出来。速度会快点么？因为一张图一般情况都有1000个多边形

QiaoCheng · 发表于 2013-5-29 11:19:16

会快点的，论坛里说了while里面不要有太多代码

cz78873559 · 发表于 2013-5-29 11:49:06

谢谢你的提醒。我再思索下

newer · 发表于 2013-5-29 13:55:09

cz78873559 发表于 2013-5-29 10:07
我想实现的是：判断多边形内是否有文字，如果没有文字多边形则变绿色，如果文字没有多边形则变绿色。
如果 ...

文字在多边形内，SSGET 用 WP
文字在多边形上，SSGET用 F 顶点表
上面两种情况以外，文字在多边形外

两个分支以上的，用函数cond，如下：

你用

(cond
((ssget "wp" pts '((0 . "TEXT")))
内
)
((ssget "f" pts '((0 . "TEXT")))
上
）
（t
外
）
）

cz78873559 · 发表于 2013-5-29 14:28:42

谢谢楼上的提醒！我去修改

cz78873559 · 发表于 2013-5-29 15:22:55

麻烦楼上的能把代码给我改了吗？我套用分支总是出错。我想实现的是：判断多边形内是否有文字，1、如果没有文字多边形则变绿色，2、如果文字没有多边形则变绿色。
3、如果文字有压线的情况则把多边形和文字变为白色。

QiaoCheng · 发表于 2013-5-29 17:01:19

cz78873559 发表于 2013-5-29 15:22
麻烦楼上的能把代码给我改了吗？我套用分支总是出错。我想实现的是：判断多边形内是否有文字，1、如果没有 ...

晕，按添加代码 <> 每次窗口都跑到顶上去了，不知怎么弄？

是不是这样？

(defun c:tt ( / e elst ent i pts ss ss1 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
((ssget "wp" pts '((0 . "TEXT")))
(command "change" e "" "p" "C" "180" "")
)
((ssget "f" pts '((0 . "TEXT")))
(command "change" e "" "p" "C" "7" "")
)
(t
(command "change" e "" "p" "C" "200" "")
)
)
)
)
elst
)
)
)
(princ)
)

(defun c:tt ( / e elst ent i pts ss ss1 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 
              ((ssget "wp" pts '((0 . "TEXT"))) 
                (command "change" e "" "p" "C" "180" "") 
              ) 
              ((ssget "f" pts '((0 . "TEXT"))) 
                (command "change" e "" "p" "C" "7" "") 
              ) 
              (t 
                (command "change" e "" "p" "C" "200" "") 
              ) 
            ) 
          ) 
        ) 
        elst 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-5-29 17:30:42

QiaoCheng 发表于 2013-5-29 17:01
晕，按添加代码每次窗口都跑到顶上去了，不知怎么弄？

是不是这样？

看代码写的挺漂亮啊，你测试成了吗？

贴代码你可以直接自己输入：【code=lisp】【/lisp】把代码放之间，实际操作时候把粗括号换细括号。

cz78873559 · 发表于 2013-5-29 18:03:22

QiaoCheng 你的代码，测试OK。这方面的比较对我很有用。我学习了怎样控制循环。谢谢！！！

cz78873559 · 发表于 2013-5-29 18:44:42

可能是刚才我没说的很清楚。我测试了还有点没有达到的：1、没有被多边形包围的文字也变色。2、压线的文字也变成跟压线情况的多边形一样的颜色。我没改成功，要怎样改呢？

cz78873559 · 发表于 2013-5-29 18:46:51

本帖最后由 cz78873559 于 2013-5-29 18:51 编辑

(setq ss1 (ssget "f" pts1 '((0 . "TEXT")))) ; 把顶点表送给SS,压线时
(progn
(command "chprop" ss1 "" "p" "C" "5" "") ; 条件成立的文字变色
(command "chprop" e "" "p" "C" "5" "") ; 条件成立的多线段变色
)

这样可能要先把定点表传递给一个变量。或者是先得全部选择吗(if (setq ss (ssget '((0 . "*POLYLINE，*text"))))

Lispboy · 发表于 2013-5-29 18:55:49

本帖最后由 Lispboy 于 2013-5-29 18:57 编辑

cz78873559 发表于 2013-5-29 18:46
这样可能要先把定点表传递给一个变量。或者是先得全部选择吗(if (setq ss (ssget '((0 . "*POLYLINE，*text ...

不用啊，你不是点击多边形了吗，点击的那个是多边形实体，要修改它，就用它的实体名。SSGET里面是得到的文字，改文字颜色用这个选择集SS。
变量ent 是多边形，ss1是文字。

cz78873559 · 发表于 2013-5-29 18:58:39

但是
我像(command "chprop" ss1 "" "p" "C" "5" "") ; 条件成立的文字变色
(command "chprop" e "" "p" "C" "5" "") ; 条件成立的多线段变色
这样同时改颜色。
怎么改不了呢？

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

[求助] 多边形与文字的处理