框选写入文字功能（实用）

【KAIXIN】

如果觉得框选的宽与高不合适可以用下面的程序（刷一下）：

kugoo999

框选写入文字功能，学习了！

taiwanfox

好東西，謝謝分享，感謝!!!

tensir

感谢作者的分享！

hao3ren

晕倒哦，楼主购买主题一个，附件还要一个啊

【KAIXIN】

hao3ren 发表于 2011-12-2 16:09
晕倒哦，楼主购买主题一个，附件还要一个啊

哈哈  不好意思！看错了，第一次收钱，我改改！  

hao3ren

理解错误，以为是在原有文字框选位置处写入文字，实际上就是写文字，这样写文字的字高怎么控制啊

【KAIXIN】

hao3ren 发表于 2011-12-2 16:14
理解错误，以为是在原有文字框选位置处写入文字，实际上就是写文字，这样写文字的字高怎么控制啊

字高在框选的时候就可以控制

【KAIXIN】

hao3ren 发表于 2011-12-2 16:14
理解错误，以为是在原有文字框选位置处写入文字，实际上就是写文字，这样写文字的字高怎么控制啊

我上传了一个文字高宽比，可以设置文字的默认样子......

【KAIXIN】

2. 
   
3. ;修改字高
   
4. (DEFUN changtextheight (EN TCH_ok / th1 aa1)
   
5.   (if b
   
6.     (progn
   
7.       (setq kk 0)
   
8.       (setq ss "\n新字高<")
   
9.       (SETQ TH (CDR (ASSOC 40 EN)))
   
10.       (if tch_ok
    
11. (progn
    
12.    (setq th1 (rtos (* th scale_47) 2 2))
    
13.    (setq th (* th scale_47))
    
14. )
    
15. (setq th1 (rtos (/ th 1) 2 2))
    
16.       )
    
17.       (princ (strcat ss th1 "mm>:"))
    
18.       (setq aa1 (getreal))
    
19.       (if aa1
    
20. (setq th (* aa1 1))
    
21.       )
    
22.       (setq b nil)
    
23.     )
    
24.   )
    
25.   (if TCH_ok
    
26.     (progn
    
27.       (setq th (/ th scale_47))
    
28.       (setq en (subst (cons 40 th) (assoc 40 en) en))
    
29.       (setq th (* th scale_47))
    
30.     )
    
31.     (setq en (subst (cons 40 th) (assoc 40 en) en))
    
32.   )
    
33.   (entmod en)
    
34.   (setq kk (1+ kk))
    
35. )
    
36. ******************************************************
    
37. (defun C:CH (/ LL EN k kk th b)
    
38.   (setq sse (ssget))
    
39.   (if sse
    
40.     (progn
    
41.       (setq ll (sslength sse)
    
42.      b  0
    
43.      k  0
    
44.      kk 0
    
45.       )
    
46.       (repeat ll
    
47. (SETQ EN (ENTGET (ssname sse k)))
    
48. (setq TCH_ok nil)
    
49. (if (= (CDR (ASSOC 0 EN)) "TEXT")
    
50.    (changtextheight en TCH_ok)
    
51.    (if (= (CDR (ASSOC 0 EN)) "TCH_TEXT")
    
52.      (progn
    
53.        (setq scale_47 (cdr (assoc 47 en)))
    
54.      ;(setq en (subst (cons 72 11) (assoc 72 en) en))
    
55.        (setq TCH_ok 0)
    
56.        (changtextheight en TCH_ok)
    
57.      )
    
58.    )
    
59. )    ;if text_end
    
60. (if (= (CDR (ASSOC 0 EN)) "INSERT")
    
61.    (progn
    
62.      (setq main_B_name (cdr (assoc -1 en)))
    
63.      (setq an (tblsearch "block" (cdr (assoc 2 en))))
    
64.      (setq an_name (cdr (assoc -2 an)))
    
65.      (while (/= an_name nil)
    
66.        (setq en (entget an_name))
    
67.        (if (= (CDR (ASSOC 0 EN)) "TEXT")
    
68.   (progn
    
69.     (changtextheight en TCH_ok)
    
70.   )
    
71.        )
    
72.        (setq an_name (entnext an_name))
    
73.      )
    
74.      (entupd main_B_name)
    
75.    )
    
76. )    ;if_insert_end
    
77. (setq k (1+ k))
    
78.       )     ;repeat_end
    
79.       (princ (strcat "改了" (rtos kk) "个字符."))
    
80.     )
    
81.   )
    
82.   (PRINC)
    
83. )
    
84. **************************************************
    
85. (defun C:CW (/ p l n nw chm en ow enm e1)
    
86.       (setq p (ssget))
    
87.       (if p (progn
    
88.         (setq l 0 n (sslength p) chm 0)
    
89.         (while (< l n)
    
90.           (setq enm (cdr (assoc 0 (setq en (entget (ssname p l))))))
    
91.           (if(or (= enm "LWPOLYLINE") (= enm "POLYLINE") (= enm "LINE") (= enm "ARC")(= enm "CIRCLE"))
    
92.              (progn
    
93.                (if (zerop chm) (progn
    
94.                (if (and (/= enm "LINE") (/= enm "ARC")) (setq ow (cdr (assoc 40 en)))
    
95.                    (setq ow 0))
    
96.                 (princ "\n新线宽<")
    
97.                 (princ (rtos (/ ow 1) 2 2))
    
98.                 (setq nw (getreal "mm>:"))
    
99.                 (if (null nw) (setq nw ow))
    
100.               ))
     
101.     (if (= enm "CIRCLE")
     
102.       (progn
     
103.         ;(setq angle1 (/ pi 2))
     
104.         (setq pt1 (polar (CDR(ASSOC 10 EN)) 0 (CDR(ASSOC 40 EN))))
     
105.         (setq pt2 (polar (CDR(ASSOC 10 EN)) pi (CDR(ASSOC 40 EN))))
     
106.         (command ".BREAK" pt1 pt2)
     
107.         (command "pedit" (ssname p l) "y" "w" nw "c" "")
     
108.              ))
     
109.     (if (or (= enm "LINE") (= enm "ARC"))
     
110.         (command "pedit" (ssname p l) "y" "w" nw "")
     
111.         
     
112.         (if (or(= enm "LWPOLYLINE") (= enm "POLYLINE"))
     
113.             (command "pedit" (ssname p l) "w" nw "")
     
114.         )  
     
115.       )
     
116.               (setq  chm (1+ chm))
     
117.           ))
     
118.           (setq l (1+ l))
     
119.         )
     
120.       ))
     
121.       (princ "改了") (princ chm) (princ "条线.")
     
122.       (PRINC)
     
123. )
     
124. 
     
125. ;(command ".BREAK"
     
126.   ;       (cons e
     
127.   ;          (polar (socas 10) 0 (socas 40))
     
128.   ;        )
     
129.   ;       (polar (socas 10) 1e-3 (socas 40))

<br /> ;修改字高<br /> (DEFUN changtextheight (EN TCH_ok / th1 aa1)<br />   (if b<br />     (progn<br />       (setq kk 0)<br />       (setq ss "\n新字高<")<br />       (SETQ TH (CDR (ASSOC 40 EN)))<br />       (if tch_ok<br /> (progn<br />    (setq th1 (rtos (* th scale_47) 2 2))<br />    (setq th (* th scale_47))<br /> )<br /> (setq th1 (rtos (/ th 1) 2 2))<br />       )<br />       (princ (strcat ss th1 "mm>:"))<br />       (setq aa1 (getreal))<br />       (if aa1<br /> (setq th (* aa1 1))<br />       )<br />       (setq b nil)<br />     )<br />   )<br />   (if TCH_ok<br />     (progn<br />       (setq th (/ th scale_47))<br />       (setq en (subst (cons 40 th) (assoc 40 en) en))<br />       (setq th (* th scale_47))<br />     )<br />     (setq en (subst (cons 40 th) (assoc 40 en) en))<br />   )<br />   (entmod en)<br />   (setq kk (1+ kk))<br /> )<br /> ******************************************************<br /> (defun C:CH (/ LL EN k kk th b)<br />   (setq sse (ssget))<br />   (if sse<br />     (progn<br />       (setq ll (sslength sse)<br />      b  0<br />      k  0<br />      kk 0<br />       )<br />       (repeat ll<br /> (SETQ EN (ENTGET (ssname sse k)))<br /> (setq TCH_ok nil)<br /> (if (= (CDR (ASSOC 0 EN)) "TEXT")<br />    (changtextheight en TCH_ok)<br />    (if (= (CDR (ASSOC 0 EN)) "TCH_TEXT")<br />      (progn<br />        (setq scale_47 (cdr (assoc 47 en)))<br />      ;(setq en (subst (cons 72 11) (assoc 72 en) en))<br />        (setq TCH_ok 0)<br />        (changtextheight en TCH_ok)<br />      )<br />    )<br /> )    ;if text_end<br /> (if (= (CDR (ASSOC 0 EN)) "INSERT")<br />    (progn<br />      (setq main_B_name (cdr (assoc -1 en)))<br />      (setq an (tblsearch "block" (cdr (assoc 2 en))))<br />      (setq an_name (cdr (assoc -2 an)))<br />      (while (/= an_name nil)<br />        (setq en (entget an_name))<br />        (if (= (CDR (ASSOC 0 EN)) "TEXT")<br />   (progn<br />     (changtextheight en TCH_ok)<br />   )<br />        )<br />        (setq an_name (entnext an_name))<br />      )<br />      (entupd main_B_name)<br />    )<br /> )    ;if_insert_end<br /> (setq k (1+ k))<br />       )     ;repeat_end<br />       (princ (strcat "改了" (rtos kk) "个字符."))<br />     )<br />   )<br />   (PRINC)<br /> )<br /> **************************************************<br /> (defun C:CW (/ p l n nw chm en ow enm e1)<br />       (setq p (ssget))<br />       (if p (progn<br />         (setq l 0 n (sslength p) chm 0)<br />         (while (< l n)<br />           (setq enm (cdr (assoc 0 (setq en (entget (ssname p l))))))<br />           (if(or (= enm "LWPOLYLINE") (= enm "POLYLINE") (= enm "LINE") (= enm "ARC")(= enm "CIRCLE"))<br />              (progn<br />                (if (zerop chm) (progn<br />                (if (and (/= enm "LINE") (/= enm "ARC")) (setq ow (cdr (assoc 40 en)))<br />                    (setq ow 0))<br />                 (princ "\n新线宽<")<br />                 (princ (rtos (/ ow 1) 2 2))<br />                 (setq nw (getreal "mm>:"))<br />                 (if (null nw) (setq nw ow))<br />               ))<br />     (if (= enm "CIRCLE")<br />       (progn<br />         ;(setq angle1 (/ pi 2))<br />         (setq pt1 (polar (CDR(ASSOC 10 EN)) 0 (CDR(ASSOC 40 EN))))<br />         (setq pt2 (polar (CDR(ASSOC 10 EN)) pi (CDR(ASSOC 40 EN))))<br />         (command ".BREAK" pt1 pt2)<br />         (command "pedit" (ssname p l) "y" "w" nw "c" "")<br />              ))<br />     (if (or (= enm "LINE") (= enm "ARC"))<br />         (command "pedit" (ssname p l) "y" "w" nw "")<br />         <br />         (if (or(= enm "LWPOLYLINE") (= enm "POLYLINE"))<br />             (command "pedit" (ssname p l) "w" nw "")<br />         )  <br />       )<br />               (setq  chm (1+ chm))<br />           ))<br />           (setq l (1+ l))<br />         )<br />       ))<br />       (princ "改了") (princ chm) (princ "条线.")<br />       (PRINC)<br /> )<br /> <br /> ;(command ".BREAK"<br />   ;       (cons e<br />   ;          (polar (socas 10) 0 (socas 40))<br />   ;        )<br />   ;       (polar (socas 10) 1e-3 (socas 40))

hao3ren

这个功能是最基本的，我以前弄得也有，理解错误了，呵呵呵，说实话这个源码收费有点坑人了

【KAIXIN】

hao3ren 发表于 2011-12-2 16:27
这个功能是最基本的，我以前弄得也有，理解错误了，呵呵呵，说实话这个源码收费有点坑人了

嗯，其实这个是我很常用的一个程序，工作需要特意写的，顺便分享！
可以框选一个表格，或者一个框来写文本，文本的内容可以任意.........

longer1000

实用性不是很大，每次框选的不可能一样大