设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 81|回复: 1

[源码] API应用-给文字和属性添加前缀示例

[复制链接]

签到天数: 1254 天

连续签到: 6 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 142个

财富等级: 日进斗金

发表于 2017-9-8 12:53:07 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
API代码非常简洁,你不会看到普通的LISP那些:难懂的逻辑,每行代码之间不知道关系。API代码非常结构化,一行代码基本干一件明确的事,几行代码就完成一个工作。


文字属性加前缀(教学).gif

下面用 给 文字和属性添加前缀(添加前缀A-)做例子,看下代码

  1. (defun c:tt ()
  2.   (if (setq ss (ssget '((-4 . "<OR")
  3.                         (0 . "TEXT")
  4.                         (-4 . "<AND")
  5.                         (0 . "INSERT")
  6.                         (66 . 1)
  7.                         (-4 . "AND>")
  8.                         (-4 . "OR>")
  9.                        )
  10.                )
  11.       )
  12.     (progn
  13.       (setq atts (xdrx_entity_getproperty ss "AttributeEntities")) ;;获得选择集所有的属性实体到表
  14.       (setq txts (xdrx_pickset->ents
  15.                    (xd::pickset:getsub ss '((0 . "TEXT")))
  16.                  );;获得选择集所有文字实体到表
  17.       )
  18.       (setq ents (xd::list:flat (append atts txts)));;两表结合成一个实体表并平滑化表
  19.       (mapcar '(lambda (x)
  20.                  (xdrx_setpropertyvalue
  21.                    x
  22.                    "textstring"
  23.                    (strcat "A-" (xdrx_getpropertyvalue x "textstring"))
  24.                  )
  25.                )
  26.               ents
  27.       );;mapcar遍历表,每个实体文字添加前缀A-
  28.     )
  29.   )
  30.   (princ)
  31. )







上一篇:(XDRX_API)非等比例变换示例
下一篇:关于连续复制的问题

评分

参与人数 1D豆 +5 收起 理由
sh_h + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

使用道具 举报

签到天数: 472 天

连续签到: 6 天

[LV.9]以坛为家II

已领礼包: 670个

财富等级: 财运亨通

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

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-5-26 23:46 , Processed in 0.467708 second(s), 70 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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