[原创]：图形自由变换，简单的用block 不等比缩放实现

cadmap

下来试试看,

wzx21_ren

长见识了~

hugesb

好东西啊，，谢谢

zhengchuan1971

下来看看啊

timnis

不等比的炸不了吧！有高手讲解一下怎么炸吗？另外2004以上版本好像能在属性里调x,,y,z的比例吧？不明白什么是45度变形？

ibobo

好东西

cy956

谁的论文里有，时间长记不清了。程序是这个意思

用原作者的思路写了，没用过一次，连格式都没去调整，刚才好不容易找出来了。

2. 
   
3. (defun c:nqx(/ 45D A A1 A2 P0 P1);;;水平方向边点扭曲平移;;
   
4.   ;;;扭曲后，xy的高度不变，相当于X方向上边点扭曲平移;;
   
5.   (prompt "\n只扭曲，边长不改。选择要做扭曲的实体:")
   
6.   (setq s-blk(ssget)
   
7.         p0(getpoint "\n选择原点:")
   
8.         p1(getpoint p0 "\n选择 Y轴 的扭曲角点:")
   
9.         a(angle p0 p1) a1(- a:pi2 a);;扭曲角;;
   
10.         a2(/ a1 2.0) 45d(/ pi 4.0))
    
11.   (mapcar 'setvar '("pickbox""aperture""osmode""expert""filedia")'(0 1 0 5 0))
    
12.   (cy_nq_blk s-blk p0 (cos a1) 1 t)
    
13.   (command "rotate" s-blk "" p0 -45)
    
14.   (cy_nq_blk s-blk p0 (/ (cos (- 45d a2))(cos 45d)) (/ (sin (- 45d a2))(sin 45d)) t)
    
15.   (command "rotate" s-blk "" p0 (r2d (- 45d a2)))
    
16.   (cy_nq_blk s-blk p0 (/ 1(cos a1)) (/ 1(cos a1)) t)
    
17.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode""expert""filedia")
    
18.         '(1 4 4 32 1 0 1))
    
19. )
    
20. 
    
21. (defun cy_nq_blk(s p x y k / BLN E)
    
22.   ;;系统变量要在外面设;;
    
23.   (mapcar 'setvar '("pickbox""aperture""osmode""expert""filedia")'(0 1 0 5 0))
    
24.   (setq        bln-in(if bln-in bln-in 0)
    
25.         bln-in(1+ bln-in)
    
26.         bln(strcat (#tim-nam) (itoa bln-in))
    
27.         e(entlast))
    
28.   (command "block" bln p s ""
    
29.            "insert" bln p x y 0)
    
30.   (if k (command "explode" "l" ""))
    
31.   (setq s-blk(get-ss  e))
    
32. )
    
33. 
    
34. 
    

<br /> (defun c:nqx(/ 45D A A1 A2 P0 P1);;;水平方向边点扭曲平移;;<br />   ;;;扭曲后，xy的高度不变，相当于X方向上边点扭曲平移;;<br />   (prompt "\n只扭曲，边长不改。选择要做扭曲的实体:")<br />   (setq s-blk(ssget)<br />         p0(getpoint "\n选择原点:")<br />         p1(getpoint p0 "\n选择 Y轴 的扭曲角点:")<br />         a(angle p0 p1) a1(- a:pi2 a);;扭曲角;;<br />         a2(/ a1 2.0) 45d(/ pi 4.0))<br />   (mapcar 'setvar '("pickbox""aperture""osmode""expert""filedia")'(0 1 0 5 0))<br />   (cy_nq_blk s-blk p0 (cos a1) 1 t)<br />   (command "rotate" s-blk "" p0 -45)<br />   (cy_nq_blk s-blk p0 (/ (cos (- 45d a2))(cos 45d)) (/ (sin (- 45d a2))(sin 45d)) t)<br />   (command "rotate" s-blk "" p0 (r2d (- 45d a2)))<br />   (cy_nq_blk s-blk p0 (/ 1(cos a1)) (/ 1(cos a1)) t)<br />   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode""expert""filedia")<br />         '(1 4 4 32 1 0 1))<br /> )<br /> <br /> (defun cy_nq_blk(s p x y k / BLN E)<br />   ;;系统变量要在外面设;;<br />   (mapcar 'setvar '("pickbox""aperture""osmode""expert""filedia")'(0 1 0 5 0))<br />   (setq        bln-in(if bln-in bln-in 0)<br />         bln-in(1+ bln-in)<br />         bln(strcat (#tim-nam) (itoa bln-in))<br />         e(entlast))<br />   (command "block" bln p s ""<br />            "insert" bln p x y 0)<br />   (if k (command "explode" "l" ""))<br />   (setq s-blk(get-ss  e))<br /> )<br /> <br /> <br />

zhuxiaoming

是什么啊,下来看看

xyp1964

缺少(#tim-nam)函数

xuyu

可不可以变形时文字和数字不变啊