找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2134|回复: 5

[曲线] 单注封闭多边形面积(单位亩/平/公顷可选)

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-5-16 21:38:36 | 显示全部楼层 |阅读模式
  • 插件名称 : 单注封闭多边形面积
  • 作  者 : Newer
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2016-05-16
  • 命令名称 :XDTB_POLYArea
  • 插件介绍 :单注封闭多边形面积
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

×
[sell=3]
  1. (defun c:XDTB_POLYArea ( / a d dynpt e e1 ge lastpnt x)
  2.   (defun _callback(dynpt)
  3.      (xdrx_entity_move e1 lastpnt dynpt)
  4.      (setq lastpnt dynpt)
  5.   )
  6.   (if (setq e (car (xdrx_entsel "\n拾取封闭的曲线<退出>:" '((0 . "*POLYLINE,CIRCLE,SPLINE,ELLIPSE")))))
  7.     (progn
  8.       (xdrx_begin)
  9.       (xdrx_initget "P G M")
  10.       (initget "P G M")
  11.       (if (not (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:")))
  12.         (setq ge "M")
  13.       )
  14.       (setq a (car (xdrx_getarea e)))
  15.       (cond
  16.          ((= ge "M")
  17.             (setq a (/ a 666.666667) d "亩")
  18.          )
  19.          ((= ge "P")
  20.            (setq d "平")
  21.          )
  22.          ((= ge "G")
  23.             (setq a (/ a 10000.0) d "公顷")
  24.          )
  25.       )
  26.       (setq e1 (xdrx_text_make '(0 0) (xdrx_prompt (rtos a 2 1) d t) 3.5 0.0))
  27.       (setq lastpnt '(0 0 0))
  28.       (xdrx_pointmonitor "_CALLBACK")
  29.       (if (not (getpoint "\n标注位置<中心>:"))
  30.          (progn
  31.             (setq x (xd::geom:get9pt e 5))
  32.             (xdrx_entity_move e1 (xd::geom:get9pt e1 5)  x)
  33.          )
  34.       )
  35.       (xdrx_pointmonitor)
  36.       (xdrx_end)
  37.     )
  38.   )
  39.   (princ)
  40. )


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

已领礼包: 155个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 155个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 382个

财富等级: 日进斗金

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

使用道具 举报

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

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

发表于 2021-11-7 23:58:06 | 显示全部楼层
问一下,(平米、公顷、亩)都是保留一位小数,怎么改成保留三位小数啊!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 09:45 , Processed in 0.436418 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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