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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 多边形与文字的处理
123
返回列表 发新帖
楼主: cz78873559

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

[复制链接]
Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-29 20:26:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你把 chprop 在命令上上输入，然后输入那些参数，看看哪个你输多了，不需要的。

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-29 22:09:46 | 显示全部楼层
  2. (defun c:ee3 ( / e elst ent i pts ss ss1 x)
  3.   (setvar 'cmdecho 0)
  4.   (prompt "请选择需要比较的多边形!")
  5.   (if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形
  6.     (progn
  7.       (setq i 0)
  8.       (while (setq ent (ssname ss i))
  9.         (setq elst (cons ent elst))
  10.         (setq i (1+ i))
  11.       )
  12.       (mapcar
  13.         '(lambda (e)
  14.           (if
  15.             (setq pts
  16.               (mapcar 'cdr
  17.                 (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e))
  18.               )
  19.             )
  20.             (cond
  21.               ((ssget "wp" pts '((0 . "TEXT")));功能1、多边形内有文字且不压线，多边形和文字颜色变为随层
  22.                 (command "change" e "" "p" "C" "BYLAYER" "")
  23.               )
  24.               ((ssget "f" pts '((0 . "TEXT")));功能2、多边形有文字但是压线，多边形和文字颜色变为蓝色（未实现文字变蓝色）
  25.                 (command "change" e "" "p" "C" "5" "")
  26.               )
  27.               (t                              ;功能3、文字在多边形外面（多边形内无文字，或者文字未被多边形包围），多边形和文字都变为绿色。（未实现文字变绿色）
  28.                 (command "change" e "" "p" "C" "3" "")
  29.               )
  30.             )
  31.           )
  32.         )
  33.         elst
  34.       )
  35.     )
  36.   )
  37.   (princ)
  38. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-29 22:58:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 Lispboy 于 2013-5-29 23:00 编辑

你的代码只是知道了多边形里面有文字，获得的文字的选择集你没赋给变量供以后用，你要想改文字

  1.             (cond
  2.               ((setq ss2(ssget "wp" pts '((0 . "TEXT"))));功能1、多边形内有文字且不压线，多边形和文字颜色变为随层
  3.                 (command "change" e ss2 "" "p" "C" "BYLAYER" "")
  4.               )
  5.               ((setq ss2 (ssget "f" pts '((0 . "TEXT"))));功能2、多边形有文字但是压线，多边形和文字颜色变为蓝色（未实现文字变蓝色）
  6.                 (command "change" e ss2 "" "p" "C" "5" "")
  7.               )
  8.               (t                              ;功能3、文字在多边形外面（多边形内无文字，或者文字未被多边形包围），多边形和文字都变为绿色。（未实现文字变绿色）
  9.                 (command "change" e "" "p" "C" "3" "")
  10.               )


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

使用道具 举报

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

使用道具 举报

cz78873559
 楼主| 发表于 2013-5-30 02:11:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  2. ;判断多边形内是否有文字：如果没有文字多边形则变绿色，如果文字没有多边形则变绿色。注意文字要全部落到多边形内部（文字压了多边形则认为多边形内没有文字）
  3. (defun c:ee3 ( / e elst ent i pts ss ss1 ss2 x)
  4.   (setvar "CMDECHO" 0)
  5.   (prompt "请选择需要比较的多边形和文字，找出无文字的多边形和无多边形的文字!")
  6.   (setq ss (ssget '((0 . "*POLYLINE,*TEXT")))); 获得选择集  
  7.   (command "chprop" ss "" "p" "C" "3" "") ;选择集先变绿色。在这里怎样只改变选择集文字的颜色呢?
  8.     (progn
  9.       (setq i 0)
  10.       (while (setq e (ssname ss i));遍历选择集得到LWPOLYLINE实体
  11.         (setq ed (entget e))
  12.         (if (and
  13.         ;得到多边形的顶点表
  14.               (setq pts1 (mapcar
  15.                            'cdr
  16.                            (vl-remove-if-not '(lambda (x)
  17.                                                 (= (car x) 10)
  18.                                               ) ed
  19.                            )
  20.                          )
  21.               )
  22.               (setq ss1 (ssget "wp" pts1 '((0 . "TEXT")))) ; 把顶点表送给SS
  23.             )
  24.           (progn
  25.       (command "chprop" ss1 "" "p" "C" "1" "") ; 有多边形的文字变红色
  26.             (command "chprop" e "" "p" "C" "1" "") ; 有文字的多边形变红色
  27.           )
  28.    )
  29.         (setq i (1+ i))
  30.       )
  31.     )
  32. ;;;;;;;;;;;;;;;;;;;;;;;;判断没有文字的多边形和压线的多边形
  33. (prompt "请选择需要比较的多边形(绿色),找出压线的多边形和文字!")
  34.   ;(if (setq ss (ssget '((0 . "*POLYLINE")))) ; 选择多边形
  35.   (if (setq ss (ssget '((0 . "*POLYLINE")(62 . 3)))) ; 选择绿色实体
  36.     (progn
  37.       (setq i 0)
  38.       (while (setq ent (ssname ss i))
  39.         (setq elst (cons ent elst))
  40.         (setq i (1+ i))
  41.       )
  42.       (mapcar
  43.         '(lambda (e)
  44.           (if
  45.             (setq pts
  46.               (mapcar 'cdr
  47.                 (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e))
  48.               )
  49.             )
  50.              (cond
  51.               ((setq ss2(ssget "wp" pts '((0 . "TEXT"))));功能1、多边形内有文字且不压线，多边形和文字颜色变红色
  52.                 (command "change" e ss2 "" "p" "C" "1" "")
  53.               )
  54.               ((setq ss2 (ssget "f" pts '((0 . "TEXT"))));功能2、多边形有文字但是压线，多边形和文字颜色变为蓝色（未实现文字变蓝色）
  55.                 (command "change" e ss2 "" "p" "C" "5" "")
  56.               )
  57.         (t                              ;功能3、多边形内无文字，或者文字未被多边形包围，多边形和文字都变为绿色。（只实现了多边形变色）
  58.                 (command "change" e "" "p" "C" "3" "")
  59.               )
  60.             )
  61.           )
  62.         )
  63.         elst
  64.       )
  65.     )
  66.   )
  67.   (princ)
  68. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-28 14:55 , Processed in 0.175746 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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