设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 多边形与文字的处理
123下一页
返回列表 发新帖
查看: 2791|回复: 36

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

[复制链接]
cz78873559
发表于 2013-5-28 11:45:01 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
大家好，我想判断选择范围内的多边形是否包含有（单行）文字，如果多边形内没有文字，则把多边形变成蓝色，如果文字没有被多边形(包围),则把文字变为绿色。在下研究了很久，可能是由于资质原因，始终没能成功。只有在此寻求大家的帮助。附件如下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 11:46:15 | 显示全部楼层
这是我欲处理的图形

判断多边形与文字的关系.rar

7.95 KB, 下载次数: 7, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-28 12:02:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
昨天刚个个朋友贴个代码，下面这个代码你能用

1、首先你要得到多边形的顶点表

[pcode=lisp,true]
(setq ed (entget e))
(setq pts1 (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) ed)))
[/pcode]

2、把顶点表送给SSGET filter就行了

[pcode=lisp,true]
(setq ss (ssget "wp" pts1 '((0 . "TEXT"))))
[/pcode]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 12:13:28 | 显示全部楼层
多谢，我试试看
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 12:18:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. ;判断多边形内是否有文字,如果没有文字则变颜色
  3. (defun c:ee3()
  4. (prompt "请选择需要比较的多边形!")
  5. (setq ss (ssget  '((0 . "*POLYLINE"))));选择多边形
  6. ;获取多边形的顶点表
  7. (setq ed (entget e))
  8. (setq pts1 (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) ed)))
  9. (setq ss (ssget "wp" pts1 '((0 . "TEXT"))));把顶点表送给SSGET filter

  11. (command "change" ss ""  "p" "C" "180" "");条件成立则变色
  12. (princ)
  13. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 12:18:50 | 显示全部楼层
我这样写 似乎不行。
参数类型错误: lentityp nil
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-28 12:51:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
cz78873559 发表于 2013-5-28 12:18

你这样写肯定不行啊，你交互的是选择集，我给你的代码是实体名e ,你要有遍历选择集得到LWPOLYLINE实体的代码，另外你的程序要加 if 选择结构。

帮你改下。

比如：
  1. ;判断多边形内是否有文字,如果没有文字则变颜色
  2. (defun c:ee3 ()
  3.   (prompt "请选择需要比较的多边形!")
  4.   (if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形
  5.     (progn
  6.       (setq i 0)
  7.       (while (setq e (ssname ss i))
  8.         (setq ed (entget e))
  9.         (if (and
  10.               (setq pts1 (mapcar
  11.                            'cdr
  12.                            (vl-remove-if-not '(lambda (x)
  13.                                                 (= (car x) 10)
  14.                                               ) ed
  15.                            )
  16.                          )
  17.               )
  18.               (setq ss1 (ssget "wp" pts1 '((0 . "TEXT")))) ; 把顶点表送给SS
  19.             )
  20.           (progn
  21.             (command "change" e "" "p" "C" "180" "") ; 条件成立则变色
  22.           )
  23.         )
  24.         (setq i (1+ i))
  25.       )
  26.     )
  27.   )
  28.   (princ)
  29. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 13:13:38 | 显示全部楼层
非常感谢！您的代码，已经把包含文字的多边形变了颜色。能否再把没有多边形的文字也变色呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-28 14:29:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
cz78873559 发表于 2013-5-28 13:13
非常感谢！您的代码，已经把包含文字的多边形变了颜色。能否再把没有多边形的文字也变色呢？

有文字的多边形变了，你自己可以把改颜色的那行代码放到上面程序选择结构的另外一个分支就行了，自己试试，理解上面的程序了，你就知道加哪个地方了。

为什么有文字的改变了？ 因为满足了上面程序的一个判断，那没满足尼？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 14:50:48 | 显示全部楼层
多谢！我自己再好好理解理解。如果部能改出来，我再把代码放上来，你帮我检查下:P
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-28 15:04:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
cz78873559 发表于 2013-5-28 14:50
多谢！我自己再好好理解理解。如果部能改出来，我再把代码放上来，你帮我检查下

好的，学写程序的一个主要方法就是抄别人的，然后修改，你要修改好了，还厉害尼。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 15:36:04 | 显示全部楼层
我修改了，感觉自己改的有些冗长，不过可以达到我想要的结果了。麻烦你再帮我看看，那些地方不合理。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 15:37:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. ;判断多边形内是否有文字：如果没有文字多边形则变绿色，如果文字没有多边形则变绿色。注意文字要全部落到多边形内部（文字压了多边形则认为多边形内没有文字）
  3. (defun c:ee3 ()
  4.   (setvar "CMDECHO" 0)
  5.   (prompt "请选择需要比较的多边形和文字!")
  6. ;;;  (if (setq ss (ssget '((0 . "*POLYLINE,TEXT")))) ; 选择多边形
  7.   (setq ss (ssget '((0 . "*POLYLINE,TEXT")))); 获得选择集
  8.   
  9.     (repeat (setq N (sslength SS));修改图中所有文字高度为0.001,变得最小，避免出现文字压线的情况
  10.     (apply '(lambda (x) (ch_dxf x 40 0.001))
  11.            (list (ssname SS (setq N (1- N))))
  12.     )
  13.     )
  14.   
  15.     (command "chprop" ss "" "p" "C" "3" "") ;选择集先变绿色
  16.   
  17.     (progn
  18.       (setq i 0)
  19.       (while (setq e (ssname ss i));遍历选择集得到LWPOLYLINE实体
  20.         (setq ed (entget e))
  21.         (if (and
  22.               ;得到多边形的顶点表
  23.               (setq pts1 (mapcar
  24.                            'cdr
  25.                            (vl-remove-if-not '(lambda (x)
  26.                                                 (= (car x) 10)
  27.                                               ) ed
  28.                            )
  29.                          )
  30.               )
  31.               (setq ss1 (ssget "wp" pts1 '((0 . "TEXT")))) ; 把顶点表送给SS
  32.             )
  33.           (progn
  34.             (command "chprop" ss1 "" "p" "C" "BYLAYER" "") ; 条件成立的文字颜色恢复随层
  35.             (command "chprop" e "" "p" "C" "BYLAYER" "") ; 条件成立的多线段颜色恢复随层
  36.           )
  37.         )
  38.         (setq i (1+ i))
  39.       )
  40.     )
  41.    
  42.     (repeat (setq N (sslength SS));恢复文字高度为1.5
  43.     (apply '(lambda (x) (ch_dxf x 40 1.5))
  44.            (list (ssname SS (setq N (1- N))))
  45.     )
  46.     )
  47.   
  48.   (princ)
  49. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-28 16:23:34 | 显示全部楼层
cz78873559 发表于 2013-5-28 15:37

满足条件执行一个分支，不满足条件进另外一个分支，所以你把修改成其他颜色的代码加到IF的另外一个分支就O了。

  1. ;判断多边形内是否有文字,如果没有文字则变颜色
  2. (defun c:ee3 ()
  3.   (prompt "请选择需要比较的多边形!")
  4.   (if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形
  5.     (progn
  6.       (setq i 0)
  7.       (while (setq e (ssname ss i))
  8.         (setq ed (entget e))
  9.         (if (and
  10.               (setq pts1 (mapcar
  11.                            'cdr
  12.                            (vl-remove-if-not '(lambda (x)
  13.                                                 (= (car x) 10)
  14.                                               ) ed
  15.                            )
  16.                          )
  17.               )
  18.               (setq ss1 (ssget "wp" pts1 '((0 . "TEXT")))) ; 把顶点表送给SS
  19.             )
  20.           (progn
  21.             (command "change" e "" "p" "C" "180" "") ; 条件成立则变色
  22.           )
  23.           (progn  ;;;没文字的在这里执行
  24.             (command "change" e "" "p" "C" "200" "") ; 条件不成立则变色
  25.           )
  26.         )
  27.         (setq i (1+ i))
  28.       )
  29.     )
  30.   )
  31.   (princ)
  32. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-28 16:54:19 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
非常感谢！我再试试。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-25 14:32 , Processed in 0.432508 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表