找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 5899|回复: 15

[专业] 隧道超欠挖线标注

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-11-19 20:35:23 | 显示全部楼层 |阅读模式
  • 插件名称 : 超欠挖线
  • 作  者 : newer
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2018-11-19
  • 命令名称 :xdtb_cqwx
  • 插件介绍 :隧道超欠挖线标注
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

×
本帖最后由 newer 于 2018-11-19 21:03 编辑

有朋友申请:http://bbs.xdcad.net/thread-678707-1-1.html

欠挖线.gif

  1. (defun c:xdtb_cqwx (/ var e1 e2 pts p1 p2 p3 dis dis1 dir dir1 tf)
  2.   (xdrx_begin)
  3.   (xdrx_sysvar_push '("dimzin" 0))
  4.   (if (not #xd_var_global_txtheight)
  5.     (setq #xd_var_global_txtheight 3.5)
  6.   )
  7.   (if (setq var (getreal (xdrx_prompt
  8.                            "\n输入文字高度<"
  9.                            #xd_var_global_txtheight
  10.                            ">:"
  11.                            t
  12.                          )
  13.                 )
  14.       )
  15.     (setq #xd_var_global_txtheight var)
  16.   )
  17.   (if (not #xd_var_global_bits)
  18.     (setq #xd_var_global_bits 3)
  19.   )
  20.   (if (setq var (getint
  21.                   (xdrx_prompt "\n输入小数位数<" #xd_var_global_bits ">:" t)
  22.                 )
  23.       )
  24.     (setq #xd_var_global_bits var)
  25.   )
  26.   (if (and (setq e1 (car
  27.                       (xdrx_entsel "\n拾取实际开挖线<退出>:" '((0 . "*polyline")))
  28.                     )
  29.            )
  30.            (setq e2 (car
  31.                       (xdrx_entsel "\n拾取设计开挖线<退出>:" '((0 . "*polyline,circle,ellipse")))
  32.                     )
  33.            )
  34.       )
  35.     (progn (setq pts (xdrx_getpropertyvalue e1 "vertices"))
  36.            (xd::text:init 1)
  37.            (mapcar '(lambda (x)
  38.                       (setq p1   (xdrx_curve_getclosestpoint e2 x)
  39.                             dis  (distance p1 x)
  40.                             dir  (xdrx_vector_normalize (mapcar '- x p1))
  41.                             dir1 (xdrx_curve_getfirstderiv e2 p1)
  42.                             dir1 (xdrx_vector_perpvector dir1)
  43.                       )
  44.                       (if (setq tf (xdrx_point_isinside x e2))
  45.                         (setq dis1 (strcat "-" (rtos dis 2 #xd_var_global_bits))
  46.                               p3   p1
  47.                         )
  48.                         (setq dis1 (strcat "+" (rtos dis 2 #xd_var_global_bits))
  49.                               p3   x
  50.                         )
  51.                       )
  52.                       (if (xdrx_point_isinside (mapcar '+ p1 dir1) e2)
  53.                         (setq dir1 (xdrx_vector_negate dir1))
  54.                       )
  55.                       (setq p2 (mapcar '+
  56.                                        p3
  57.                                        (xdrx_vector_product dir1 (/ #xd_var_global_txtheight 2.0))
  58.                                )
  59.                       )
  60.                       (if (not (equal dis 0.0 1e-3))
  61.                         (progn (xdrx_text_make
  62.                                  p2
  63.                                  dis1
  64.                                  #xd_var_global_txtheight
  65.                                  (xd::geom:angleformat (xdrx_vector_angle dir))
  66.                                )
  67.                                (if tf
  68.                                  (xdrx_setpropertyvalue (entlast) "color" 1 "WidthFactor" 0.7)
  69.                                  (xdrx_setpropertyvalue (entlast) "color" 2 "WidthFactor" 0.7)
  70.                                )
  71.                                (xd::text:adjust (entlast))
  72.                                (if (< (car dir1) 0)
  73.                                  (xd::text:setalignment (entlast) p2 "mr")
  74.                                  (xd::text:setalignment (entlast) p2 "ml")
  75.                                )
  76.                                (xdrx_circle_make x (/ #xd_var_global_txtheight 7.0))
  77.                         )
  78.                       )
  79.                     )
  80.                    pts
  81.            )
  82.     )
  83.   )
  84.   (xdrx_sysvar_pop)
  85.   (xdrx_end)
  86.   (princ)
  87. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2018-11-20 11:09:29 来自手机 | 显示全部楼层
newer 发表于 2018-11-19 20:35
有朋友申请:http://bbs.xdcad.net/thread-678707-1-1.html

晓东工具箱在哪下载
来自: 微社区

点评

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

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-11-20 11:38:53 | 显示全部楼层
w18089326749 发表于 2018-11-20 11:09
晓东工具箱在哪下载

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

使用道具 举报

已领礼包: 2253个

财富等级: 金玉满堂

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

使用道具 举报

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 5295个

财富等级: 富甲天下

发表于 2018-11-22 11:02:48 | 显示全部楼层
现在真正进行测量的不多了,基本上都是造资料。形式主义害死人呀。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 129个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 129个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-14 19:16 , Processed in 0.491650 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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