找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3903|回复: 29

[发布] API应用 相同矩形编号

[复制链接]

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-1-22 17:46:14 | 显示全部楼层 |阅读模式

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

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

×
  1. (defun c:tt (/ ss pts i)
  2.   (if (setq ss (ssget))
  3.     (progn
  4.       (setq pts        (xdrx_curve_getinters ss)
  5.             pts        (XD::List:TableSort
  6.                   (mapcar '(lambda (x) (list x x)) pts)
  7.                   0
  8.                   3
  9.                   1e-3
  10.                 )
  11.             pts        (mapcar '(lambda (x) (mapcar 'cadr x)) pts)
  12.             pts        (mapcar        '(lambda (x)
  13.                            (mapcar 'list x (cdr x))
  14.                          )
  15.                         pts
  16.                 )
  17.             pts        (mapcar
  18.                   '(lambda (x y)
  19.                      (mapcar
  20.                        '(lambda        (a b)
  21.                           (list
  22.                             (list (apply 'distance a)
  23.                                   (distance (car a) (car b))
  24.                             )
  25.                             (xdrx_line_midp (car a) (cadr b))
  26.                           )
  27.                         )
  28.                        x
  29.                        y
  30.                      )
  31.                    )
  32.                   pts
  33.                   (cdr pts)
  34.                 )
  35.             pts        (apply 'append pts)
  36.             pts        (xd::List:GroupByIndex pts 1e-3)
  37.       )
  38.       (setq i 1)
  39.       (mapcar
  40.         '(lambda (x)
  41.            (mapcar '(lambda (a)
  42.                       (xdrx_text_make a (strcat "A-" (itoa i)) 50. 0.)
  43.                     )
  44.                    x
  45.            )
  46.            (setq i (1+ i))
  47.          )
  48.         (mapcar 'cdr pts)
  49.       )
  50.     )
  51.   )
  52.   (princ)
  53. )
rectangbh.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-1-24 08:38:58 | 显示全部楼层
hzj268 发表于 2014-1-24 08:15
老大图已经传上来了

上面程序是针对Line构成的网格,你的每个矩形是封闭 Pline, 不适用上面程序

如果都是是独立的 Pline , 就更简单了

点评

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

使用道具 举报

已领礼包: 1976个

财富等级: 堆金积玉

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

使用道具 举报

已领礼包: 1976个

财富等级: 堆金积玉

发表于 2014-1-22 22:57:39 | 显示全部楼层
dear sir, nice lisp

点评

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-1-23 08:55:06 | 显示全部楼层

什么意思


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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-1-23 10:01:06 来自手机 | 显示全部楼层
hzj268 发表于 2014-1-23 09:04
我不知道怎么弄的没反应

由线构成的NET网格

点评

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-1-23 11:05:54 | 显示全部楼层
本帖最后由 hzj268 于 2014-1-23 11:12 编辑
st788796 发表于 2014-1-23 10:01
由线构成的NET网格

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-1-23 13:22:35 来自手机 | 显示全部楼层
本帖最后由 st788796 于 2014-1-23 13:59 编辑
hzj268 发表于 2014-1-23 11:05
好的我试过    net网格怎么画呀不是用   line    画吗?


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

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-1-23 17:52:18 | 显示全部楼层
就这张...........................

练习.rar

27.41 KB, 下载次数: 8

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

 楼主| 发表于 2014-1-23 19:50:23 来自手机 | 显示全部楼层
kwok 发表于 2014-1-23 17:12
这个网里的每个小矩形的中点用lisp怎么求出来?

求交点,排行列,列组宽,再行组矩形,由矩形对角点求中心

点评

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

使用道具 举报

已领礼包: 1371个

财富等级: 财源广进

发表于 2014-1-24 08:15:45 | 显示全部楼层
st788796 发表于 2014-1-23 19:50
求交点,排行列,列组宽,再行组矩形,由矩形对角点求中心

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 22:37 , Processed in 0.221184 second(s), 63 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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