(XDRX_API)非等比例变换示例

Lispboy

非等比矩阵构建函数 XD::Mat:NonEquidistant 见：http://bbs.xdcad.net/thread-712264-1-1.html


API非等比变换函数：xdrx_entity_xcopy, xdrx_entity_xtransform，支持实体 INSERT,*POLYLINE,LINE,SPLINE,ARC,ELLIPSE,CIRCLE,TEXT,HATCH.....

1. (defun c:tt (/ ss p xscl yscl)
   
2.   (xdrx_begin)
   
3.   (if (and (setq ss (ssget))
   
4.            (setq p (getpoint "\n基点:"))
   
5.            (setq xscl (getreal "\nX比例: "))
   
6.            (setq yscl (getreal "\nY比例: "))
   
7.       )
   
8.     (progn (setq mat (XD::Mat:NonEquidistant p xscl yscl))
   
9.            (xdrx_entity_xcopy ss mat)
   
10.            (xdrx_initget "Y N")
    
11.            (if (= 1 (xdrx_yesorno "是否删除旧对象" 1))
    
12.              (xdrx_entity_delete ss)
    
13.            )
    
14.     )
    
15.   )
    
16.   (xdrx_end)
    
17.   (princ)
    
18. )
    

(defun c:tt (/ ss p xscl yscl)<br />   (xdrx_begin)<br />   (if (and (setq ss (ssget))<br />            (setq p (getpoint "\n基点:"))<br />            (setq xscl (getreal "\nX比例: "))<br />            (setq yscl (getreal "\nY比例: "))<br />       )<br />     (progn (setq mat (XD::Mat:NonEquidistant p xscl yscl))<br />            (xdrx_entity_xcopy ss mat)<br />            (xdrx_initget "Y N")<br />            (if (= 1 (xdrx_yesorno "是否删除旧对象" 1))<br />              (xdrx_entity_delete ss)<br />            )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

onemax

能否加上参考缩放，因为存在不知道比例的情况

onemax

该程序还有个问题是对旋转块的非等比缩放并未按当前坐标系，而是按块未旋转前的坐标进行缩放，比如一个正方形的块旋转一定角度后再非等比缩放本来应该是个平行四边形，结果是一个旋转了的长方形。