设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2269|回复: 9

[几何] (XD::Geom:BOX->9PT) 包围盒得到9个特征点函数

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-7-27 10:13:28 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Geom:BOX->9PT
调用格式: (XD::Geom:BOX->9PT box)
参数说明: BOX --- 点表(矩形框4顶点)
返回值: 点表
函数简介: 从包围盒得到9个特征点
函数来源: 原创
函数作者: Lispboy
适用版本: XDRX API 
最后更新时间: 2013-07-27
备注: -
演示图片:

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

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

x
  1. (defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8)
  2.   (setq p0 (nth 0 box)
  3.         p2 (nth 1 box)
  4.         p1 (xdrx_midp p0 p2)
  5.         p4 (nth 2 box)
  6.         p3 (xdrx_midp p2 p4)
  7.         p6 (nth 3 box)
  8.         p5 (xdrx_midp p4 p6)
  9.         p7 (xdrx_midp p0 p6)
  10.         p8 (xdrx_midp p0 p4)
  11.   )
  12.   (list p0 p1 p2 p3 p4 p5 p6 p7 p8)
  13. )


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

已领礼包: 363个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1264个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 363个

财富等级: 日进斗金

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

使用道具 举报

发表于 2014-3-11 14:33:53 | 显示全部楼层
老大 找不到xdrx_midp这个函数,能否发个链接或者直接把xdrx_midp的内容发上来一下呢  谢谢了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1264个

财富等级: 财源广进

发表于 2014-3-11 16:29:12 来自手机 | 显示全部楼层
拉契 发表于 2014-3-11 14:33
老大 找不到xdrx_midp这个函数,能否发个链接或者直接把xdrx_midp的内容发上来一下呢  谢谢了!

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

使用道具 举报

发表于 2014-3-11 17:03:26 | 显示全部楼层
谢谢老大
(defun xdrx_midp(p1 p2);;求两点的中点
  (mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 478个

财富等级: 日进斗金

发表于 2014-3-14 14:50:03 | 显示全部楼层
本帖最后由 aeo 于 2014-3-14 14:58 编辑

  1. ;;;返回9个点,带索引,索引值和Mtext的dxf71相同
  2. (defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8 midppp)
  3. (defun midppp(a b)(mapcar '(lambda(x y)(* 0.5(+ x y))) a b))
  4.   (setq p0 (nth 0 box)
  5.         p2 (nth 1 box)
  6.         p1 (midppp  p0 p2)
  7.         p4 (nth 2 box)
  8.         p3 (midppp  p2 p4)
  9.         p6 (nth 3 box)
  10.         p5 (midppp  p4 p6)
  11.         p7 (midppp  p0 p6)
  12.         p8 (midppp  p0 p4)
  13.   )
  14.   (mapcar 'cons '(1 2 3 4 5 6 7 8 9) (list p6 p5 p4 p7 p8 p3 p0 p1 p2))
  15. )

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

使用道具 举报

已领礼包: 1264个

财富等级: 财源广进

发表于 2014-3-14 15:12:33 | 显示全部楼层
本帖最后由 st788796 于 2014-3-14 15:24 编辑

这个好, 用的时候 assoc

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-4-11 18:40 , Processed in 0.440309 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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