找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 7818|回复: 47

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

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

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

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

插件详细内容

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

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

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


下划线更新:

下划更新.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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 8611个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 418个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1227个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 127个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 3534个

财富等级: 富可敌国

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

使用道具 举报

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

使用道具 举报

已领礼包: 782个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 1827个

财富等级: 堆金积玉

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

使用道具 举报

已领礼包: 217个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 6202个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 12个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 19:54 , Processed in 0.458718 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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