请教如何生成文字居中的属性块

20060510412

目前有一个生成属性块的子函数，可以正常运行，但是只能生成左对齐的文字。
现在想增加一个文字对齐的参数，从而可以生成各种对齐方式。
目前对于文字对齐一头雾水，请高手帮忙指点一二。

2. ;;说明:制作并插入属性块
   
3. ;;参数:name_block:块对象名称
   
4. ;;参数:list_tagstring:属性块标签文本，可以支持多个，如(list "tagstring1" "tagstring2")
   
5. ;;参数:list_textstring:属性块标签值，可以支持多个，与tagstring相对应，如(list "textstring2" "textstring2")，默认显示的是最后一个string。
   
6. ;;参数:list_coordinate:块引用坐标，例如(list 0 0 0)
   
7. ;;参数:textHeight:字体高度，如2.5
   
8. ;;参数:TextStyle:字体样式，如"FSDB"
   
9. ;;参数:TextWidthScale:字体的宽度因子，如0.75
   
10. ;;返回:生成的属性块引用图元名
    
11. ;;示例:(block_att_make "name" (list "name" "name1") (list "构造图" "构造图2") (list 0 0 0) 2.5 "FSDB" 0.75)
    
12. (defun block_att_make(name_block list_tagstring list_textstring list_coordinate textHeight TextStyle TextWidthScale )
    
13.   (entmake (list
    
14.              '(0 . "block")           
    
15.              (cons 2 name_block)       ;图块名
    
16.              '(70 . 2)                 ;块具有非固定属性定义
    
17.              '(10 0.0 0.0 0.0))        ;基点
    
18.   );block定义
    
19.   (entmake '((0 . "ENDBLK")));结束标志
    
20.   
    
21.   (entmake (list '(0 . "INSERT")            
    
22.              '(66 . 1)
    
23.              (cons 2 name_block)
    
24.              (append (list 10) list_coordinate)  ;插入点
    
25.              '(41 . 500.0)
    
26.              '(42 . 500.0)
    
27.              '(43 . 500.0)
    
28.            )  
    
29.   )
    
30.   (mapcar
    
31.     '(lambda(a b)
    
32.        (entmake
    
33.          (list
    
34.            '(0 . "ATTRIB")
    
35.            '(100 . "AcDbEntity")
    
36.            '(100 . "AcDbText")
    
37.            (append (list 10) list_coordinate)    ;插入点
    
38.            ;'(10 0.0 0.0 0.0)
    
39.            (cons 40 textHeight)      ;字体高度
    
40.            (cons 7 TextStyle)        ;字体样式
    
41.            (cons 41 TextWidthScale)      ;字体宽度因子
    
42.            (cons 1 b)    ;tagValue
    
43.            '(100 . "AcDbAttribute")
    
44.            (cons 2 a)    ;tagstring
    
45.            '(70 . 0);(70 . 1)属性字不可见  (70 . 0)属性字可见
    
46. 
    
47.          )
    
48.        )
    
49.      )
    
50.     list_tagstring
    
51.     list_textstring
    
52.   )
    
53.   
    
54.   (entmake '((0 . "SEQEND")))
    
55.   (entlast)
    
56. )

;;说明:制作并插入属性块<br /> ;;参数:name_block:块对象名称<br /> ;;参数:list_tagstring:属性块标签文本，可以支持多个，如(list "tagstring1" "tagstring2")<br /> ;;参数:list_textstring:属性块标签值，可以支持多个，与tagstring相对应，如(list "textstring2" "textstring2")，默认显示的是最后一个string。<br /> ;;参数:list_coordinate:块引用坐标，例如(list 0 0 0)<br /> ;;参数:textHeight:字体高度，如2.5<br /> ;;参数:TextStyle:字体样式，如"FSDB"<br /> ;;参数:TextWidthScale:字体的宽度因子，如0.75<br /> ;;返回:生成的属性块引用图元名<br /> ;;示例:(block_att_make "name" (list "name" "name1") (list "构造图" "构造图2") (list 0 0 0) 2.5 "FSDB" 0.75)<br /> (defun block_att_make(name_block list_tagstring list_textstring list_coordinate textHeight TextStyle TextWidthScale )<br />   (entmake (list<br />              '(0 . "block")           <br />              (cons 2 name_block)       ;图块名<br />              '(70 . 2)                 ;块具有非固定属性定义<br />              '(10 0.0 0.0 0.0))        ;基点<br />   );block定义<br />   (entmake '((0 . "ENDBLK")));结束标志<br />   <br />   (entmake (list '(0 . "INSERT")            <br />              '(66 . 1) <br />              (cons 2 name_block) <br />              (append (list 10) list_coordinate)  ;插入点<br />              '(41 . 500.0) <br />              '(42 . 500.0) <br />              '(43 . 500.0) <br />            )  <br />   )<br />   (mapcar <br />     '(lambda(a b)<br />        (entmake <br />          (list<br />            '(0 . "ATTRIB")<br />            '(100 . "AcDbEntity")<br />            '(100 . "AcDbText")<br />            (append (list 10) list_coordinate)    ;插入点<br />            ;'(10 0.0 0.0 0.0)<br />            (cons 40 textHeight)      ;字体高度<br />            (cons 7 TextStyle)        ;字体样式<br />            (cons 41 TextWidthScale)      ;字体宽度因子<br />            (cons 1 b)    ;tagValue<br />            '(100 . "AcDbAttribute")<br />            (cons 2 a)    ;tagstring<br />            '(70 . 0);(70 . 1)属性字不可见  (70 . 0)属性字可见<br /> <br />          )<br />        )<br />      )<br />     list_tagstring<br />     list_textstring<br />   )<br />   <br />   (entmake '((0 . "SEQEND")))<br />   (entlast)<br /> )

xtjd

20060510412 发表于 2022-11-14 15:56
恕我愚钝，我根本就没用到组码73啊。
如何更改为74呢

xtjd

20060510412

xtjd 发表于 2022-11-14 15:15

这个资料我也看到了，但是摸索半天，发现生成的属性块一直都是左对齐……

xtjd

20060510412 发表于 2022-11-14 15:18
这个资料我也看到了，但是摸索半天，发现生成的属性块一直都是左对齐……

在ATTRIB，组码73需更改为74

20060510412

xtjd 发表于 2022-11-14 15:52
在ATTRIB，组码73需更改为74

恕我愚钝，我根本就没用到组码73啊。
如何更改为74呢

20060510412

xtjd 发表于 2022-11-14 16:04

多谢指点，问题已经解决！

关于文本的对齐方式，始终有点摸不着头脑，先这样用着，后期再慢慢琢磨吧。

其实vlisp关于这个对齐方式就很简单，直接一个vla-put-align就搞定了。

不明白alisp为什么要搞得这么繁琐。

菜卷鱼

跟你这个类似的帖子找不到了，再回复一下。

属性块不要用代码去创建，而是先做好属性块，再去转换成代码，再下次用代码生成。

xyp1964

1. ;command方式多简单
   
2. (defun AttBlock        (name bj ts sxz th / s0 pt)
   
3.   ;; bj属性标记名 ts输入属性提示 sxz默认属性值 th文本高度
   
4.   ;; (AttBlock "$abc" "A" "标高值" "±0.000" 300)
   
5.   (setq s0 (entlast)
   
6.         pt '(0 0)
   
7.   )
   
8.   (command "-attdef" "" bj ts sxz "j" "mc" "non" pt th 0)
   
9.   (command "-block" name "non" pt (entlast) "")
   
10. )

;command方式多简单<br /> (defun AttBlock        (name bj ts sxz th / s0 pt)<br />   ;; bj属性标记名 ts输入属性提示 sxz默认属性值 th文本高度<br />   ;; (AttBlock "$abc" "A" "标高值" "±0.000" 300)<br />   (setq s0 (entlast)<br />         pt '(0 0)<br />   )<br />   (command "-attdef" "" bj ts sxz "j" "mc" "non" pt th 0)<br />   (command "-block" name "non" pt (entlast) "")<br /> )

20060510412

菜卷鱼 发表于 2022-11-14 17:59
跟你这个类似的帖子找不到了，再回复一下。

属性块不要用代码去创建，而是先做好属性块，再去转换成代码 ...

谢谢分享，不过我是直接用来生成图框标题的属性块，文本内容都是不同的，只能通过代码去新建属性块了。