[测试]：[测试]：可不可以进行横向或纵向的比例缩放

371823257

一般情况下的比例缩放是对一个图形的整体的比例缩放，今天我突然想， 可不可以对一个图进行横向或者纵向的分开的比例缩放，

lljzppc1101

能啊，你把它做成块就行啦，在插入块的时候就可以进行横向和纵向的比例缩放了

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;自定义比例缩放
    
16. (defun c:test (/ ss1 p x2)
    
17.   (cmdla0)
    
18.   (prompt "\n请选择要缩放的对象 : ")
    
19.   (setq ss1 (ssget))
    
20.   (princ "\n选择基点: ")
    
21.   (setq        p  (getpoint)
    
22.         x2 (rtos (* (getvar "cdate") 1000000) 2 0)
    
23.         Sx (UREAL 7 "" "\nX方向缩放比例" Sx)
    
24.         Sy (UREAL 7 "" "\nY方向缩放比例" Sy)
    
25.   )
    
26.   (command "_block" x2 p ss1 "")
    
27.   (command "_insert" x2 p Sx Sy "")
    
28.   (cmdla1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;自定义比例缩放<br /> (defun c:test (/ ss1 p x2)<br />   (cmdla0)<br />   (prompt "\n请选择要缩放的对象 : ")<br />   (setq ss1 (ssget))<br />   (princ "\n选择基点: ")<br />   (setq        p  (getpoint)<br />         x2 (rtos (* (getvar "cdate") 1000000) 2 0)<br />         Sx (UREAL 7 "" "\nX方向缩放比例" Sx)<br />         Sy (UREAL 7 "" "\nY方向缩放比例" Sy)<br />   )<br />   (command "_block" x2 p ss1 "")<br />   (command "_insert" x2 p Sx Sy "")<br />   (cmdla1)<br /> )[/FONT]

371823257

十分感谢前辈的赐教。

lcfwin

刚刚接触到这个网站,真的好版主和各位大虾,开阔了视野

jacson_li

没有什么直接点的办法吗？

wym8768

可以先把对象设成块，然后在特性里的X或Y方向里该比例

xyp1964

最初由 jacson_li 发布
[B]没有什么直接点的办法吗？ [/B]

直接用程序还不够“直接”？！

jan83

我一直是用块的不过如果中间有圆什么的就麻烦了

2000leelee

用块很简单的

371823257

我用的是2000，可我今天用块时，也不行呀。在定义x轴的同时，y 轴同时也被定义了。一直就是这样。

小不点儿

最初由 371823257 发布
[B]我用的是2000，可我今天用块时，也不行呀。在定义x轴的同时，y 轴同时也被定义了。一直就是这样。 [/B]

好好看看：
XY方向非等比缩放动画演示
http://www.xdcad.net/techcenter/article/htmlcache/1769.html

tel5560018

这方法相当好用,只是我试了好几次不成功,原来是应粘贴为块才行.

hojing7

感謝各位高手不吝相授讓我又學到一招
如今有一事想跟各位請教
道路設計画縱斷面時，X〈距離〉比例為1：1000     Y〈高程〉比例為1：500     
當我用1：1画完圖後 ，是否可用以上方法來縮放比例

xyz518mm

有各疑问请问
如果不重新插入图块可以吗