;图框块排序，左大右小

jpg102329

1. ;图框块排序，左大右小
   
2. 【管理员】大海<tryhi@sina.cn> 9:47:28
   
3. (defun c:tt (/ box box4i box4i-1 box4s boxs dist ens i l p0 p1 ss ss0 ssn zo)
   
4. (setq ssn nil
   
5. dist(getdist"距离")
   
6. zo(try-box-zoom)
   
7. )
   
8. (setq ss(ssget '((2 . "Fsxm_TK_A4_HN.简约.国标细")))
   
9. ens(try-ss2EnList ss)
   
10. ens(vl-sort ens '(lambda(a b)(> (try-get-dxf a 41)(try-get-dxf b 41))))
    
11. box(mapcar 'try-getbox ens)
    
12. )
    
13. (foreach n box
    
14. (try-zoom (car n)(cadr n))
    
15. (setq ss0(ssget "C" (car n)(cadr n))
    
16. SSN(cons ss0 ssn)
    
17. )
    
18. )  
    
19. (setq
    
20. ssn(reverse ssn)
    
21. boxs(mapcar 'try-getbox ssn)
    
22. box4s(mapcar '(lambda(x)(try-pt2-to-pt4(car x)(cadr x)))boxs)
    
23. i 0
    
24. p1 (caar box4s)
    
25. )
    
26. 
    
27. (command "UNDO""BE")
    
28. (repeat (1-(length ssn))
    
29. (setq
    
30. i(1+ i)
    
31. box4i(nth i box4s)
    
32. box4i-1(nth (1- i) box4s)
    
33. )
    
34. (setq
    
35. p0(car box4i)
    
36. L(-(car(last box4i-1))(caar box4i-1))
    
37. p1 (try-Pt+X p1 (+ L dist))
    
38. )
    
39. (try-move (nth i ssn)p0 p1)
    
40. )
    
41. (try-zoom (car zo)(cadr zo))
    
42. (command "UNDO""END")
    
43. )
    

;图框块排序，左大右小<br /> 【管理员】大海<<a href="mailto:tryhi@sina.cn" target="_blank">tryhi@sina.cn</a>> 9:47:28<br /> (defun c:tt (/ box box4i box4i-1 box4s boxs dist ens i l p0 p1 ss ss0 ssn zo)<br /> (setq ssn nil<br /> dist(getdist"距离")<br /> zo(try-box-zoom)<br /> )<br /> (setq ss(ssget '((2 . "Fsxm_TK_A4_HN.简约.国标细")))<br /> ens(try-ss2EnList ss)<br /> ens(vl-sort ens '(lambda(a b)(> (try-get-dxf a 41)(try-get-dxf b 41))))<br /> box(mapcar 'try-getbox ens)<br /> )<br /> (foreach n box <br /> (try-zoom (car n)(cadr n))<br /> (setq ss0(ssget "C" (car n)(cadr n))<br /> SSN(cons ss0 ssn)<br /> )<br /> )  <br /> (setq <br /> ssn(reverse ssn)<br /> boxs(mapcar 'try-getbox ssn)<br /> box4s(mapcar '(lambda(x)(try-pt2-to-pt4(car x)(cadr x)))boxs)<br /> i 0<br /> p1 (caar box4s)<br /> )<br /> <br /> (command "UNDO""BE")<br /> (repeat (1-(length ssn))<br /> (setq <br /> i(1+ i)<br /> box4i(nth i box4s)<br /> box4i-1(nth (1- i) box4s)<br /> )<br /> (setq <br /> p0(car box4i)<br /> L(-(car(last box4i-1))(caar box4i-1))<br /> p1 (try-Pt+X p1 (+ L dist))<br /> )<br /> (try-move (nth i ssn)p0 p1)<br /> )<br /> (try-zoom (car zo)(cadr zo))<br /> (command "UNDO""END")<br /> )<br />

<以上内容出自《大海语录》不代表本人观点>欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！

love_cq

软件提示“参数太多”？楼主可否完善下？

行天下

回帖是一种美德！感谢楼主的无私分享 谢谢

stardelet7777

回帖是一种美德！感谢楼主的无私分享 谢谢

1028882406@qq.c

谢谢楼主，支持下

LIULISHENG

我来支持一下顶

maxli

不能用啊。。没函数

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

逍遥天下

支持一下，顶顶顶

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

sowin

回帖是一种美德！

xudongchu

不能用，不知道是怎么回事

马甲

不能用，不知道是怎么回事