求此程序的实现思路

txc6853234

如图，请教大神实现此程序的思路

marting

原来的是块还是都是曲线组成的？你分别点下原来里面的一个曲线，和新变换的一个曲线，看看前后是不是变化了，比如弧线，都变成了一段一段的细小折线。
最好都把夹点显示出来，截下图贴上来。

txc6853234

marting 发表于 2017-6-19 14:01

首先先谢谢你的回答。这个动图也是网上看到的。一个叫迷你建筑的插件里面的功能。

marting

txc6853234 发表于 2017-6-19 14:14

我想，应该是每条曲线都用点模拟， 点去变换到新位置在连接起来实现的。

txc6853234

marting 发表于 2017-6-19 14:17

用转换矩阵是不是可以实现呢？

ll_j

原理应该差不多，只是使用的是直角坐标到极坐标的转换，要复杂一些，前面也没什么人搞过。

/db_自贡黄明儒_

ll_j 发表于 2017-6-19 14:33

5楼就难一些了，以对角线定义一个不垂直的坐标？

仲文玉

差不多的变换，好几位做过类似程序

原地踏步

从他的操作上来看，都是框选，应该不是图块吧。

st788796

前面写过一个矩形变换的，说到底都是点的变换，贴几个主要变换函数，后面都是常规处理的选择窗口，里面的线模拟，等等

2. 
   
3. ;;矩形区域点相对左下角点的相对坐标
   
4. (defun pt_ucs (bp p)
   
5.   (mapcar '- p bp)
   
6. )
   
7. ;;点在矩形内两个方向的比例
   
8. ;;u 矩形长 v 矩形高
   
9. (defun pt_uv (u v p)
   
10.   (list (/ p u) (/ p v) 0.0)
    
11. )
    
12. ;;点在新图形中新坐标
    
13. ;; cu 下部曲线
    
14. ;; cv 上部曲线
    
15. ;; c1 下部曲线长度
    
16. ;; c2 上部曲线长度
    
17. ;; d  两曲线间距
    
18. ;; p  由 pt_uv 得到的 u/v 比例
    
19. (defun pt_map (cu cv c1 c2 d p / p1 p2 d)
    
20.   (setq        p1 (vlax-curve-getpointatdist cu (* (car p) c1));_下面曲线按比例取点 u 方向
    
21.         p2 (vlax-curve-getpointatdist cv (* (car p) c2));_上面曲线按比例取点 u 方向
    
22.         d  (distance p1 p2);_对应点距离
    
23.   )
    
24.   (polar p1 (angle p1 p2) (* (cadr p) d));_v 方向按比例取点
    
25. )

<br /> ;;矩形区域点相对左下角点的相对坐标<br /> (defun pt_ucs (bp p)<br />   (mapcar '- p bp)<br /> )<br /> ;;点在矩形内两个方向的比例<br /> ;;u 矩形长 v 矩形高<br /> (defun pt_uv (u v p)<br />   (list (/ p u) (/ p v) 0.0)<br /> )<br /> ;;点在新图形中新坐标<br /> ;; cu 下部曲线<br /> ;; cv 上部曲线<br /> ;; c1 下部曲线长度<br /> ;; c2 上部曲线长度<br /> ;; d  两曲线间距<br /> ;; p  由 pt_uv 得到的 u/v 比例<br /> (defun pt_map (cu cv c1 c2 d p / p1 p2 d)<br />   (setq        p1 (vlax-curve-getpointatdist cu (* (car p) c1));_下面曲线按比例取点 u 方向<br />         p2 (vlax-curve-getpointatdist cv (* (car p) c2));_上面曲线按比例取点 u 方向<br />         d  (distance p1 p2);_对应点距离<br />   )<br />   (polar p1 (angle p1 p2) (* (cadr p) d));_v 方向按比例取点<br /> )

liunian0524

路过支持楼主

txc6853234

st788796 发表于 2017-6-19 20:09

谢谢大神。看来要好好学习一下矩阵变换了。

yangjian001

非常好的东西呀

tanle0508

做三维填充很有用

st788796

acad中的矩阵转换不是这种算法