求助，entmake制作属性块，怎么水平对齐？

6224jjyy

entmake制作属性块，属性文字无法对齐圆心。纯小白，被折腾一天了，求帮助。
'(72 . 1)，用来水平居中对齐，貌似没作用，不知道错在哪里了。

2. (setq zz (getstring "请输入圆的高度(m): "))
   
3. (while (setq pt (getpoint "\n指定圆心位置: "))
   
4.   (setq name (getvar "clayer"))
   
5.   (entmake (list '(0 . "BLOCK") '(70 . 2) '(10 0.0 0.0 0.0) (cons 2 name)))
   
6.   (entmake '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 80) (370 . 30)))
   
7.   (entmake '((0 . "ENDBLK")))
   
8.   (entmake (list '(0 . "INSERT") '(66 . 1) (cons 2 name) (cons 10 pt)))
   
9.   (entmake (list '(0 . "ATTRIB") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 pt) (cons 11 pt) (cons 40 48) (cons 1 zz) '(100 . "AcDbAttribute") (cons 2 "A") '(70 . 0) '(72 . 1) '(74 . 2)))
   
10.   (entmake '((0 . "SEQEND")))
    
11. )

(setq zz (getstring "请输入圆的高度(m): "))<br /> (while (setq pt (getpoint "\n指定圆心位置: "))<br />   (setq name (getvar "clayer"))<br />   (entmake (list '(0 . "BLOCK") '(70 . 2) '(10 0.0 0.0 0.0) (cons 2 name)))<br />   (entmake '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 80) (370 . 30)))<br />   (entmake '((0 . "ENDBLK")))<br />   (entmake (list '(0 . "INSERT") '(66 . 1) (cons 2 name) (cons 10 pt)))<br />   (entmake (list '(0 . "ATTRIB") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 pt) (cons 11 pt) (cons 40 48) (cons 1 zz) '(100 . "AcDbAttribute") (cons 2 "A") '(70 . 0) '(72 . 1) '(74 . 2)))<br />   (entmake '((0 . "SEQEND")))<br /> )

菜卷鱼

建普通块跟属性块不要自己去写代码建，
手动建好块之后，用程序把它转成代码

edata

1. (defun c:tt(/ zz pt name zr)
   
2.         (setq zr (getstring "请输入圆的高度(m): "))
   
3.         (while (setq pt (getpoint "\n指定圆心位置: "))
   
4.                 (setq name (getvar "clayer"))
   
5.                 (entmake (list '(0 . "BLOCK") '(70 . 2) '(10 0.0 0.0 0.0) (cons 2 name)))
   
6.                 (entmake '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 80) (370 . 30)))
   
7.                 (entmake '((0 . "ENDBLK")))
   
8.                 (entmake (list '(0 . "INSERT") '(66 . 1) (cons 2 name) (cons 10 pt)))
   
9.                 (entmake (list '(0 . "ATTRIB") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 pt) (cons 11 pt) (cons 40 48) (cons 1 zr)'(71 . 0)  '(72 . 1)'(100 . "AcDbAttribute") (cons 2 "A") '(70 . 0)  '(73 . 2)  '(74 . 2)))
   
10.                 (entmake '((0 . "SEQEND"))))
    
11.         (princ)
    
12.         )

(defun c:tt(/ zz pt name zr)<br />         (setq zr (getstring "请输入圆的高度(m): "))<br />         (while (setq pt (getpoint "\n指定圆心位置: "))<br />                 (setq name (getvar "clayer"))<br />                 (entmake (list '(0 . "BLOCK") '(70 . 2) '(10 0.0 0.0 0.0) (cons 2 name)))<br />                 (entmake '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 80) (370 . 30)))<br />                 (entmake '((0 . "ENDBLK")))<br />                 (entmake (list '(0 . "INSERT") '(66 . 1) (cons 2 name) (cons 10 pt)))<br />                 (entmake (list '(0 . "ATTRIB") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 pt) (cons 11 pt) (cons 40 48) (cons 1 zr)'(71 . 0)  '(72 . 1)'(100 . "AcDbAttribute") (cons 2 "A") '(70 . 0)  '(73 . 2)  '(74 . 2)))<br />                 (entmake '((0 . "SEQEND"))))<br />         (princ)<br />         )

6224jjyy

考虑过用polar函数，把属性基准点左移，但属性数字的长度不一致。
数值可能是4.5，可能是450.55，所以希望居中对齐，看起来更美观。

6224jjyy

求大神帮忙

6224jjyy

edata 发表于 2022-5-23 20:37

非常感谢！

999999

感谢大神的回答

LIULISHENG

非常感谢！

paulpipi

感谢高手的分享

duhan6401

谢谢高手的提点