求助，以多个多段线为拉伸范围。进行拉伸。

zzc83

以多个多段线为拉伸范围。进行拉伸。
1以选择多段线为拉伸范围。
2可以多选。
3可以记录拉伸距离。

蒹葭_Keirll

已修改，请重新测试

蒹葭_Keirll

请试一下这个是不是你想要的

蒹葭_Keirll

2. (defun c:ddd(/ ss i newss enname endata p1 p2 s_dis BasicPoint os x ptl)
   
3.   (setq os (getvar "osmode"))
   
4.   (setq ss (ssget) i 0 BasicPoint (getpoint "\n输入基点:"))
   
5.   (command "stretch")
   
6.   (repeat (sslength ss)
   
7.     (setq enname (ssname ss i) )
   
8.     (setq endata (entget enname))
   
9.     (setq ptl '())
   
10.     (foreach x endata (if (= (car x) 10) (setq ptl (cons (cdr x) ptl))))
    
11.     (setq newss (ssget "CP" ptl (list (cons 0 "LINE"))))
    
12.     (command newss)
    
13.     (setq i (1+ i))
    
14.   ) ;end repeat
    
15.   (command "" BasicPoint)
    
16.   (if (= nil RemMove_dis_all)
    
17.     (progn
    
18.       (setq RemMove_dis_all (getreal "\n输入移动距离:"))
    
19.       (setvar "osmode" 0)
    
20.       (command RemMove_dis_all)
    
21.     ) ;end pro
    
22.     (progn
    
23.       (setq s_dis
    
24.             (getreal (strcat "\n输入移动距离<" (rtos RemMove_dis_all 2 4) ">:"))
    
25.       ) ;end set
    
26.       (if (= nil s_dis)
    
27.         (setq s_dis RemMove_dis_all)
    
28.       ) ;end if
    
29.       (setvar "osmode" 0)
    
30.       (command s_dis)
    
31.       (setq RemMove_dis_all s_dis)
    
32.     ) ;end pro
    
33.   ) ;end if
    
34.   (setvar "osmode" os)
    
35.   (princ)
    
36. )

(defun c:ddd(/ ss i newss enname endata p1 p2 s_dis BasicPoint os x ptl)<br />   (setq os (getvar "osmode"))<br />   (setq ss (ssget) i 0 BasicPoint (getpoint "\n输入基点:"))<br />   (command "stretch")<br />   (repeat (sslength ss)<br />     (setq enname (ssname ss i) )<br />     (setq endata (entget enname))<br />     (setq ptl '())<br />     (foreach x endata (if (= (car x) 10) (setq ptl (cons (cdr x) ptl))))<br />     (setq newss (ssget "CP" ptl (list (cons 0 "LINE"))))<br />     (command newss)<br />     (setq i (1+ i))<br />   ) ;end repeat<br />   (command "" BasicPoint)<br />   (if (= nil RemMove_dis_all)<br />     (progn<br />       (setq RemMove_dis_all (getreal "\n输入移动距离:"))<br />       (setvar "osmode" 0)<br />       (command RemMove_dis_all)<br />     ) ;end pro<br />     (progn<br />       (setq s_dis <br />             (getreal (strcat "\n输入移动距离<" (rtos RemMove_dis_all 2 4) ">:"))<br />       ) ;end set<br />       (if (= nil s_dis)<br />         (setq s_dis RemMove_dis_all)<br />       ) ;end if<br />       (setvar "osmode" 0)<br />       (command s_dis)<br />       (setq RemMove_dis_all s_dis)<br />     ) ;end pro<br />   ) ;end if<br />   (setvar "osmode" os)<br />   (princ)<br /> )

zzc83

谢谢，马上测试，两贴是一样的吧？

zzc83

蒹葭_Keirll 发表于 2013-1-1 21:45

测试后，有如下问题
1只能拉伸最后选择的多段线，
2在多段线范围内的标注没有拉伸
如下图

ucuc2003

楼主这个悬赏的图标是怎么做出来的？

zzc83

蒹葭_Keirll 发表于 2013-1-1 22:31
已修改，请重新测试

测试后，已经满足我的要求了，只是长方形框 拉伸后变成梯形，感觉怪怪的，怕有些点不在拉伸范围内，能不能稍微再修改一下，谢谢蒹葭。
附张拉伸后图

蒹葭_Keirll

已经在选择集中删除了红色框，请测试

nfr

已测试，很好用，