设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 69|回复: 10

[文字] 文字加下划线(同时转换成属性块)和 下划线更新 插件

[复制链接]

签到天数: 393 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 6 天前 | 显示全部楼层 |阅读模式
  • 插件名称 : 加下划线
  • 作  者 : Lispboy
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2018-09-12
  • 命令名称 :xdtb_textsetuline
  • 插件介绍 :文字加下划线(同时转换成属性块)和 下划线更新 插件
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
游客,如果您要查看本帖隐藏内容请回复


下划线更新:

下划更新.gif

  1. (defun c:xdtb_textulineupd (/ atts insert box mat xdir ydir p1 p2 p3 p4 p5 p6 dist h el blks)
  2.   (defun _update (blk)
  3.     (setq insert (ssname (ssget "x" (list (cons 2 blk))) 0)
  4.           atts         (xdrx_getpropertyvalue insert "attributeentities")
  5.           box         (xdrx_entity_box atts (cadr (xdrx_entity_getecs insert)))
  6.           mat         (xdrx_matrix_block2wcs insert)
  7.           mat         (xdrx_matrix_inverse mat)
  8.           box         (xdrx_points_transform box mat)
  9.           xdir         '(1 0 0)
  10.           ydir         '(0 1 0)
  11.           p1         (car box)
  12.           p2         (cadr box)
  13.           dist         (distance p1 p2)
  14.           p1         (mapcar '+ p1 (xdrx_vector_product xdir (- (* #ext dist))))
  15.           p2         (mapcar '+ p2 (xdrx_vector_product xdir (* #ext dist)))
  16.           h         (distance (car box) (last box))
  17.           p3         (mapcar '+ p1 (xdrx_vector_product ydir (- (* 0.3333 h))))
  18.           p4         (mapcar '+ p2 (xdrx_vector_product ydir (- (* 0.3333 h))))
  19.           p5         (mapcar '+
  20.                          p3
  21.                          (xdrx_vector_product
  22.                            ydir
  23.                            (- (setq wid (xd::var:getdrawratio)))
  24.                          )
  25.                  )
  26.           p6         (mapcar '+ p4 (xdrx_vector_product ydir (- wid)))
  27.     )
  28.     (xdrx_entity_delete ents)
  29.     (setq el (xdrx_block_getentities blk '((0 . "*polyline"))))
  30.     (xdrx_setpropertyvalue
  31.       (car el)
  32.       "setpointat"
  33.       (list 0 p3)
  34.       "setpointat"
  35.       (list 1 p4)
  36.     )
  37.     (xdrx_setpropertyvalue
  38.       (cadr el)
  39.       "setpointat"
  40.       (list 0 p5)
  41.       "setpointat"
  42.       (list 1 p6)
  43.     )
  44.   )
  45.   (if (setq ss (ssget "x"
  46.                       (list '(0 . "INSERT") (cons 2 "xd_text_xiahua_*"))
  47.                )
  48.       )
  49.     (progn (setq blks (xdrx_entity_getproperty ss "blocktablerecord")
  50.                  blks (xd::list:groupbyindex (mapcar 'car blks) 0)
  51.            )
  52.            (mapcar '(lambda (x) (_update (car x))) blks)
  53.     )
  54.   )
  55.   (princ)
  56. )


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

签到天数: 1928 天

连续签到: 107 天

[LV.Master]伴坛终老I

已领礼包: 5339个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 14 天

连续签到: 4 天

[LV.3]偶尔看看II

已领礼包: 27个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 72 天

连续签到: 72 天

[LV.6]常住居民II

已领礼包: 178个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 621 天

连续签到: 2 天

[LV.9]以坛为家II

已领礼包: 125个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 1259 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 2404个

财富等级: 金玉满堂

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

使用道具 举报

签到天数: 6 天

连续签到: 3 天

[LV.2]偶尔看看I

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

使用道具 举报

签到天数: 389 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 780个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 523 天

连续签到: 17 天

[LV.9]以坛为家II

已领礼包: 903个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 171 天

连续签到: 9 天

[LV.7]常住居民III

已领礼包: 213个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 1033 天

连续签到: 106 天

[LV.10]以坛为家III

已领礼包: 2930个

财富等级: 家财万贯

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-9-18 21:46 , Processed in 0.181277 second(s), 49 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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