（结构用）梁编号加减数字

海盗曹

xyp1964 发表于 2012-8-10 18:39
编号增减有木有……编号重排有木有……有木有……

米有。。。

asd19400

1. [em01] 不好意思 ，乱发别人的程序了，请原谅！

复制代码

海盗曹

asd19400 发表于 2012-8-28 02:36
海盗哥，太牛了，求标注尺寸文字避让改进

院长的东东还是找院长吧。。。

x_s_s_1

asd19400 发表于 2012-8-28 02:36
海盗哥，太牛了，求标注尺寸文字避让改进

请速修改本帖，我有时间会完善的，不要让人以为我借用函数不写出处，我已在群中强调了这是不完全版，故而版权信息未加进去，完全版中会加的，请院长谅解，不好意思了

x_s_s_1

asd19400 发表于 2012-8-28 02:36
海盗哥，太牛了，求标注尺寸文字避让改进

哥，您用这个求助吧

2. (defun x_get_dxf (en n /)
   
3.   (cdr (assoc n (entget en)))
   
4. )
   
5. ;;;x_ssn函数(x_ssn ss)
   
6. ;;;ss参数：选折集
   
7. ;;;返回图元名表
   
8. (defun x_ssn (ss / n lst)
   
9.   (repeat (setq N (sslength ss))
   
10.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
    
11.   ) ;_ 结束repeat
    
12. ) ;_ 结束defun
    
13. ;;;修改组码en 图元名 num 组码 ch 修改为
    
14. (defun ch_dxf (en num ch / old_num new_num ent)
    
15.   (if (setq ent            (entget en)
    
16.             new_num (cons num ch)
    
17.             old_num (assoc num ent)
    
18.       ) ;_ 结束setq
    
19.     (entmod (subst new_num old_num ent))
    
20.     (entmod (reverse (cons new_num (reverse ent))))
    
21.   ) ;_ 结束if
    
22. ) ;_ 结束defun
    
23. ;;;获取尺寸图元文字中点坐标,文字宽度,文字角度,文字中点距线距离,图元名
    
24. ;(dim_txt_data(car (entsel)))
    
25. (defun dim_txt_data (dim_en / en pt1 pt2 ang pt3 dist)
    
26.   (setq en (cdr (assoc -2 (tblsearch "block" (x_get_dxf dim_en 2)))))
    
27.                                         ;获取尺寸块图元名
    
28.   (while (/= (x_get_dxf (setq en (entnext en)) 0) "MTEXT"))
    
29.                                         ;获取尺寸内文字图元名
    
30.   (setq        pt1 (x_get_dxf dim_en 11);文字中点坐标
    
31.         pt2 (x_get_dxf dim_en 10);定义点
    
32.         ang (x_get_dxf en 50);角度
    
33.         pt3 (inters pt2 (polar pt2 ang 100) pt1 (polar pt1 (+ ang (/ pi 2)) 100) nil)
    
34.         dist (distance pt1 pt3)
    
35.   )
    
36.   (list pt1 (x_get_dxf en 42) ang dist dim_en)
    
37. )
    
38. ;;;表内元素两两组合
    
39. ;;;(1 2 3) ((1 2)(2 3))
    
40. (defun lst2&2 (olst / nlst)
    
41.   (repeat (1- (length olst))
    
42.     (setq nlst (cons (list (car olst) (cadr olst)) nlst))
    
43.     (setq olst (cdr olst))
    
44.   )
    
45.   (reverse nlst)
    
46. )
    
47. ;;;尺寸文字移动
    
48. ;(setq en_data(cadr en_data_lst))
    
49. (defun dim_txt_move (dis1 dis2 ang en_data / dis)
    
50.   (setq dis (- dis2 dis1))
    
51.   (ch_dxf
    
52.     (last en_data)
    
53.     70
    
54.     (+ 128 (rem (x_get_dxf (last en_data) 70) 128))
    
55.   )
    
56.   (ch_dxf
    
57.     (last en_data)
    
58.     11
    
59.     (polar (car en_data) ang dis)
    
60. 
    
61.   )
    
62. )
    
63. ;;;根据表内第一元素的xy排序
    
64. (defun dim_sort (lst /)
    
65.   (setq lst (vl-sort lst (function (lambda (e1 e2) (< (car (car e1))(car (car e2)))))))
    
66.   (vl-sort lst (function (lambda (e1 e2) (< (cadr (car e1))(cadr (car e2))))))
    
67.   )
    
68. (defun c:ttt()
    
69. (setq ss(ssget '((0 . "DIMENSION"))) sc (getvar "userr1"))
    
70. (vl-cmdf "_.dimedit" "_h" ss "")
    
71. (setq en_data_lst (dim_sort(mapcar 'dim_txt_data (x_ssn ss))))
    
72. (cond
    
73.   ((= (length en_data_lst) 2)
    
74.    (if (< (setq dis1(distance (car (nth 0 en_data_lst)) (car (nth 1 en_data_lst))))
    
75.           (setq dis2(+ (/ (cadr (nth 0 en_data_lst)) 2) (/ (cadr (nth 1 en_data_lst))2) sc))
    
76.           )
    
77.      (progn
    
78.      (dim_txt_move dis1 dis2 (+ (caddr (car en_data_lst)) pi) (car en_data_lst))
    
79.      (dim_txt_move dis1 dis2 (caddr (cadr en_data_lst)) (cadr en_data_lst))
    
80.      )
    
81.      )
    
82.    )
    
83.   ))
    

(defun x_get_dxf (en n /)<br />   (cdr (assoc n (entget en)))<br /> )<br /> ;;;x_ssn函数(x_ssn ss)<br /> ;;;ss参数：选折集<br /> ;;;返回图元名表<br /> (defun x_ssn (ss / n lst)<br />   (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   ) ;_ 结束repeat<br /> ) ;_ 结束defun<br /> ;;;修改组码en 图元名 num 组码 ch 修改为<br /> (defun ch_dxf (en num ch / old_num new_num ent)<br />   (if (setq ent            (entget en)<br />             new_num (cons num ch)<br />             old_num (assoc num ent)<br />       ) ;_ 结束setq<br />     (entmod (subst new_num old_num ent))<br />     (entmod (reverse (cons new_num (reverse ent))))<br />   ) ;_ 结束if<br /> ) ;_ 结束defun<br /> ;;;获取尺寸图元文字中点坐标,文字宽度,文字角度,文字中点距线距离,图元名<br /> ;(dim_txt_data(car (entsel))) <br /> (defun dim_txt_data (dim_en / en pt1 pt2 ang pt3 dist)<br />   (setq en (cdr (assoc -2 (tblsearch "block" (x_get_dxf dim_en 2)))))<br />                                         ;获取尺寸块图元名<br />   (while (/= (x_get_dxf (setq en (entnext en)) 0) "MTEXT"))<br />                                         ;获取尺寸内文字图元名<br />   (setq        pt1 (x_get_dxf dim_en 11);文字中点坐标<br />         pt2 (x_get_dxf dim_en 10);定义点<br />         ang (x_get_dxf en 50);角度<br />         pt3 (inters pt2 (polar pt2 ang 100) pt1 (polar pt1 (+ ang (/ pi 2)) 100) nil)<br />         dist (distance pt1 pt3)<br />   )<br />   (list pt1 (x_get_dxf en 42) ang dist dim_en)<br /> )<br /> ;;;表内元素两两组合<br /> ;;;(1 2 3) ((1 2)(2 3))<br /> (defun lst2&2 (olst / nlst)<br />   (repeat (1- (length olst))<br />     (setq nlst (cons (list (car olst) (cadr olst)) nlst))<br />     (setq olst (cdr olst))<br />   )<br />   (reverse nlst)<br /> )<br /> ;;;尺寸文字移动<br /> ;(setq en_data(cadr en_data_lst))<br /> (defun dim_txt_move (dis1 dis2 ang en_data / dis)<br />   (setq dis (- dis2 dis1))<br />   (ch_dxf<br />     (last en_data)<br />     70<br />     (+ 128 (rem (x_get_dxf (last en_data) 70) 128))<br />   )<br />   (ch_dxf<br />     (last en_data)<br />     11<br />     (polar (car en_data) ang dis)<br /> <br />   )<br /> )<br /> ;;;根据表内第一元素的xy排序<br /> (defun dim_sort (lst /)<br />   (setq lst (vl-sort lst (function (lambda (e1 e2) (< (car (car e1))(car (car e2)))))))<br />   (vl-sort lst (function (lambda (e1 e2) (< (cadr (car e1))(cadr (car e2))))))<br />   )<br /> (defun c:ttt()<br /> (setq ss(ssget '((0 . "DIMENSION"))) sc (getvar "userr1"))<br /> (vl-cmdf "_.dimedit" "_h" ss "")<br /> (setq en_data_lst (dim_sort(mapcar 'dim_txt_data (x_ssn ss))))<br /> (cond<br />   ((= (length en_data_lst) 2)<br />    (if (< (setq dis1(distance (car (nth 0 en_data_lst)) (car (nth 1 en_data_lst))))<br />           (setq dis2(+ (/ (cadr (nth 0 en_data_lst)) 2) (/ (cadr (nth 1 en_data_lst))2) sc))<br />           )<br />      (progn<br />      (dim_txt_move dis1 dis2 (+ (caddr (car en_data_lst)) pi) (car en_data_lst))<br />      (dim_txt_move dis1 dis2 (caddr (cadr en_data_lst)) (cadr en_data_lst))<br />      )<br />      )<br />    )<br />   ))<br />

海盗曹

x_s_s_1 发表于 2012-8-28 14:11
哥，您用这个求助吧

x兄果然犀利，也是结构同行啊，以后还请多多指教~

asd19400

楼上的2位大哥请多包涵，出来扎到，很多地方不懂，就希望能用点好插件，谢谢你们为结构工程师做的一些贡献！

朽木大师

备注一下，以备以后用

sixth

不错，支持下，结构的需要

love_cq

支持一下海盗，学习了。