设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1783|回复: 11

[曲线] 杆件长度标注及统计

[复制链接]

已领礼包: 1262个

财富等级: 财源广进

发表于 2014-11-11 20:32:35 | 显示全部楼层 |阅读模式
  • 插件名称 : 杆件长度标注及统计
  • 作  者 : st788796
  • 运行环境 :XDRX API 
  • 发布时间 :2014-11-11
  • 命令名称 :xdtb_barLength
  • 插件介绍 :杆件长度标注及统计
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

x
  1. (defun c:xdtb_BarLength        (/ _mkrotate ss lst p)
  2.   (defun _mkrotate (ptl / dim)
  3.     (setq dim (xdrx_dimension_makerotate
  4.                 (car ptl)
  5.                 (cadr ptl)
  6.                 (car ptl)
  7.                 (apply 'angle ptl)
  8.               )
  9.     )
  10.     (xdrx_setpropertyvalue
  11.       dim        "DIMBLK1" "None"    "DIMBLK2" "None"        "DIMDEC"
  12.       0                "DIMSAH"  t            "DIMSD1"  t                "DIMSD2"
  13.       t                "DIMSE1"  t            "DIMSE2"  t
  14.      )
  15.   )
  16.   (if (setq ss (ssget '((0 . "line,lwpolyline"))))
  17.     (progn
  18.       (xd::begin)
  19.       (setq lst        (vl-remove-if
  20.                   '(lambda (x) (xdrx_polyline_hasbulges x))
  21.                   (xdrx_pickset->ents ss)
  22.                 )
  23.             lst        (mapcar        '(lambda (x / pts)
  24.                            (setq pts (xdrx_entity_getstretchpoint x))
  25.                            (if (= (length pts) 2)
  26.                              (list pts)
  27.                              (if (xdrx_curve_isclosed x)
  28.                                (xd::list:snakepair (xd::pnts:close pts))
  29.                                (xd::list:snakepair pts)
  30.                              )
  31.                            )
  32.                          )
  33.                         lst
  34.                 )
  35.       )
  36.       (mapcar '(lambda (x)
  37.                  (mapcar '(lambda (a)
  38.                             (_mkrotate a)
  39.                           )
  40.                          x
  41.                  )
  42.                )
  43.               lst
  44.       )
  45.       (if (setq p (getpoint "\nPosition: "))
  46.         (progn
  47.           (setq        lst (apply 'append lst)
  48.                 lst (mapcar '(lambda (x)
  49.                                (list (fix (+ 0.5 (apply 'distance x))) x)
  50.                              )
  51.                             lst
  52.                     )
  53.                 lst (xd::list:groupbyindex lst 0)
  54.                 lst (mapcar '(lambda (x)
  55.                                (list (car x) (length (cdr x)))
  56.                              )
  57.                             lst
  58.                     )
  59.                 lst (append
  60.                       (mapcar '(lambda (x) (mapcar 'itoa x)) lst)
  61.                       (list
  62.                         (list " " (itoa (apply '+ (mapcar 'cadr lst))))
  63.                         (list
  64.                           "线总长"
  65.                           (itoa        (apply
  66.                                   '+
  67.                                   (mapcar '(lambda (x) (apply '* x)) lst)
  68.                                 )
  69.                           )
  70.                         )
  71.                       )
  72.                     )
  73.                 lst (cons '("长度" "数量") lst)
  74.           )
  75.           (xd::table:make lst p 8.0 4.0)
  76.         )
  77.       )
  78.       (xd::end)
  79.     )
  80.   )
  81.   (princ)
  82. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-11-12 08:09:23 | 显示全部楼层
本帖最后由 hzj268 于 2014-11-12 08:41 编辑

谢了老大,还是你好~:)我用记事本保存了一个lsp文件,能标注只是表格出不来
提示    Position: ; 错误: *error* 函数中出错参数太多

点评

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

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2014-11-12 13:03:03 来自手机 | 显示全部楼层
hzj268 发表于 2014-11-12 08:09
谢了老大,还是你好~我用记事本保存了一个lsp文件,能标注只是表格出不来
提示    Position: ; 错误: *err ...

是函数库原因吧

点评

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-11-12 13:39:09 | 显示全部楼层
本帖最后由 hzj268 于 2014-11-12 13:42 编辑
iLisp 发表于 2014-11-12 13:03
是函数库原因吧

我下的最新的了
11-9和11-8
你说会不会和cad版本有关

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

使用道具 举报

已领礼包: 1262个

财富等级: 财源广进

 楼主| 发表于 2014-11-12 13:53:52 | 显示全部楼层
hzj268 发表于 2014-11-12 13:39
我下的最新的了
11-9和11-8
你说会不会和cad版本有关

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-11-12 13:54:07 | 显示全部楼层
本帖最后由 hzj268 于 2014-11-12 13:55 编辑

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 655个

财富等级: 财运亨通

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 72个

财富等级: 招财进宝

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-2-28 11:01 , Processed in 0.178805 second(s), 40 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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