关于entmake text 对正点

wangxf888

现有个问题请教各位大侠，（command "text" "mc" p1 h1 0 sxh1) 是以P1为中心对齐点插入文字，但是我想用entmake方式创建文字， "mc"应该怎么表达呢  在论坛上找了半天都没有找到答案。 (entmake (list '
       (0 . "TEXT")
       (cons 10 txt_point)
       (cons 40 300)
       '(41 . 0.8)
       (cons 1 "txt")
       '(7 . "hztxt")
         '(72 . 1)
         '(73 . 2)
         '(8 . "0")
     )
   )

这样写的是不对的  这个72 73  该怎么写呢，恳请各位出手相助  谢谢  困扰一天了！

andymong

;;;生成单行文字
;;; 1为text为文字内容 7为文字样式 8为文字图层 10为文字起点 40为文字高度 51为文字角度 62为文字颜色 41为文字高宽比
;;;其中1、10、40为必须有的，其他可精简
;;;72 73码为文字对齐方式；左上(0 3)左中(0 2)左下(0 1) 左(0 0) 中上(1 3)正中(1 2)中下(1 1) 中心(1 0)右上(2 3)右中(2 2)右下(2 1) 右(2 0)
(defun mak-text ( text pt layer height angle color)
        (entmake (list '(0 . "TEXT") (cons 1 text)(cons 7 style)(cons 8 layer)(cons 10 pt)(cons 40 height)(cons 51 angle)(cons 62 color)(cons 11 pt)  (cons 72 1) (cons 73 2) '(41 . 0.7)))
)

669423907

添加组码 10和11
(entmake (list'(0 . "text")'(72 . 4)'(370 . 100)(cons 1(itoa ix))(cons 10 x0y)(cons 11 x0y)(cons 40 zigao)(cons 41 zikuan)(cons 8 tcm)(cons 62 ys)))

wangxf888

669423907 发表于 2019-9-20 22:08
添加组码 10和11
(entmake (list'(0 . "text")'(72 . 4)'(370 . 100)(cons 1(itoa ix))(cons 10 x0y)(cons ...

cons 10 txt_point  我这个 txt_point  不是固定的位置，怎么表达坐标值呢，能不能具体写下呢？谢谢！

wangxf888

andymong 发表于 2019-9-20 22:29
;;;生成单行文字
;;; 1为text为文字内容 7为文字样式 8为文字图层 10为文字起点 40为文字高度 51为文字角 ...

感谢  感谢  可以用了  

shcvip

1. 对于mtext，控制文字的对齐格式可以使用以下组码：
   
2. (71 . 1) 左对齐-上对齐 这个是默认的对齐方式
   
3. (71 . 4) 左对齐-中央对齐
   
4. (71 . 7) 左对齐-下对齐
   
5. (71 . 2) 居中对齐-上对齐
   
6. (71 . 5) 居中对齐-中央对齐
   
7. (71 . 8) 居中对齐-下对齐
   
8. (71 . 3) 右对齐-上对齐
   
9. (71 . 6) 右对齐-中央对齐
   
10. (71 . 9) 右对齐-下对齐

复制代码