文字加下划线（同时转换成属性块）和 下划线更新 插件

Lispboy

游客，如果您要查看本帖隐藏内容请回复

下划线更新：

1. (defun c:xdtb_textulineupd (/ atts insert box mat xdir ydir p1 p2 p3 p4 p5 p6 dist h el blks)
   
2.   (defun _update (blk)
   
3.     (setq insert (ssname (ssget "x" (list (cons 2 blk))) 0)
   
4.           atts         (xdrx_getpropertyvalue insert "attributeentities")
   
5.           box         (xdrx_entity_box atts (cadr (xdrx_entity_getecs insert)))
   
6.           mat         (xdrx_matrix_block2wcs insert)
   
7.           mat         (xdrx_matrix_inverse mat)
   
8.           box         (xdrx_points_transform box mat)
   
9.           xdir         '(1 0 0)
   
10.           ydir         '(0 1 0)
    
11.           p1         (car box)
    
12.           p2         (cadr box)
    
13.           dist         (distance p1 p2)
    
14.           p1         (mapcar '+ p1 (xdrx_vector_product xdir (- (* #ext dist))))
    
15.           p2         (mapcar '+ p2 (xdrx_vector_product xdir (* #ext dist)))
    
16.           h         (distance (car box) (last box))
    
17.           p3         (mapcar '+ p1 (xdrx_vector_product ydir (- (* 0.3333 h))))
    
18.           p4         (mapcar '+ p2 (xdrx_vector_product ydir (- (* 0.3333 h))))
    
19.           p5         (mapcar '+
    
20.                          p3
    
21.                          (xdrx_vector_product
    
22.                            ydir
    
23.                            (- (setq wid (xd::var:getdrawratio)))
    
24.                          )
    
25.                  )
    
26.           p6         (mapcar '+ p4 (xdrx_vector_product ydir (- wid)))
    
27.     )
    
28.     (xdrx_entity_delete ents)
    
29.     (setq el (xdrx_block_getentities blk '((0 . "*polyline"))))
    
30.     (xdrx_setpropertyvalue
    
31.       (car el)
    
32.       "setpointat"
    
33.       (list 0 p3)
    
34.       "setpointat"
    
35.       (list 1 p4)
    
36.     )
    
37.     (xdrx_setpropertyvalue
    
38.       (cadr el)
    
39.       "setpointat"
    
40.       (list 0 p5)
    
41.       "setpointat"
    
42.       (list 1 p6)
    
43.     )
    
44.   )
    
45.   (if (setq ss (ssget "x"
    
46.                       (list '(0 . "INSERT") (cons 2 "xd_text_xiahua_*"))
    
47.                )
    
48.       )
    
49.     (progn (setq blks (xdrx_entity_getproperty ss "blocktablerecord")
    
50.                  blks (xd::list:groupbyindex (mapcar 'car blks) 0)
    
51.            )
    
52.            (mapcar '(lambda (x) (_update (car x))) blks)
    
53.     )
    
54.   )
    
55.   (princ)
    
56. )
    

(defun c:xdtb_textulineupd (/ atts insert box mat xdir ydir p1 p2 p3 p4 p5 p6 dist h el blks)<br />   (defun _update (blk)<br />     (setq insert (ssname (ssget "x" (list (cons 2 blk))) 0)<br />           atts         (xdrx_getpropertyvalue insert "attributeentities")<br />           box         (xdrx_entity_box atts (cadr (xdrx_entity_getecs insert)))<br />           mat         (xdrx_matrix_block2wcs insert)<br />           mat         (xdrx_matrix_inverse mat)<br />           box         (xdrx_points_transform box mat)<br />           xdir         '(1 0 0)<br />           ydir         '(0 1 0)<br />           p1         (car box)<br />           p2         (cadr box)<br />           dist         (distance p1 p2)<br />           p1         (mapcar '+ p1 (xdrx_vector_product xdir (- (* #ext dist))))<br />           p2         (mapcar '+ p2 (xdrx_vector_product xdir (* #ext dist)))<br />           h         (distance (car box) (last box))<br />           p3         (mapcar '+ p1 (xdrx_vector_product ydir (- (* 0.3333 h))))<br />           p4         (mapcar '+ p2 (xdrx_vector_product ydir (- (* 0.3333 h))))<br />           p5         (mapcar '+<br />                          p3<br />                          (xdrx_vector_product<br />                            ydir<br />                            (- (setq wid (xd::var:getdrawratio)))<br />                          )<br />                  )<br />           p6         (mapcar '+ p4 (xdrx_vector_product ydir (- wid)))<br />     )<br />     (xdrx_entity_delete ents)<br />     (setq el (xdrx_block_getentities blk '((0 . "*polyline"))))<br />     (xdrx_setpropertyvalue<br />       (car el)<br />       "setpointat"<br />       (list 0 p3)<br />       "setpointat"<br />       (list 1 p4)<br />     )<br />     (xdrx_setpropertyvalue<br />       (cadr el)<br />       "setpointat"<br />       (list 0 p5)<br />       "setpointat"<br />       (list 1 p6)<br />     )<br />   )<br />   (if (setq ss (ssget "x"<br />                       (list '(0 . "INSERT") (cons 2 "xd_text_xiahua_*"))<br />                )<br />       )<br />     (progn (setq blks (xdrx_entity_getproperty ss "blocktablerecord")<br />                  blks (xd::list:groupbyindex (mapcar 'car blks) 0)<br />            )<br />            (mapcar '(lambda (x) (_update (car x))) blks)<br />     )<br />   )<br />   (princ)<br /> )<br />

liuyj

更新这个功能不错

renyonghua2014

看看楼主的程序，谢谢提供。

longer88

不错，很有用处

spp_wall

每日插件 每日新鲜！！！！！！！

cfc123456

每日新鲜，每天更新！

Come_ezIzp

这个很强大~

searinon

可以，相当完美。

lw5297590

看看楼主的程序，谢谢提供。

knife0930

看看楼主的程序，谢谢提供。

Michael527

非常实用的功能，谢谢

86533045

谢谢分享。
来自: 微社区

changqmtt

一直在找下划线的插件，谢谢了

wacy1902

非常实用的功能，谢谢