设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

12345下一页
返回列表
查看: 1377|回复: 62

[工具] 非模式对话框的测量长度和面积的工具

  [复制链接]

签到天数: 1169 天

连续签到: 3 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 142个

财富等级: 日进斗金

发表于 2016-7-8 15:38:28 | 显示全部楼层 |阅读模式

  • 插件名称 : 长度面积
  • 作  者 : XDSoft
  • 运行环境 :XDRX API OpenDCL 晓东工具箱 
  • 发布时间 :2016-07-08
  • 命令名称 :XDTB_LengthArea
  • 插件介绍 :测量长度和面积
    1、支持绘图单位,根据米或者毫米绘图,得到正确值
    2、可以局部测量曲线的长度
    3、有当前值和累加值的统计
    4、测绘标注可选择保留或删除
    。。。
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

x
测量长度和面积
1、支持绘图单位,根据米或者毫米绘图,得到正确值
2、可以局部测量曲线的长度
3、有当前值和累加值的统计
4、测绘标注可选择保留或删除
5、测量过程中可以回退
6、可批量、可单选、可局部
。。。

需要的函数到开源LISP函数库论坛下载:1、XD::Drag:CallBackSetMouseMove
2、XD::Drag:CallBackSetMouseLeftClick
3、XD::Doc:GetPolygon

测量面积部分的演示:

测量长度面积(2).gif

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





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

使用道具 举报

签到天数: 20 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 4个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 20 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 4个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 1694 天

连续签到: 233 天

[LV.Master]伴坛终老I

已领礼包: 4682个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 1694 天

连续签到: 233 天

[LV.Master]伴坛终老I

已领礼包: 4682个

财富等级: 富可敌国

发表于 2016-7-11 11:44:03 | 显示全部楼层
本帖最后由 liuyj 于 2016-7-11 11:45 编辑

提示“password incorrect”是咋回事?

点评

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

使用道具 举报

签到天数: 898 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2016-7-11 13:45:48 | 显示全部楼层
liuyj 发表于 2016-7-11 11:44
提示“password incorrect”是咋回事?

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

使用道具 举报

签到天数: 1694 天

连续签到: 233 天

[LV.Master]伴坛终老I

已领礼包: 4682个

财富等级: 富可敌国

发表于 2016-7-11 14:03:00 | 显示全部楼层
加载程序后,输入命令就提示了,接着出来一个对话框说“OPENDCL函数参数处理发生异常”,不允许NIL值。然后就退出

点评

你用OPENDCL是8.05版本吗? 第一次有提示,再执行还有提示吗?  详情 回复 发表于 2016-7-11 16:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 898 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2016-7-11 16:05:54 | 显示全部楼层
liuyj 发表于 2016-7-11 14:03
加载程序后,输入命令就提示了,接着出来一个对话框说“OPENDCL函数参数处理发生异常”,不允许NIL值。然后 ...

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

使用道具 举报

签到天数: 1694 天

连续签到: 233 天

[LV.Master]伴坛终老I

已领礼包: 4682个

财富等级: 富可敌国

发表于 2016-7-11 16:13:10 | 显示全部楼层
“OpenDCL Runtime [8.0.5.0] 已加载。"没问题。执行几次都一样

点评

你把初始化部分里面的 **setvalue 一个一个加入,看看在加入哪个后,出来提示? 上面这个初始化函数,你把下面带颜色的,上面的删除,然后一次加一行,看看到哪行出错 (dcl-ComboBox-SetCurSel XD-CU  详情 回复 发表于 2016-7-11 16:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 898 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2016-7-11 16:27:08 | 显示全部楼层
liuyj 发表于 2016-7-11 16:13
“OpenDCL Runtime [8.0.5.0] 已加载。"没问题。执行几次都一样

你把初始化部分里面的 **setvalue 一个一个加入,看看在加入哪个后,出来提示?

  1.   (defun c:XD-CURVE-LENGTH#OnInitialize (/)
  2.     (setq cur-ents nil)
  3.     (if (not #xd-var-global-curve-length-tatallength)
  4.       (setq #xd-var-global-curve-length-tatallength 0.0)
  5.     )
  6.     (setq ent-nums 0)
  7.     (if (not #xd-var-global-curve-length-tatalarea1)
  8.       (setq #xd-var-global-curve-length-tatalarea1 0.0)
  9.     )
  10.     (dcl-Control-SetTitleBarText XD-CURVE-LENGTH "长度面积")
  11.     (if (not #xd-odcl-curve-length-data)
  12.       (setq #xd-odcl-curve-length-data (list '("COLOR" 3) '("WIDTH" 0.0) '
  13.                                              ("HEIGHT" 6) '
  14.                                              ("ISERASE" 0)
  15.                                        )
  16.       )
  17.     )
  18.     (dcl-ComboBox-SetCurSel XD-CURVE-LENGTH-COLOR (cadr (assoc "COLOR" #xd-odcl-curve-length-data)))
  19.     (dcl-Control-SetText XD-CURVE-LENGTH-WIDTH (vl-prin1-to-string
  20.                                                                    (cadr
  21.                                                                          (assoc "WIDTH" #xd-odcl-curve-length-data)
  22.                                                                    )
  23.                                                )
  24.     )
  25.     (dcl-Control-SetText XD-CURVE-LENGTH-HEIGHT (vl-prin1-to-string
  26.                                                                     (cadr
  27.                                                                           (assoc "HEIGHT" #xd-odcl-curve-length-data)
  28.                                                                     )
  29.                                                 )
  30.     )
  31.     (dcl-Control-SetText XD-CURVE-LENGTH-CDISTANCE "0")
  32.     (dcl-Control-SetText XD-CURVE-LENGTH-CAREA1 "0")
  33.     (dcl-Control-SetText XD-CURVE-LENGTH-carea2 "0")
  34.     (dcl-Control-SetText XD-CURVE-LENGTH-DISTANCE (rtos #xd-var-global-curve-length-tatallength
  35.                                                         2 1
  36.                                                   )
  37.     )
  38.     (dcl-Control-SetText XD-CURVE-LENGTH-AREA1 (rtos #xd-var-global-curve-length-tatalarea1
  39.                                                      2 1
  40.                                                )
  41.     )
  42.     (dcl-Control-SetText XD-CURVE-LENGTH-AREA2 (rtos (* #xd-var-global-curve-length-tatalarea1
  43.                                                         666.6666667
  44.                                                      ) 2 1
  45.                                                )
  46.     )
  47.     (dcl-Control-SetValue XD-CURVE-LENGTH-ISERASE (cadr (assoc "ISERASE" #xd-odcl-curve-length-data)))
  48.     (princ)
  49.   )


上面这个初始化函数,你把下面带颜色的,上面的删除,然后一次加一行,看看到哪行出错


   (dcl-ComboBox-SetCurSel XD-CURVE-LENGTH-COLOR (cadr (assoc "COLOR" #xd-odcl-curve-length-data)))
    (dcl-Control-SetText XD-CURVE-LENGTH-WIDTH (vl-prin1-to-string
                                                                   (cadr
                                                                         (assoc "WIDTH" #xd-odcl-curve-length-data)
                                                                   )
                                               )
    )
    (dcl-Control-SetText XD-CURVE-LENGTH-HEIGHT (vl-prin1-to-string
                                                                    (cadr
                                                                          (assoc "HEIGHT" #xd-odcl-curve-length-data)
                                                                    )
                                                )
    )
    (dcl-Control-SetText XD-CURVE-LENGTH-CDISTANCE "0")
    (dcl-Control-SetText XD-CURVE-LENGTH-CAREA1 "0")
    (dcl-Control-SetText XD-CURVE-LENGTH-carea2 "0")
    (dcl-Control-SetText XD-CURVE-LENGTH-DISTANCE (rtos #xd-var-global-curve-length-tatallength
                                                        2 1
                                                  )
    )
    (dcl-Control-SetText XD-CURVE-LENGTH-AREA1 (rtos #xd-var-global-curve-length-tatalarea1
                                                     2 1
                                               )
    )
    (dcl-Control-SetText XD-CURVE-LENGTH-AREA2 (rtos (* #xd-var-global-curve-length-tatalarea1
                                                        666.6666667
                                                     ) 2 1
                                               )
    )
    (dcl-Control-SetValue XD-CURVE-LENGTH-ISERASE (cadr (assoc "ISERASE" #xd-odcl-curve-length-data)))
[/code]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1694 天

连续签到: 233 天

[LV.Master]伴坛终老I

已领礼包: 4682个

财富等级: 富可敌国

发表于 2016-7-11 18:40:42 | 显示全部楼层
运行(dcl-project-import odcl-length)这句出现“password incorrect”,运行(dcl-Control-SetTitleBarText XD-CURVE-LENGTH "长度面积")时出现“OPENDCL函数参数处理发生异常”,“不允许NIL值”,好像是没找到对话框文件。

点评

修改了代码,重新拷贝回去试试。  详情 回复 发表于 2016-7-11 21:52
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 936 天

连续签到: 2 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

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

使用道具 举报

签到天数: 1169 天

连续签到: 3 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 142个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 710 天

连续签到: 3 天

[LV.9]以坛为家II

已领礼包: 114个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 536 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 1182个

财富等级: 财源广进

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-1-24 05:44 , Processed in 1.539999 second(s), 133 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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