设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 945|回复: 7

[源码] API应用 用Text标注线长

[复制链接]

签到天数: 936 天

连续签到: 2 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

发表于 2013-11-18 15:47:18 | 显示全部楼层 |阅读模式

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

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

x
  1. (defun c:tt (/ ss zh)
  2.   (if
  3.     (and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
  4.          (progn
  5.            (if (= (setq
  6.                     zh (getstring (strcat "\n字高<"
  7.                                           (rtos (getvar "textsize") 2 2)
  8.                                           ">: "
  9.                                   )
  10.                        )
  11.                   )
  12.                   ""
  13.                )
  14.              (setq zh (getvar "textsize"))
  15.              (setvar "textsize" (distof zh))
  16.            )
  17.            (setq zh (getvar "textsize"))
  18.          )
  19.     )
  20.      (mapcar '(lambda (x / d pmid an txt1 txt2)
  21.                 (setq d           (xdrx_curve_getdistatpoint
  22.                              x
  23.                              (xdrx_curve_getendpoint x)
  24.                            )
  25.                       pmid (cadr (xdrx_curve_getpoint x))
  26.                       an   (XD::Geom:AngleFormat
  27.                              (angle '(0. 0. 0.)
  28.                                     (vlax-curve-getfirstderiv
  29.                                       x
  30.                                       (vlax-curve-getparamatpoint x pmid)
  31.                                     )
  32.                              )
  33.                            )
  34.                       txt1 (xdrx_text_make
  35.                              pmid
  36.                              "长度是"
  37.                              zh
  38.                              an
  39.                            )
  40.                       txt2 (xdrx_text_make
  41.                              pmid
  42.                              (rtos d)
  43.                              zh
  44.                              an
  45.                            )
  46.                 )
  47.                 (xdrx_text_setvermode txt1 1);_顺序不同会自动调整位置
  48.                 (xdrx_text_sethozmode txt1 1)
  49.                 (xdrx_text_setvermode txt2 3)
  50.                 (xdrx_text_sethozmode txt2 1)
  51.               )
  52.              (xdrx_pickset->ents ss)
  53.      )
  54.   )
  55.   (princ)
  56. )



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

使用道具 举报

签到天数: 6 天

连续签到: 1 天

[LV.2]偶尔看看I

发表于 2014-1-14 13:51:39 | 显示全部楼层
为什么出现这个?

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

使用道具 举报

签到天数: 62 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 589 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

发表于 2017-7-15 18:27:23 | 显示全部楼层

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

使用道具 举报

签到天数: 62 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 1个

财富等级: 恭喜发财

发表于 2017-7-15 18:58:40 | 显示全部楼层

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

使用道具 举报

签到天数: 589 天

连续签到: 5 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

发表于 2017-7-15 20:26:13 | 显示全部楼层

论坛最顶上两个大图片链接,还有,每日插件论坛里面每个插件介绍下面有个 温馨提示 里面的 链接。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 26 天

连续签到: 26 天

[LV.4]偶尔看看III

已领礼包: 63个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 13 天

连续签到: 3 天

[LV.3]偶尔看看II

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-1-21 01:14 , Processed in 0.479750 second(s), 92 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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