[LISP程序]：在不同方向互动拉伸块比例

snsj

2. 
   
3. ;;;自由拉伸块的比例
   
4. ;;;制作:SNSJ
   
5. ;;;stb.lsp
   
6. (defun c:stb (/ apple_pd apple_ent apple_getp apple_getp1 BLKREF XSCALE YSCALE)
   
7. (vl-load-com)
   
8.   (initget "A")
   
9.   (setq apple_pd (getkword "\n$等比例拉伸$<回车键>/不等比拉伸<a>:"))
   
10.   (cond
    
11.     ((null apple_pd)
    
12.        (setq apple_ent (entsel "\n选择要变比例的块:")
    
13.         apple_getp (getpoint "\n&点取基点&:")
    
14.         apple_getp1 (getpoint "\n&点取移动点&:")
    
15.   )
    
16. (command ".scale" apple_ent "" apple_getp "R" apple_getp apple_getp1 pause)
    
17.      )
    
18.     (t
    
19.   (setq apple_ent (entsel "\n选择要变比例的块:")
    
20.         apple_getp (getpoint "\n&点取基点&:")
    
21.         apple_getp1 (getpoint "\n&点取移动点&:")
    
22.   )
    
23. (command ".scale" apple_ent "" apple_getp "R" apple_getp apple_getp1 pause)
    
24. (setq BLKREF (vlax-ename->vla-object(car apple_ent)))
    
25. (setq XSCALE (vla-get-XScaleFactor BLKREF)
    
26.       YSCALE (vla-get-yScaleFactor BLKREF)
    
27.       )
    
28. (cond
    
29.   ((< (abs(- (car apple_getp) (car apple_getp1)))
    
30.    (abs(- (cadr apple_getp) (cadr apple_getp1))))
    
31.    (vla-put-xscalefactor BLKREF 1)
    
32.    )
    
33.   (t
    
34.    (vla-put-yscalefactor BLKREF 1)
    
35.    )
    
36.   )
    
37.      )   
    
38. )
    
39.   )
    

<br /> ;;;自由拉伸块的比例<br /> ;;;制作:SNSJ<br /> ;;;stb.lsp<br /> (defun c:stb (/ apple_pd apple_ent apple_getp apple_getp1 BLKREF XSCALE YSCALE)<br /> (vl-load-com)<br />   (initget "A")<br />   (setq apple_pd (getkword "\n$等比例拉伸$<回车键>/不等比拉伸<a>:"))<br />   (cond<br />     ((null apple_pd)<br />        (setq apple_ent (entsel "\n选择要变比例的块:")<br />         apple_getp (getpoint "\n&点取基点&:")<br />         apple_getp1 (getpoint "\n&点取移动点&:")<br />   )<br /> (command ".scale" apple_ent "" apple_getp "R" apple_getp apple_getp1 pause)<br />      )<br />     (t<br />   (setq apple_ent (entsel "\n选择要变比例的块:")<br />         apple_getp (getpoint "\n&点取基点&:")<br />         apple_getp1 (getpoint "\n&点取移动点&:")<br />   )<br /> (command ".scale" apple_ent "" apple_getp "R" apple_getp apple_getp1 pause)<br /> (setq BLKREF (vlax-ename->vla-object(car apple_ent)))<br /> (setq XSCALE (vla-get-XScaleFactor BLKREF)<br />       YSCALE (vla-get-yScaleFactor BLKREF)<br />       )<br /> (cond<br />   ((< (abs(- (car apple_getp) (car apple_getp1)))<br />    (abs(- (cadr apple_getp) (cadr apple_getp1))))<br />    (vla-put-xscalefactor BLKREF 1)<br />    )<br />   (t<br />    (vla-put-yscalefactor BLKREF 1)<br />    )<br />   )<br />      )    <br /> )<br />   )<br />

下载地址：http://www.xdcad.net/modrator/fi ... 0822181913_gbkb.swf

<embed src=http://www.xdcad.net/modrator/file_upload/4508/20030822181913_gbkb.swf quality=high width=400 height=300 loop=true type="application/x-shockwave-flash">
</embed>

wowoaicad

真是一个不错的工具。

tuger

呵呵，不错啊，哦原来斑竹也是用理正的啊

light_dream

请问斑竹，你所谓的“不同方向”是指在X轴和Y轴均可拉伸还是指在360度的范围内可以向任意一个角度拉伸？

snsj

TO:tuger
理正的免费注册么：），还不错
TO:light_dream
可以把块等比拉伸到指定位置，也可以只拉伸X/Y轴的比例根据两点在X/Y轴的变化大小确定不等比拉伸的方向

light_dream

我也正编一个程序，我要实现的是将一组平行的或部分平行的线使其在垂直平行线的方向按比例伸缩，在平行于平行线的方向上保持不变。当平行线是水平的时候没问题，对块“scale”，指定不同的X、Y比例就可实现，但在平行线与X轴有一定的角度的时候，实现垂直平行线的方向按比例伸缩就比较困难，我试用了你的程序，好象实现不了这一功能！

aeo

最初由 light_dream 发布
[B]我也正编一个程序，我要实现的是将一组平行的或部分平行的线使其在垂直平行线的方向按比例伸缩，在平行于平行线的方向上保持不变。当平行线是水平的时候没问题，对块“scale”，指定不同的X、Y比例就可实现，但在平?.. [/B]

直线处理就比较简单.
无非是求新顶点，再改顶点. scale是不行了.

陌生人

最初由 light_dream 发布
[B]我也正编一个程序，我要实现的是将一组平行的或部分平行的线使其在垂直平行线的方向按比例伸缩，在平行于平行线的方向上保持不变。当平行线是水平的时候没问题，对块“scale”，指定不同的X、Y比例就可实现，但在平?.. [/B]

取块插入角

eachy

最初由 light_dream 发布
[B]我也正编一个程序，我要实现的是将一组平行的或部分平行的线使其在垂直平行线的方向按比例伸缩，在平行于平行线的方向上保持不变。当平行线是水平的时候没问题，对块“scale”，指定不同的X、Y比例就可实现，但在平?.. [/B]

对Line 可以用 length 命令。