对齐参照块，以参照块名字排序

菜卷鱼

合并很多图纸到一个CAD文件，我常用的方法是插入DWG参照的方式
此命令用来排列对齐DWG参照图的，DWG参照的命名就是图号名开头就能对齐
隐藏命令，输入DW之后再输入A
隐藏命令A是针对图框是块的对齐
;;;(2 . "DRAWINGS_A*")是图框块的名字

1. (defun c:dw ()
   
2. (princ "(参照)块对齐")
   
3. (onxline )
   
4. (prin1)
   
5. )
   
6. 
   
7. (defun onxline ()
   
8. (setq *error* pt_err)
   
9. (setq sxkkey 0)
   
10. (initget 1 "Aboom")
    
11. (setq p0(getpoint "\n集合点:"))
    
12. (while (= p0 "Aboom")
    
13. (setq sxkkey 1)
    
14. (princ "\n更改过滤条件,图纸对齐...\n请选择空白区域!")
    
15. (setq p0(getpoint "\n集合点:"))
    
16. )
    
17. (setq dist(getreal "\n间距:<0>"))
    
18. (if (= dist nil)(setq dist 0))
    
19. 
    
20. (if (= sxkkey 1)
    
21. (progn
    
22. (setq ss (ssget  '((0 . "INSERT")(2 . "DRAWINGS_A*"))  ))  ;;;;;;;;;这里是块名(2 . "DRAWINGS_A*")
    
23. (setq ss (sort-se (sort-se ss 10 0 50 nil) 10 1 50 t )))
    
24. (progn
    
25. (setq ss(ssget '( (0 . "insert") )) )
    
26. (setq ss (sort-se ss 2 0 50 nil))
    
27. )
    
28. )
    
29. 
    
30. (setq os(getvar 'osmode))
    
31. (setvar 'cmdecho 0)
    
32. (setvar 'osmode 0)
    
33. (setq i 0)
    
34. (repeat   (sslength ss)
    
35. (setq entname(ssname ss i))
    
36. (setq qq (cornerp entname))
    
37. (setq p1(car qq) p2(cadr qq))
    
38. (if (=  sxkkey 1)
    
39. (PROGN
    
40. (setq ssall(ssget "w" p1 p2   ))
    
41. (command "_.move" ssall "" p1 p0))
    
42. (command "_.move" entname "" p1 p0)
    
43. )
    
44. (setq qq(cornerp entname))
    
45. (setq p1(car qq) p2(cadr qq))
    
46. (setq p0(cons (car p2) (cdr p1)))
    
47. (setq p0(polar p0 0 dist))
    
48. 
    
49. (setq i(1+ i))
    
50. )
    
51. (setvar 'osmode os)
    
52. (setvar 'cmdecho 1)
    
53. (prin1)
    
54. )
    
55. 
    
56. 
    
57. 
    
58. (defun pt_err()
    
59. (setvar 'osmode os)
    
60. (setvar 'cmdecho 1)
    
61. (prin1))
    
62. 
    
63. (DEFUN cornerp(entname)                  ;;;对角点
    
64. (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)
    
65. (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))
    
66. (mapcar '(lambda (x) (trans x 0 1)) ptlist)
    
67. )
    
68. 
    
69. (vl-load-com)
    
70. (defun SORT-SE (SE DXF INT FUZZ K / ENT INDEX LST NEWLST NEWSE TMP)
    
71.   ;;建立排序列表
    
72.   (setq LST '() INDEX 0)
    
73.   (repeat (sslength SE)
    
74.     (setq ENT (entget (ssname SE INDEX))
    
75. TMP (cdr (assoc DXF ENT)) )
    
76. 
    
77.     (if (and INT (= (type INT) 'INT) (= (type TMP) 'list)(< INT (length TMP)) )
    
78.         (setq TMP (nth INT TMP)))
    
79. 
    
80.     (setq LST (cons (list TMP (cdr (assoc 5 ENT))) LST))
    
81.     (setq INDEX (1+ INDEX)));;排序操作
    
82. 
    
83.   (if (and FUZZ
    
84.   (or (= (type FUZZ) 'INT)
    
85.       (= (type FUZZ) 'REAL))
    
86.   (or (= (type TMP) 'INT) (= (type TMP) 'REAL)))
    
87.     (setq NEWLST
    
88. (vl-sort LST (function (lambda (E1 E2) (< (+ (car E1) FUZZ) (car E2)))
    
89. )))
    
90.     (setq NEWLST
    
91. (vl-sort LST (function (lambda (E1 E2) (< (car E1) (car E2))))
    
92. )))         ;;如果K为T，则倒置
    
93.   (if K (setq NEWLST (reverse NEWLST)))
    
94.   (setq NEWSE (ssadd))
    
95.   (foreach TMP NEWLST
    
96.     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE))
    
97. )   ;;返回值  NEWSE ;_结束defun;;;
    
98. )
    
99. (prin1)
    
100. 
     
101. 
     
102. 
     

(defun c:dw ()<br /> (princ "(参照)块对齐")<br /> (onxline )<br /> (prin1)<br /> )<br /> <br /> (defun onxline ()<br /> (setq *error* pt_err)<br /> (setq sxkkey 0)<br /> (initget 1 "Aboom")<br /> (setq p0(getpoint "\n集合点:"))<br /> (while (= p0 "Aboom")<br /> (setq sxkkey 1)<br /> (princ "\n更改过滤条件,图纸对齐...\n请选择空白区域!")<br /> (setq p0(getpoint "\n集合点:"))<br /> )<br /> (setq dist(getreal "\n间距:<0>"))<br /> (if (= dist nil)(setq dist 0))<br /> <br /> (if (= sxkkey 1)<br /> (progn<br /> (setq ss (ssget  '((0 . "INSERT")(2 . "DRAWINGS_A*"))  ))  ;;;;;;;;;这里是块名(2 . "DRAWINGS_A*")<br /> (setq ss (sort-se (sort-se ss 10 0 50 nil) 10 1 50 t )))<br /> (progn<br /> (setq ss(ssget '( (0 . "insert") )) )<br /> (setq ss (sort-se ss 2 0 50 nil))<br /> )<br /> )<br /> <br /> (setq os(getvar 'osmode))<br /> (setvar 'cmdecho 0)<br /> (setvar 'osmode 0)<br /> (setq i 0)<br /> (repeat   (sslength ss)<br /> (setq entname(ssname ss i))<br /> (setq qq (cornerp entname))<br /> (setq p1(car qq) p2(cadr qq))<br /> (if (=  sxkkey 1)<br /> (PROGN<br /> (setq ssall(ssget "w" p1 p2   ))<br /> (command "_.move" ssall "" p1 p0))<br /> (command "_.move" entname "" p1 p0)<br /> )<br /> (setq qq(cornerp entname))<br /> (setq p1(car qq) p2(cadr qq))<br /> (setq p0(cons (car p2) (cdr p1)))<br /> (setq p0(polar p0 0 dist))<br /> <br /> (setq i(1+ i))<br /> )<br /> (setvar 'osmode os)<br /> (setvar 'cmdecho 1)<br /> (prin1)<br /> )<br /> <br /> <br /> <br /> (defun pt_err()<br /> (setvar 'osmode os)<br /> (setvar 'cmdecho 1)<br /> (prin1))<br /> <br /> (DEFUN cornerp(entname)                  ;;;对角点<br /> (vla-getboundingbox (vlax-ename->vla-object entname) 'entpl 'entpr)<br /> (setq ptlist (mapcar 'vlax-safearray->list (list entpl entpr)))<br /> (mapcar '(lambda (x) (trans x 0 1)) ptlist)<br /> )<br /> <br /> (vl-load-com)<br /> (defun SORT-SE (SE DXF INT FUZZ K / ENT INDEX LST NEWLST NEWSE TMP)<br />   ;;建立排序列表<br />   (setq LST '() INDEX 0)<br />   (repeat (sslength SE)<br />     (setq ENT (entget (ssname SE INDEX))<br /> TMP (cdr (assoc DXF ENT)) )<br /> <br />     (if (and INT (= (type INT) 'INT) (= (type TMP) 'list)(< INT (length TMP)) )<br />         (setq TMP (nth INT TMP)))<br /> <br />     (setq LST (cons (list TMP (cdr (assoc 5 ENT))) LST))<br />     (setq INDEX (1+ INDEX)));;排序操作 <br /> <br />   (if (and FUZZ<br />   (or (= (type FUZZ) 'INT)<br />       (= (type FUZZ) 'REAL))<br />   (or (= (type TMP) 'INT) (= (type TMP) 'REAL)))<br />     (setq NEWLST<br /> (vl-sort LST (function (lambda (E1 E2) (< (+ (car E1) FUZZ) (car E2)))<br /> )))<br />     (setq NEWLST<br /> (vl-sort LST (function (lambda (E1 E2) (< (car E1) (car E2))))<br /> )))         ;;如果K为T，则倒置 <br />   (if K (setq NEWLST (reverse NEWLST)))<br />   (setq NEWSE (ssadd))<br />   (foreach TMP NEWLST<br />     (setq NEWSE (ssadd (handent (cadr TMP)) NEWSE))<br /> )   ;;返回值  NEWSE ;_结束defun;;;<br /> )<br /> (prin1)<br /> <br /> <br /> <br />

yimiyangguang55

合并很多图纸到一个CAD文件，我常用的方法是插入DWG参照的方式 我也经常需要用到将多个CAD文件合并为一个文件， 我每次插入DWG 都不成功，请问有什么诀窍吗。谢谢了

my258

一点建议如果能把包含块里面的图形和增加选择横或竖排就完美了

开心无惧

请问 显示这个需要怎样处理？

错误: 输入的列表有缺陷

菜卷鱼

公司电脑，发不了附件，见谅

香田里浪人

*error* 函数中出错AutoCAD 变量设置被拒绝: OSMODE nil

lucas_3333

菜卷鱼大侠请帮帮我
目前排序是根据文件名排序吗？是能否读取属性块中的图号，按图号从左至右，从上至下排序？
目前排序无论多少都是排成一行，能否设定多少张图一行？增加一个行间距.

谢谢！

wxa123wl

大侠弄个gif看看呀，，什么效果，，

菜卷鱼

lucas_3333 发表于 2014-7-22 19:56
菜卷鱼大侠请帮帮我
目前排序是根据文件名排序吗？是能否读取属性块中的图号，按图号从左至右，从上至下排 ...

得要看看你图框是什么样的了

lucas_3333

菜卷鱼 发表于 2014-7-24 11:57
得要看看你图框是什么样的了

菜卷鱼大侠，你好，图框样本我上传上来,收到了吧？

chenshulu

做成行列对齐等距的，

lengxiaxi

非常棒！多图纸，一键调整！

davide888

谢了