设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1639|回复: 7

[教学] API应用 圆统计并制表

[复制链接]

签到天数: 936 天

连续签到: 2 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

发表于 2014-11-13 11:54:51 | 显示全部楼层 |阅读模式

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

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

x
  1. (defun c:tt (/ ss lst a p)
  2.   (if (setq ss (ssget '((0 . "circle"))))
  3.     (progn
  4.       (setq lst        (mapcar        '(lambda (x)
  5.                            (list (* 2.0 (xdrx_getpropertyvalue x "radius"))
  6.                                  x
  7.                            )
  8.                          )
  9.                         (xdrx_pickset->ents ss)
  10.                 )
  11.             lst        (xd::list:groupbyindex lst 1e-3)
  12.             a        65
  13.       )
  14.       (setq lst        (mapcar        '(lambda (x / i)
  15.                            (setq i 1)
  16.                            (mapcar '(lambda (b / p p1 txt)
  17.                                       (setq p        (xdrx_getpropertyvalue (cadr b) "center")
  18.                                             p1        (polar p (- (/ pi 4)) (/ (car x) 2.))
  19.                                             txt        (xdrx_text_make
  20.                                                   p1
  21.                                                   (strcat (chr a) (itoa i))
  22.                                                   (getvar "textsize")
  23.                                                   0.0
  24.                                                 )
  25.                                             i        (1+ i)
  26.                                       )
  27.                                       (xdrx_text_setvermode txt 3)
  28.                                     )
  29.                                    (cdr x)
  30.                            )
  31.                            (setq a (1+ a))
  32.                            (list (chr (1- a))
  33.                                  (strcat "%%c" (rtos (car x) 2 2))
  34.                                  (length (cdr x))
  35.                            )
  36.                          )
  37.                         lst
  38.                 )
  39.       )
  40.       (if (setq p (getpoint "\nPosition: "))
  41.         (xd::table:make (cons '("代码" "直径" "数量") lst) p 8. 3.)
  42.       )
  43.     )
  44.   )
  45.   (princ)
  46. )



上一篇:API应用 提取曲线坐标点并制表
下一篇:API应用 由线段拉伸为矩形
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 611 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 18个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 936 天

连续签到: 2 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 1255个

财富等级: 财源广进

 楼主| 发表于 2014-11-13 19:43:34 | 显示全部楼层
本帖最后由 st788796 于 2014-11-13 19:49 编辑
Lisphk 发表于 2014-11-13 19:08
大师,统计做什么用呢? 能做个演示吗?

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

使用道具 举报

签到天数: 6 天

连续签到: 3 天

[LV.2]偶尔看看I

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

使用道具 举报

签到天数: 89 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 68个

财富等级: 招财进宝

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

使用道具 举报

签到天数: 12 天

连续签到: 1 天

[LV.3]偶尔看看II

已领礼包: 5个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 923 天

连续签到: 3 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2016-12-28 21:11:20 | 显示全部楼层

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

使用道具 举报

签到天数: 194 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 363个

财富等级: 日进斗金

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-2-25 11:33 , Processed in 0.301558 second(s), 92 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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