找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2935|回复: 29

[研讨] 由点的比例变换到曲线比例变换

[复制链接]
发表于 2015-2-5 14:55:41 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 Free-Lancer 于 2015-2-5 15:00 编辑

在CAD中点的比例变换是按下面规则进行
  1. (defun pnt:scale (pt bp scl)
  2.   (mapcar '+ bp (mapcar '* scl (mapcar '- pt bp)))
  3. )

有了点的变换规则,就可以计算 Curve 类的变换了。
Curve 就是有点描述的实体,将控制点进行变换后即可生成新的变换后实体,这个计算和做 Block 后按指定比例插入再分解得到的结果是一致的
Line 的比例变换
游客,如果您要查看本帖隐藏内容请回复

Circle 的比例变换(非等比,等比变换直接用 scale)
游客,如果您要查看本帖隐藏内容请回复

ARC Ellipse 也可以按照这个规则计算新的点再生成或 Entmod,Lwpolyline 是由 Line 和 arc 组合而成,可以分别生成
3dpolyline将各点变换后重新生成
nscl.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2015-2-5 16:07:45 | 显示全部楼层
来学习学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2015-2-5 16:22:37 | 显示全部楼层
高飞也把圆变换成了椭圆,不过没你说得细。这么高深的东西,全靠你们了,我知道怎么用就不错了{:soso_e113:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

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

使用道具 举报

 楼主| 发表于 2015-2-5 20:28:33 | 显示全部楼层
补上 ARC 的变换,高飞的"椭圆论"对椭圆有详细论述,不过其中的 Ent:Make_EllipseArc 函数说明 an1 an2 为角度有误,应为参数
ARC 非等比变换用到了角度转参数
  1. ;;;=====================================================================
  2. ;;; 功能: 从某一点获取椭圆的参数(纯数学法)                              
  3. ;;; 输入: 椭圆上的一点和构成椭圆的参数:中心,半长轴,半短轴和旋转角     
  4. ;;; 输出: 此点的参数值                                             
  5. ;;;=====================================================================
  6. (defun ELL:GetParam (pt Cen a b ang / x y p)
  7.   (setq p (mapcar '- pt cen))
  8.   (setq x (car p))
  9.   (setq y (cadr p))
  10.   (atan
  11.     (* a (- (* y (cos ang)) (* x (sin ang))))
  12.     (* b (+ (* x (cos ang)) (* y (sin ang))))
  13.   )
  14. )

ARC 变换,纯参数计算 + Entmake
游客,如果您要查看本帖隐藏内容请回复
arcscl.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

 楼主| 发表于 2015-2-5 20:48:05 | 显示全部楼层
本帖最后由 Free-Lancer 于 2015-2-5 20:49 编辑

LWPOLYLINE 不含 ARC 的变换,含 ARC 时需要分段变换或者 Explode 后分段变换
  1. (defun c:tt (/ bp e xscl yscl)
  2.   (if (and (setq bp (getpoint "\nBase Point: "))
  3.            (setq e (car (entsel "\nPick Pline: ")))
  4.            (setq xscl (getreal "\nXScaleFactor: "))
  5.            (setq yscl (getreal "\nYScaleFactor: "))
  6.       )
  7.     (pline:scale e (list (car bp) (cadr bp)) (list xscl yscl))
  8.   )
  9.   (princ)
  10. )

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

使用道具 举报

已领礼包: 3700个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 4个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 1757个

财富等级: 堆金积玉

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

使用道具 举报

已领礼包: 5578个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 1857个

财富等级: 堆金积玉

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

使用道具 举报

已领礼包: 1336个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 117个

财富等级: 日进斗金

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 17:26 , Processed in 0.523718 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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