练习:此图的参数化

灬丷灬

高手好多,学习学习多谢分享:lol

st788796

newer 发表于 昨天 23:11

                               
登录/注册后可看大图

你还是没仔细看{:soso_e113:}，程序里面从来没算半径到底等于什么，里面的半径30给什么都可以，1,2,3000都行，都是用图形自己得到的。不能少一次BOX。

我说的是画完圆接着把box也画出了，这时用一次entity_box,transform的选择集为圆及pline来自: Android客户端

newer

st788796 发表于 2013-8-16 13:27
我说的是画完圆接着把box也画出了，这时用一次entity_box,transform的选择集为圆及pline

因为最后还要取BOX点，标注的，所以最后还的需要以下BOX，如果之前保存点，在变换点，在取点，代码不比取BOX少。

Free-Lancer

对实体的操作总没有数学计算快

1. (setq ss  (xdrx_getss)
   
2.       box (xdrx_entity_box ss) ;_所有圆的包围盒
   
3.       len (distance (car box) (cadr box)) ;_底边的长度和输入的距离比值得到缩放系数
   
4.       scl (/ dis len)
   
5.       mat (xdrx_matrix_setscale mat0 scl pt)
   
6. ) ;_以基点PT构建缩放矩阵)
   
7. (apply 'xdrx_polyline_make (cons t box))
   
8. (ssadd (entlast) ss)
   
9. (xdrx_entity_transform ss mat)
   
10. (xdrx_dimension_MakeAlign
    
11.   (xdrx_point_transform (car box) mat)
    
12.   (xdrx_point_transform (cadr box) mat)
    
13.   (mapcar '- pt '(0 20 0))
    
14. )

(setq ss  (xdrx_getss)<br />       box (xdrx_entity_box ss) ;_所有圆的包围盒<br />       len (distance (car box) (cadr box)) ;_底边的长度和输入的距离比值得到缩放系数<br />       scl (/ dis len)<br />       mat (xdrx_matrix_setscale mat0 scl pt)<br /> ) ;_以基点PT构建缩放矩阵)<br /> (apply 'xdrx_polyline_make (cons t box))<br /> (ssadd (entlast) ss)<br /> (xdrx_entity_transform ss mat)<br /> (xdrx_dimension_MakeAlign<br />   (xdrx_point_transform (car box) mat)<br />   (xdrx_point_transform (cadr box) mat)<br />   (mapcar '- pt '(0 20 0))<br /> )