设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 154|回复: 17

[求助] 【已解决】求一算量插件

[复制链接]

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

发表于 2017-8-19 09:58:48 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 51895991 于 2017-8-21 09:24 编辑

量出长度,乘以用插件给出倍数,结果直接在图上显示。

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

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-19 10:00:45 | 显示全部楼层
每日插件论坛是发布插件成果的地方,求助请去 晓东工具箱、编程申请论坛,悬赏求助论坛和ALISP论坛。

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

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-19 10:04:39 | 显示全部楼层
本帖最后由 newer 于 2017-8-19 10:05 编辑

请截图详细说明。

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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-19 10:10:36 | 显示全部楼层

2.88梁长度,1.16是梁的展开面积,求结果直接显示在图中上,

2.88是长度1.16是梁的展开面积 求结果

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

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-19 10:17:21 | 显示全部楼层

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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-19 11:16:45 | 显示全部楼层

试试
用前,下载安装XDRX API 或者 晓东工具箱,确保运行环境。


  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (xdrx_sysvar_push '("dimzin" 0))
  4.   (if (not #xd_var_textheight)
  5.     (setq #xd_var_textheight 3.5)
  6.   )
  7.   (if (setq h (getreal
  8.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
  9.               )
  10.       )
  11.     (setq #xd_var_textheight h)
  12.   )
  13.   (while (and (setq scl (getreal "\n输入乘数<退出>:"))
  14.               (setq e (car (xdrx_entsel
  15.                              "\n拾取曲线<退出>:"
  16.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
  17.                            )
  18.                       )
  19.               )
  20.          )
  21.          (setq len (xdrx_getpropertyvalue e "length")
  22.                str (rtos len 2 2)
  23.                str (strcat str
  24.                            "*("
  25.                            (rtos scl 2 2)
  26.                            ")="
  27.                            (rtos (* scl len) 2 2)
  28.                            "m2"
  29.                    )
  30.          )
  31.          (xdrx_text_make
  32.            '(0 0 0)
  33.            str
  34.            h
  35.            (xdrx_vector_angle (getvar "ucsxdir"))
  36.          )
  37.          (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
  38.   )
  39.   (xdrx_sysvar_pop)
  40.   (xdrx_end)
  41.   (princ)
  42. )



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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-20 10:49:23 | 显示全部楼层
你好版主,太牛逼了,是这个效果,可否改成这样(4200如何显示4.2)拾取曲线改成量取距离,自己量取,还有个就是只显示结果。就太完美了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-20 12:47:23 | 显示全部楼层

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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-20 13:37:13 | 显示全部楼层

1、文字高度输入0,屏幕显示,大于0,标注文字
2、保留位数 自己修改
  (setq area_bit 2) ;;面积保留位数
  (setq len_bit 1)  ;;长度保留位数

3、如果可以了,编辑下主题帖子,前面粘贴上【已解决】

  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))
  4.   (if (not #xd_var_textheight)
  5.     (setq #xd_var_textheight 3.5)
  6.   )
  7.   (setq area_bit 2) ;;面积保留位数
  8.   (setq len_bit 1)  ;;长度保留位数
  9.   (if (setq h (getreal
  10.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
  11.               )
  12.       )
  13.     (setq #xd_var_textheight h)
  14.   )
  15.   (if (not #xd_var_chengshu)
  16.     (setq #xd_var_chengshu 1.0)
  17.   )
  18.   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))
  19.     (setq #xd_var_chengshu
  20.            scl
  21.     )
  22.   )
  23.   (if (not #xd_var_scl)
  24.     (setq #xd_var_scl 1.0)
  25.   )
  26.   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))
  27.     (setq #xd_var_scl
  28.            scl
  29.     )
  30.   )
  31.   (while (and (xdrx_initget "A")
  32.               (setq e (xdrx_entsel
  33.                              "\n拾取曲线[量取(A]<退出>:"
  34.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
  35.                            )
  36.               )
  37.          )
  38.     (cond
  39.       ((= e "A")
  40.        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))
  41.                 (setq p2 (getpoint p1 "\n第二点<退出>:"))
  42.            )
  43.          (setq len (distance p1 p2))
  44.        )
  45.       )
  46.       (t
  47.        (setq len (xdrx_getpropertyvalue (car e) "length"))
  48.       )
  49.     )
  50.     (setq
  51.       len (/ len #xd_var_scl)
  52.       str (rtos len 2 len_bit)
  53.       str (strcat str
  54.                   "*("
  55.                   (vl-princ-to-string #xd_var_chengshu)
  56.                   ")="
  57.                   (rtos (* #xd_var_chengshu len) 2 area_bit)
  58.                   "m2"
  59.           )
  60.     )
  61.     (if        (<= #xd_var_textheight 0)
  62.       (xdrx_prompt "\n" str)
  63.       (progn (xdrx_text_make
  64.                '(0 0 0)
  65.                str
  66.                #xd_var_textheight
  67.                (xdrx_vector_angle (getvar "ucsxdir"))
  68.              )
  69.              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
  70.       )
  71.     )
  72.   )
  73.   (xdrx_sysvar_pop)
  74.   (xdrx_end)
  75.   (princ)
  76. )


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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 23 天

连续签到: 1 天

[LV.4]偶尔看看III

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2017-8-20 17:45:26 | 显示全部楼层
还要麻烦版主可以这样改下吗?改成只显示结果可以吗?


算出来的公式

算出来的公式

只显示结果

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

使用道具 举报

签到天数: 1028 天

连续签到: 18 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-8-20 18:16:03 | 显示全部楼层

  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))
  4.   (if (not #xd_var_textheight)
  5.     (setq #xd_var_textheight 3.5)
  6.   )
  7.   (setq area_bit 2) ;;面积保留位数
  8.   (setq len_bit 1)  ;;长度保留位数
  9.   (if (setq h (getreal
  10.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
  11.               )
  12.       )
  13.     (setq #xd_var_textheight h)
  14.   )
  15.   (if (not #xd_var_chengshu)
  16.     (setq #xd_var_chengshu 1.0)
  17.   )
  18.   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))
  19.     (setq #xd_var_chengshu
  20.            scl
  21.     )
  22.   )
  23.   (if (not #xd_var_scl)
  24.     (setq #xd_var_scl 1.0)
  25.   )
  26.   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))
  27.     (setq #xd_var_scl
  28.            scl
  29.     )
  30.   )
  31.   (while (and (xdrx_initget "A")
  32.               (setq e (xdrx_entsel
  33.                              "\n拾取曲线[量取(A]<退出>:"
  34.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
  35.                            )
  36.               )
  37.          )
  38.     (cond
  39.       ((= e "A")
  40.        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))
  41.                 (setq p2 (getpoint p1 "\n第二点<退出>:"))
  42.            )
  43.          (setq len (distance p1 p2))
  44.        )
  45.       )
  46.       (t
  47.        (setq len (xdrx_getpropertyvalue (car e) "length"))
  48.       )
  49.     )
  50.     (setq
  51.       len (/ len #xd_var_scl)
  52.       str (rtos len 2 len_bit)
  53.       str1 (strcat str
  54.                   "*("
  55.                   (vl-princ-to-string #xd_var_chengshu)
  56.                   ")="
  57.                   (rtos (* #xd_var_chengshu len) 2 area_bit)
  58.                   "m2"
  59.           )
  60.       str (strcat (rtos (* #xd_var_chengshu len) 2 area_bit)
  61.                   "m2"
  62.           )
  63.       )
  64.     (if        (<= #xd_var_textheight 0)
  65.       (xdrx_prompt "\n" str1)
  66.       (progn (xdrx_text_make
  67.                '(0 0 0)
  68.                str
  69.                #xd_var_textheight
  70.                (xdrx_vector_angle (getvar "ucsxdir"))
  71.              )
  72.              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
  73.       )
  74.     )
  75.   )
  76.   (xdrx_sysvar_pop)
  77.   (xdrx_end)
  78.   (princ)
  79. )


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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-6-22 15:24 , Processed in 0.218908 second(s), 61 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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