[求助]请编一个将通过文字区的线剪断的程序

zhang8755

在地形图中有许多等高线和高程标注，请大虾编一个将通过文字区的等高线剪断的程序  




zhang8755 附带了这个的图片 :

efan2000

在ET扩展工具—文本工具—文本屏蔽就是实现这个功能的。

BDYCAD

這個不難．　我試試．

(defun c:test(/ os st textp one tow three four)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 1)
  (setq st(ssget '((0 . "TEXT"))))
  (command "ucs" "ob"(SSNAME ST 0) )
  (SETQ TEXTP (textbox (ENTGET (SSNAME ST 0))))
  (setq one (car textp) tow (cadr textp))
  (setq three (polar one 0 (car tow)))
  (setq four (polar one (/ pi 2.0) (cadr tow)))
  (command "trim" "all" ""  "f"one three tow four """")
  (command "ucs" "")
  (setvar "osmode" os) (setvar "cmdecho" 1)
  (princ))

BDYCAD

再完善點．　我認為這樣就比較好了．　
(defun c:test (/ os st i textp one tow three four)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 1)
  (setq st (ssget '((0 . "TEXT"))))
  (setq i 0)
  (repeat (sslength st)
    (command "ucs" "ob" (SSNAME ST i))
    (SETQ textp (textbox (ENTGET (SSNAME ST 0))))
    (setq one (car textp)
          tow (cadr textp)
    )
    (setq three (polar one 0 (car tow)))
    (setq four (polar one (/ pi 2.0) (cadr tow)))
    (command "trim" "all" "" "f" one three tow four "" "")
    (command ".erase" "f" one tow"" "r"(SSNAME ST i) "")
    (command ".erase" "f" three four """r" (SSNAME ST i)"")
    (command "ucs" "")
    (setq i (1+ i))
  )
  (setvar "osmode" os)
  (setvar "cmdecho" 1)
  (princ)
)

wb0815

第4楼的同志做的不错嘛
我一前些过一个可是好长的
你的简单多了
不错

congcong

还可以再改进，而且当线在文字领域内交叉时，剪出来的就不太好了。

congcong

刚刚改好的，看看这个怎么样。
谁能改一下，让它能剪切标注文本上的线。
(defun c:testtrim (/ os st i textp one two three four)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 1)
  (setq st (ssget '((0 . "TEXT"))))
  (setq i 0)
  
  (repeat (sslength st)
    (vl-cmdf "ucs" "ob" (ssname st i))
    (SETQ textp (textbox (ENTGET (SSNAME ST 0))))
    (setq one (car  textp)
          two (cadr textp)
    )
    (setq three (polar one 0 (car two)))
    (setq four  (polar one (/ pi 2.0) (cadr two)))
    (command "trim" "" "f" one three  "" ""
             "trim" "" "f" two four   "" ""
             "trim" "" "f" one four   "" ""
             "trim" "" "f" two three  "" "")
    (command ".erase" "cp" one three two four "" "r" (SSNAME ST i) "")
    (command "ucs" "")
    (setq i (1+ i))
  );end repeat
  
  (setvar "osmode" os)
  (setvar "cmdecho" 1)
  (vl-cmdf "ucs" "")
  (princ)
)

zhang8755

谢谢4楼的和7楼的

cqnj023

4楼和7楼的程序采用了不同的剪切方式，产生了不同的效果，经测试，结果有部分不理想，4楼的甚至丢了一半线条，从程序来看不应该出现这种情况，（如图,desktop.rar文件中），不知问题出在哪里？
贴一个在et命令下修改的代码，可选择剪切边界距文字（text及mtext，会清除mtext的文字框大于文字长度的部分）的距离，并删除文字处的不需要实体，以使文字清楚显现。

2. (defun c:texttrim (     )
   
3.   (defun ucs_2_mtext (ENT / PT)
   
4. 
   
5.     (setq PT (cdr (assoc 210 (entget ENT)))
   
6.           PT (strcat "*"
   
7.                (rtos (car PT) 2 8) ","
   
8.                (rtos (cadr PT) 2 8) ","
   
9.                (rtos (caddr PT) 2 8)
   
10.              );setq
    
11.     (command "_.ucs" "_za" "*0.0,0.0,0.0" PT)
    
12.     (command "_.ucs" "_or" (trans (cdr (assoc 10 (entget ENT))) 0 1))
    
13.   )
    
14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
15.   (defun mtextbox (MTXT / WDTH HGHT INS JUST ANG P1 P2 P3 P4)
    
16.     (if (and (listp MTXT) (= "MTEXT" (cdr (assoc 0 MTXT))))
    
17.       (progn
    
18.         (setq WDTH (cdr (assoc 42 MTXT))
    
19.               HGHT (cdr (assoc 43 MTXT))
    
20.               INS  (trans (cdr (assoc 10 MTXT)) 0 1)
    
21.               JUST (cdr (assoc 71 MTXT))
    
22.               ANG  (cdr (assoc 50 MTXT))
    
23.         )
    
24.         (cond
    
25.           ((= JUST 1)
    
26.             (setq P1 (polar INS (- ANG (* Pi 0.5)) HGHT)
    
27.                   P2 (polar P1 ANG WDTH)                 
    
28.                   P3 (polar INS ANG WDTH)               
    
29.                   p4 INS                                 
    
30.             )
    
31.           )
    
32.           ((= JUST 2)
    
33.             (setq P3 (polar INS ANG (/ WDTH 2))
    
34.                   P4 (polar INS (+ ANG Pi) (/ WDTH 2))
    
35.                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)
    
36.                   P2 (polar P1 ANG WDTH)
    
37.             )
    
38.           )
    
39.           ((= JUST 3)
    
40.             (setq P3 INS
    
41.                   P4 (polar INS (+ ANG Pi) WDTH)
    
42.                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)
    
43.                   P2 (polar P1 ANG WDTH)
    
44.             )
    
45.           )
    
46.           ((= JUST 4)
    
47.             (setq P4 (polar INS (+ ANG (* Pi 0.5)) (/ HGHT 2))
    
48.                   P3 (polar P4 ANG WDTH)
    
49.                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)
    
50.                   P2 (polar P1 ANG WDTH)
    
51.             )
    
52.           )
    
53.           ((= JUST 5)
    
54.             (setq P4 (polar INS (- ANG Pi) (/ WDTH 2))
    
55.                   P4 (polar P4 (+ ANG (* Pi 0.5)) (/ HGHT 2))
    
56.                   P3 (polar P4 ANG WDTH)
    
57.                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)
    
58.                   P2 (polar P1 ANG WDTH)
    
59.             )
    
60.           )
    
61.           ((= JUST 6)
    
62.             (setq P3 (polar INS (+ ANG (* Pi 0.5)) (/ HGHT 2))
    
63.                   P4 (polar P3 (+ ANG Pi) WDTH)
    
64.                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)
    
65.                   P2 (polar P1 ANG WDTH)
    
66.             )
    
67.           )
    
68.           ((= JUST 7)
    
69.             (setq P1 INS
    
70.                   P2 (polar P1 ANG WDTH)
    
71.                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)
    
72.                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)
    
73.             )
    
74.           )
    
75.           ((= JUST 8)
    
76.             (setq P1 (polar INS (+ ANG Pi) (/ WDTH 2))
    
77.                   P2 (polar P1 ANG WDTH)
    
78.                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)
    
79.                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)
    
80.             )
    
81.           )
    
82.           ((= JUST 9)
    
83.             (setq P2 INS
    
84.                   P1 (polar INS (+ ANG Pi) WDTH)
    
85.                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)
    
86.                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)
    
87.             )
    
88.           )
    
89.         )
    
90.       )
    
91.       (prompt "\nEntity Not Mtext!")
    
92.     )
    
93.     (list P1 P2 P3 P4)
    
94.   )
    
95. 
    
96. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
97.   (defun drawbox (TXT DIST / TBX PT ORGBND)
    
98. 
    
99.     (if (= TXTYP "TEXT")
    
100.       (progn
     
101.         (setq TBX (textbox TXT))    ; normal text
     
102.         (setq dian1 (car TBX))
     
103.         (setq dian2 (list (caadr TBX)(cadar TBX)))        
     
104.         (setq dian3 (cadr TBX))
     
105.         (setq dian4 (list (caar TBX)(cadadr TBX)))
     
106.         (command "_.pline" (car TBX) (list (caadr TBX)(cadar TBX))
     
107.                  (cadr TBX) (list (caar TBX)(cadadr TBX)) "_close"
     
108.         )
     
109.       )
     
110.       (progn
     
111.         (setq TBX (mtextbox TXT))   ; Mtext
     
112.         (setq dian1 (car TBX))
     
113.         (setq dian2 (cadr TBX))        
     
114.         (setq dian3 (caddr TBX))
     
115.         (setq dian4 (cadddr TBX))
     
116.         (command "_.pline")
     
117.         (foreach PT TBX (command PT))
     
118.         (command "_c")
     
119.       )
     
120.     )
     
121. 
     
122.     (setq ORGBND (entlast))
     
123. 
     
124.     (command "_.offset" DIST (entlast))
     
125.     (if (= TXTYP "TEXT")
     
126.       (command "-1,-1" "")
     
127.        (command (polar
     
128.                  (cdr (assoc 10 TXT))
     
129.                  (cdr (assoc 50 TXT))
     
130.                  (* 2 (cdr (assoc 42 TXT)))
     
131.                )
     
132.                ""
     
133.         )
     
134.      )   
     
135.     (entdel ORGBND)
     
136. (list dian1 dian2 dian3 dian4)
     
137.   );end defun
     
138. 
     
139. 
     
140. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
141.             (setvar "osmode" 0)
     
142.       (setq CNT   0                                   
     
143.             EA   "Y"
     
144.             FLTR   '( (-4 . "<OR")                     
     
145.                           (0 . "MTEXT")
     
146.                           (0 . "TEXT")
     
147.                       (-4 . "OR>")
     
148.                     )
     
149.       )
     
150.   (SETQ EA (getstring "\n\n删除文字所压实体? （N） ："))
     
151. 
     
152. ; ------------------ Set the offset value to use -----------------
     
153.    
     
154.       (setq OSET (getcfg "AppData/AC_Bonus/Txtmsk_Offset"))
     
155. 
     
156.       (if (not (and OSET
     
157.                 (= (type (setq OSET (read OSET))) 'REAL)
     
158.                )
     
159.           )
     
160.         (setq OSET 0.35 )                              ; use 0.35 as default.
     
161.       )
     
162.          
     
163. 
     
164.       (initget 4)                                      ; No negative values allowed
     
165.       (setq TMP
     
166.         (getdist (strcat "\n输入偏移比例：（应大于0） <" (rtos OSET 2 2) ">: "))
     
167.       )
     
168. 
     
169.       (if TMP (setq OSET TMP))
     
170.       (setcfg "AppData/AC_Bonus/Txtmsk_Offset" (rtos OSET 2 2))
     
171. 
     
172. ; ---------------------- get text to mask ------------------------
     
173. 
     
174.       (Princ "\n选择文字以便进行压线剪切或删除文字所压实体：")
     
175.       
     
176.       (setq SS (ssget FLTR))                       
     
177. 
     
178. ; ----------------- Step through each and mask -------------------
     
179. 
     
180.           (While (setq ENT (ssname SS CNT))           
     
181. 
     
182.             
     
183.             (setq TXT   (entget ENT (list "*"))
     
184.                   txt2 (entget ent)
     
185.             TXTYP (cdr (assoc 0 TXT))            
     
186.             )
     
187. 
     
188.             (if (= TXTYP "TEXT")
     
189.               (command "_.ucs" "_object" ENT)      
     
190.                (ucs_2_mtext ENT)
     
191.              )
     
192. 
     
193.             (setq  TOS (* (cdr (assoc 40 TXT)) OSET)   
     
194.             )
     
195. 
     
196.             (drawbox TXT TOS)                          
     
197.             (setq box2 (entlast))
     
198.   
     
199.     (command "trim" "last" "" "f" dian1 dian2 dian3 dian4  dian1 "" "")
     
200.     (command "trim" "last" "" "f" dian1 dian2 dian3 dian4  dian1 "" "")
     
201.     (IF (OR (= EA "y") (= EA "Y"))
     
202.     (command "erase" "wp" dian1 dian2 dian3 dian4 "" ""))
     
203.             (entdel box2)
     
204.               (command "_.ucs" "_previous")              
     
205.   
     
206.             (if (= TXTYP "MTEXT")
     
207.               (command "_.ucs" "_previous")      
     
208.             )
     
209.             
     
210.             (setq CNT (1+ CNT))                       
     
211.           ); while
     
212. 
     
213. )
     
214. 
     
215. )

(defun c:texttrim (     )<br />   (defun ucs_2_mtext (ENT / PT)<br /> <br />     (setq PT (cdr (assoc 210 (entget ENT)))<br />           PT (strcat "*"<br />                (rtos (car PT) 2 8) ","<br />                (rtos (cadr PT) 2 8) ","<br />                (rtos (caddr PT) 2 8)<br />              );setq<br />     (command "_.ucs" "_za" "*0.0,0.0,0.0" PT)<br />     (command "_.ucs" "_or" (trans (cdr (assoc 10 (entget ENT))) 0 1))<br />   )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (defun mtextbox (MTXT / WDTH HGHT INS JUST ANG P1 P2 P3 P4)<br />     (if (and (listp MTXT) (= "MTEXT" (cdr (assoc 0 MTXT))))<br />       (progn<br />         (setq WDTH (cdr (assoc 42 MTXT))<br />               HGHT (cdr (assoc 43 MTXT))<br />               INS  (trans (cdr (assoc 10 MTXT)) 0 1)<br />               JUST (cdr (assoc 71 MTXT))<br />               ANG  (cdr (assoc 50 MTXT))<br />         )<br />         (cond<br />           ((= JUST 1)<br />             (setq P1 (polar INS (- ANG (* Pi 0.5)) HGHT) <br />                   P2 (polar P1 ANG WDTH)                 <br />                   P3 (polar INS ANG WDTH)                <br />                   p4 INS                                 <br />             )<br />           )<br />           ((= JUST 2)<br />             (setq P3 (polar INS ANG (/ WDTH 2))<br />                   P4 (polar INS (+ ANG Pi) (/ WDTH 2))<br />                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)<br />                   P2 (polar P1 ANG WDTH)<br />             )<br />           )<br />           ((= JUST 3)<br />             (setq P3 INS<br />                   P4 (polar INS (+ ANG Pi) WDTH)<br />                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)<br />                   P2 (polar P1 ANG WDTH)<br />             )<br />           )<br />           ((= JUST 4)<br />             (setq P4 (polar INS (+ ANG (* Pi 0.5)) (/ HGHT 2))<br />                   P3 (polar P4 ANG WDTH)<br />                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)<br />                   P2 (polar P1 ANG WDTH)<br />             )<br />           )<br />           ((= JUST 5)<br />             (setq P4 (polar INS (- ANG Pi) (/ WDTH 2))<br />                   P4 (polar P4 (+ ANG (* Pi 0.5)) (/ HGHT 2))<br />                   P3 (polar P4 ANG WDTH)<br />                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)<br />                   P2 (polar P1 ANG WDTH)<br />             )<br />           )<br />           ((= JUST 6)<br />             (setq P3 (polar INS (+ ANG (* Pi 0.5)) (/ HGHT 2))<br />                   P4 (polar P3 (+ ANG Pi) WDTH)<br />                   P1 (polar P4 (- ANG (* Pi 0.5)) HGHT)<br />                   P2 (polar P1 ANG WDTH)<br />             )<br />           )<br />           ((= JUST 7)<br />             (setq P1 INS<br />                   P2 (polar P1 ANG WDTH)<br />                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)<br />                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)<br />             )<br />           )<br />           ((= JUST 8)<br />             (setq P1 (polar INS (+ ANG Pi) (/ WDTH 2))<br />                   P2 (polar P1 ANG WDTH)<br />                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)<br />                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)<br />             )<br />           )<br />           ((= JUST 9)<br />             (setq P2 INS<br />                   P1 (polar INS (+ ANG Pi) WDTH)<br />                   P3 (polar P2 (+ ANG (* Pi 0.5)) HGHT)<br />                   P4 (polar P1 (+ ANG (* Pi 0.5)) HGHT)<br />             )<br />           )<br />         )<br />       )<br />       (prompt "\nEntity Not Mtext!")<br />     )<br />     (list P1 P2 P3 P4)<br />   )<br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (defun drawbox (TXT DIST / TBX PT ORGBND)<br /> <br />     (if (= TXTYP "TEXT")<br />       (progn<br />         (setq TBX (textbox TXT))    ; normal text<br />         (setq dian1 (car TBX))<br />         (setq dian2 (list (caadr TBX)(cadar TBX)))        <br />         (setq dian3 (cadr TBX))<br />         (setq dian4 (list (caar TBX)(cadadr TBX)))<br />         (command "_.pline" (car TBX) (list (caadr TBX)(cadar TBX))<br />                  (cadr TBX) (list (caar TBX)(cadadr TBX)) "_close"<br />         )<br />       )<br />       (progn<br />         (setq TBX (mtextbox TXT))   ; Mtext<br />         (setq dian1 (car TBX))<br />         (setq dian2 (cadr TBX))        <br />         (setq dian3 (caddr TBX))<br />         (setq dian4 (cadddr TBX))<br />         (command "_.pline")<br />         (foreach PT TBX (command PT))<br />         (command "_c")<br />       )<br />     )<br /> <br />     (setq ORGBND (entlast))<br /> <br />     (command "_.offset" DIST (entlast))<br />     (if (= TXTYP "TEXT")<br />       (command "-1,-1" "")<br />        (command (polar <br />                  (cdr (assoc 10 TXT))<br />                  (cdr (assoc 50 TXT))<br />                  (* 2 (cdr (assoc 42 TXT)))<br />                )<br />                ""<br />         )<br />      )    <br />     (entdel ORGBND)<br /> (list dian1 dian2 dian3 dian4)<br />   );end defun<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />             (setvar "osmode" 0) <br />       (setq CNT   0                                   <br />             EA   "Y"<br />             FLTR   '( (-4 . "<OR")                     <br />                           (0 . "MTEXT")<br />                           (0 . "TEXT")<br />                       (-4 . "OR>")<br />                     )<br />       )<br />   (SETQ EA (getstring "\n\n删除文字所压实体? （N） ："))<br /> <br /> ; ------------------ Set the offset value to use ----------------- <br />     <br />       (setq OSET (getcfg "AppData/AC_Bonus/Txtmsk_Offset"))<br /> <br />       (if (not (and OSET<br />                 (= (type (setq OSET (read OSET))) 'REAL) <br />                )<br />           )<br />         (setq OSET 0.35 )                              ; use 0.35 as default.<br />       )<br />           <br /> <br />       (initget 4)                                      ; No negative values allowed<br />       (setq TMP<br />         (getdist (strcat "\n输入偏移比例：（应大于0） <" (rtos OSET 2 2) ">: "))<br />       )<br /> <br />       (if TMP (setq OSET TMP))<br />       (setcfg "AppData/AC_Bonus/Txtmsk_Offset" (rtos OSET 2 2))<br /> <br /> ; ---------------------- get text to mask ------------------------<br /> <br />       (Princ "\n选择文字以便进行压线剪切或删除文字所压实体：")<br />       <br />       (setq SS (ssget FLTR))                       <br /> <br /> ; ----------------- Step through each and mask -------------------<br /> <br />           (While (setq ENT (ssname SS CNT))           <br /> <br />             <br />             (setq TXT   (entget ENT (list "*"))<br />                   txt2 (entget ent)<br />             TXTYP (cdr (assoc 0 TXT))            <br />             )<br /> <br />             (if (= TXTYP "TEXT")<br />               (command "_.ucs" "_object" ENT)       <br />                (ucs_2_mtext ENT)<br />              )<br /> <br />             (setq  TOS (* (cdr (assoc 40 TXT)) OSET)    <br />             )<br /> <br />             (drawbox TXT TOS)                          <br />             (setq box2 (entlast))<br />   <br />     (command "trim" "last" "" "f" dian1 dian2 dian3 dian4  dian1 "" "")<br />     (command "trim" "last" "" "f" dian1 dian2 dian3 dian4  dian1 "" "")<br />     (IF (OR (= EA "y") (= EA "Y"))<br />     (command "erase" "wp" dian1 dian2 dian3 dian4 "" ""))<br />             (entdel box2)<br />               (command "_.ucs" "_previous")              <br />   <br />             (if (= TXTYP "MTEXT")<br />               (command "_.ucs" "_previous")       <br />             )<br />             <br />             (setq CNT (1+ CNT))                       <br />           ); while<br /> <br /> )<br /> <br /> )

偶尔也会出现4楼的情况，谁能看看是什么原因？

huxkv

请教2楼
文本屏蔽是否指在文字区域内将其它实体隐蔽掉,但被隐蔽的实体不变,比如一根直线中间被屏蔽,还是一根直线.
R14里有这个功能吗?我在一份图纸里看过,当时没注意.
填充也一样,当我移出填充里的文字,被屏蔽部分的填充自行恢复了.