多行文字每行画下划线

ferious

2. (defun c:wws(/ en wz wz1 )
   
3.   (setq en (entget (car(entsel))))
   
4.   (setq wz (cdr (assoc 1 en )))
   
5. 
   
6.   (setq wz1 (strcat "{\\L" wz "}"))
   
7.   (setq en (subst (cons 1 wz1)  (cons 1 wz)  en))
   
8.   (entmod en)
   
9.   (prin1)
   
10. )

(defun c:wws(/ en wz wz1 )<br />   (setq en (entget (car(entsel))))<br />   (setq wz (cdr (assoc 1 en )))<br /> <br />   (setq wz1 (strcat "{\\L" wz "}"))<br />   (setq en (subst (cons 1 wz1)  (cons 1 wz)  en))<br />   (entmod en)<br />   (prin1)<br /> )

ferious

2. (defun c:wwe ()
   
3.   (setq sh (getvar "peditaccept"))
   
4.   (setvar "peditaccept" 0)
   
5.   (setq osm (getvar "osmode"))
   
6.   (setvar "osmode" 0)
   
7.   ;(setq mclayer (getvar "CLAYER"))
   
8.   ;(setvar "CLAYER" "0")
   
9.   (setq ss1 (ssget '((0 . "*TEXT"))))
   
10.   (if (null ss1)
    
11.     (progn
    
12.       (princ "\n没有文本实体被选择!")
    
13.       (exit)
    
14.     )                                       ; end progn
    
15.   )                                       ; end if
    
16.   (setq n (sslength ss1))
    
17.   (if (not (= nil n))                       ; no select objects
    
18.     (progn
    
19.     (setq i 0)
    
20.     (while (< i n)
    
21.         (setq txtentname (ssname ss1 i))
    
22.         (setq txtentdata (entget txtentname))
    
23.         (setq i (+ i 1))
    
24.         (setq txtenttype (cdr (assoc 0 txtentdata))) ; get entity's name:
    
25.                                        ; "text" or "mtext"
    
26.         (if (= txtenttype "TEXT")      ; this object is simple line text
    
27.           (progn
    
28.             (vl-cmdf "ucs" "Object" txtentname)        ; 定义用户坐标系到文本的方?
    
29.             (setq tbox (textbox (list (car txtentdata))) ; must change to a list
    
30.                       pt_bl (car tbox)     ; left bottom point coords
    
31.                       pttr (cadr tbox)     ; right top point coords
    
32.                       pttl (list (car pt_bl) (cadr pttr))
    
33.                       pt_br (list (car pttr) (cadr pt_bl))
    
34.             )                               ; end setq
    
35.             (setq roundspace (* 0.2 (distance pt_bl pttl)))
    
36.             (setq pt_bl (polar pt_bl pi (* roundspace 2)))
    
37.             (setq pt_bl (polar pt_bl (* pi 1.5) roundspace))
    
38.             (setq pt_br (polar pt_br 0.0 (* roundspace 2)))
    
39.             (setq pt_br (polar pt_br (* pi 1.5) roundspace)) ;
    
40.             ;(command "pline" pt_bl "w" (* roundspace 0.25) "" pt_br "" "")
    
41.             ;(command "CHPROP" (entlast) "" "C" "BYBlock" "")
    
42.             (command "pline" (polar pt_bl (* pi 1.5) (* roundspace 0.6)) "w" 0 "" (polar pt_br (* pi 1.5) (* roundspace 0.6)) "")
    
43.           (command "CHPROP" (entlast) "" "C" "240" "")               
    
44.             (setvar "peditaccept" sh)
    
45.             (vl-cmdf "ucs" "p" "")
    
46.           )                               ; end progn
    
47.           (progn
    
48.             (vl-cmdf "_.JustifyText" txtentname "" "TL") ; 处理为对对齐模式.
    
49.             (setq txtentdata (entget txtentname))
    
50.             (setq pttl (cdr (assoc 10 txtentdata))
    
51.                   xwidth (cdr (assoc 42 txtentdata))
    
52.                   xheight (cdr (assoc 43 txtentdata))
    
53.                   xangle (cdr (assoc 50 txtentdata))
    
54.                   pt_tc (polar pttl xangle (* xwidth 0.5))
    
55.                   pttr (polar pttl xangle xwidth)
    
56.                   pt_bl (polar pttl (- xangle (/ pi 2.0)) xheight)
    
57.                   pt_bc (polar pt_bl xangle (* xwidth 0.5))
    
58.                   pt_br (polar pt_bl xangle xwidth)
    
59.                   pt_mc (polar pt_bl (angle pt_bl pttr) (/
    
60.                                                            (distance pt_bl
    
61.                                                                      pttr
    
62.                                                            ) 2.0 ; end
    
63.                                                         ) ; end angle
    
64.                         )               ; end polar
    
65.             )                               ; end setq
    
66.             (setq roundspace (* 0.2 (distance pt_bl pttl)))
    
67.             (setq xangle (cdr (assoc 50 txtentdata)))
    
68.             (setq pt_bl (polar pt_bl xangle (- roundspace)))
    
69.             (setq pt_bl (polar pt_bl (+ xangle (/ pi 2.0)) (- roundspace)))
    
70.             (setq pt_br (polar pt_br xangle roundspace))
    
71.             (setq pt_br (polar pt_br (+ xangle (/ pi 2.0)) (- roundspace)))
    
72.             (setq pttl (polar pttl xangle (- roundspace)))
    
73.             (setq pttl (polar pttl (+ xangle (/ pi 2.0)) roundspace))
    
74.             (setq pttr (polar pttr xangle roundspace))
    
75.             (setq pttr (polar pttr (+ xangle (/ pi 2.0)) roundspace)) ;
    
76.             ;(command "pline" pt_bl "w" (* roundspace 0.25) "" pt_br "")
    
77.             ;(command "CHPROP" (entlast) "" "C" "BYBlock" "")
    
78.             (command "pline" (polar pt_bl (* pi 1.5) (* roundspace 0.6)) "w" 0 "" (polar pt_br (* pi 1.5) (* roundspace 0.6)) "")
    
79.          (command "CHPROP" (entlast) "" "C" "240" "")                               ; end command
    
80.             (setvar "peditaccept" sh)
    
81.           )                               ; end progn
    
82.         )                               ; end if
    
83.       )                                       ; end while
    
84.     )                                       ; end progn
    
85.   )                                       ; end if
    
86.   (setvar "CLAYER" mclayer)
    
87.   (vl-cmdf "ucs" "W" "")
    
88.   (setvar "osmode" osm)
    
89.   (princ)
    
90. )

(defun c:wwe ()<br />   (setq sh (getvar "peditaccept"))<br />   (setvar "peditaccept" 0)<br />   (setq osm (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   ;(setq mclayer (getvar "CLAYER"))<br />   ;(setvar "CLAYER" "0")<br />   (setq ss1 (ssget '((0 . "*TEXT"))))<br />   (if (null ss1)<br />     (progn<br />       (princ "\n没有文本实体被选择!")<br />       (exit)<br />     )                                       ; end progn<br />   )                                       ; end if<br />   (setq n (sslength ss1))<br />   (if (not (= nil n))                       ; no select objects<br />     (progn<br />     (setq i 0)<br />     (while (< i n)<br />         (setq txtentname (ssname ss1 i))<br />         (setq txtentdata (entget txtentname))<br />         (setq i (+ i 1))<br />         (setq txtenttype (cdr (assoc 0 txtentdata))) ; get entity's name:<br />                                        ; "text" or "mtext"<br />         (if (= txtenttype "TEXT")      ; this object is simple line text<br />           (progn<br />             (vl-cmdf "ucs" "Object" txtentname)        ; 定义用户坐标系到文本的方?<br />             (setq tbox (textbox (list (car txtentdata))) ; must change to a list<br />                       pt_bl (car tbox)     ; left bottom point coords<br />                       pttr (cadr tbox)     ; right top point coords<br />                       pttl (list (car pt_bl) (cadr pttr))<br />                       pt_br (list (car pttr) (cadr pt_bl))<br />             )                               ; end setq<br />             (setq roundspace (* 0.2 (distance pt_bl pttl)))<br />             (setq pt_bl (polar pt_bl pi (* roundspace 2)))<br />             (setq pt_bl (polar pt_bl (* pi 1.5) roundspace))<br />             (setq pt_br (polar pt_br 0.0 (* roundspace 2)))<br />             (setq pt_br (polar pt_br (* pi 1.5) roundspace)) ;<br />             ;(command "pline" pt_bl "w" (* roundspace 0.25) "" pt_br "" "")<br />             ;(command "CHPROP" (entlast) "" "C" "BYBlock" "")<br />             (command "pline" (polar pt_bl (* pi 1.5) (* roundspace 0.6)) "w" 0 "" (polar pt_br (* pi 1.5) (* roundspace 0.6)) "") <br />           (command "CHPROP" (entlast) "" "C" "240" "")               <br />             (setvar "peditaccept" sh)<br />             (vl-cmdf "ucs" "p" "")<br />           )                               ; end progn<br />           (progn<br />             (vl-cmdf "_.JustifyText" txtentname "" "TL") ; 处理为对对齐模式.<br />             (setq txtentdata (entget txtentname))<br />             (setq pttl (cdr (assoc 10 txtentdata))<br />                   xwidth (cdr (assoc 42 txtentdata))<br />                   xheight (cdr (assoc 43 txtentdata))<br />                   xangle (cdr (assoc 50 txtentdata))<br />                   pt_tc (polar pttl xangle (* xwidth 0.5))<br />                   pttr (polar pttl xangle xwidth)<br />                   pt_bl (polar pttl (- xangle (/ pi 2.0)) xheight)<br />                   pt_bc (polar pt_bl xangle (* xwidth 0.5))<br />                   pt_br (polar pt_bl xangle xwidth)<br />                   pt_mc (polar pt_bl (angle pt_bl pttr) (/<br />                                                            (distance pt_bl<br />                                                                      pttr<br />                                                            ) 2.0 ; end<br />                                                         ) ; end angle<br />                         )               ; end polar<br />             )                               ; end setq<br />             (setq roundspace (* 0.2 (distance pt_bl pttl)))<br />             (setq xangle (cdr (assoc 50 txtentdata)))<br />             (setq pt_bl (polar pt_bl xangle (- roundspace)))<br />             (setq pt_bl (polar pt_bl (+ xangle (/ pi 2.0)) (- roundspace)))<br />             (setq pt_br (polar pt_br xangle roundspace))<br />             (setq pt_br (polar pt_br (+ xangle (/ pi 2.0)) (- roundspace)))<br />             (setq pttl (polar pttl xangle (- roundspace)))<br />             (setq pttl (polar pttl (+ xangle (/ pi 2.0)) roundspace))<br />             (setq pttr (polar pttr xangle roundspace))<br />             (setq pttr (polar pttr (+ xangle (/ pi 2.0)) roundspace)) ;<br />             ;(command "pline" pt_bl "w" (* roundspace 0.25) "" pt_br "")<br />             ;(command "CHPROP" (entlast) "" "C" "BYBlock" "")<br />             (command "pline" (polar pt_bl (* pi 1.5) (* roundspace 0.6)) "w" 0 "" (polar pt_br (* pi 1.5) (* roundspace 0.6)) "")<br />          (command "CHPROP" (entlast) "" "C" "240" "")                               ; end command<br />             (setvar "peditaccept" sh)<br />           )                               ; end progn<br />         )                               ; end if<br />       )                                       ; end while<br />     )                                       ; end progn<br />   )                                       ; end if<br />   (setvar "CLAYER" mclayer)<br />   (vl-cmdf "ucs" "W" "")<br />   (setvar "osmode" osm)<br />   (princ)<br /> )

ferious

自贡黄明儒 发表于 2023-11-14 07:11
好像langjs大师写过，你找一下他的帖子
http://www.mjtd.com/home.php?mod=space&uid=52147&do=thread&vie ...

http://bbs.mjtd.com/thread-84999-1-1.html?_dsign=8d0395fc
大师，能帮忙整一下吗？

ferious

黄大师，还有看到你的文字穿的函数，有没从中间取出字符串的函数。substr试了下乱码。
现在有了多行文字加下划线，取掉下划线的时候，处理有问题，能帮忙看下？
U这种加减下划线的是不是有快捷键？比较乱，希望大师赐教

自贡黄明儒

桌子只有一根下划线，你要2两根，只好用直线了。

ferious

多谢，是要直线，后面那个长代码只能适用多行文字为一行的情况，有没类似的代码或者函数发下参考下？

wangsr

这是我一个QQ版的，把插件上传，看谁能破了。

ferious

wangsr 发表于 2023-11-13 16:58
这是我一个QQ版的，把插件上传，看谁能破了。

这个长代码就可以实现，里面有两个画线的命令，问题是多行文字多尴行数时候，每一行怎么都画直线？

自贡黄明儒

好像langjs大师写过，你找一下他的帖子
http://www.mjtd.com/home.php?mod ... om=space&page=2

ferious

多行文本处理是炸开了变成单行了，大师不用炸开，还是需要多行文本的怎么处理？