请问用entmake在指定位置生成对应文字的代码怎么写？谢谢～

逗亦斗霸

llsheng_73 发表于 2024-12-27 09:58
ptn用你的点构成表，lst用你要写的文字内容构成表，到这一步相当于填写姓名、性别那么简单了

http://bbs.mjtd.com/forum.php?mo ... B%D7%E9%B1%E4%C1%BF
感谢指点！昨晚其实搜索到了大佬发的帖子，但当时没懂

逗亦斗霸

fangmin723 发表于 2024-12-27 12:59
额，我这只是示意，具体的你自己改动下就行了
(setq lst (list (cons  (getpoint "拾取点a")  "文字1")  ...

感谢回复！我添加'(7 . "宋体") 和'(41 . 0.8)后是正常的，但加上'(71 . 1) '(72 . 1) '(73 . 2)后文字位置不对了，想请问一下，怎么添加控制文字对正方式的组码？

逗亦斗霸

xyp1964 发表于 2024-12-27 12:47

感谢版主指点！这种写法也是同样的疑问，对正方式'(71 . 1) '(72 . 1) '(73 . 2)要怎么添加进去啊？

llsheng_73

71	文字生成标志（可选；默认值 = 0）： 2 = 文字反向（在 X 轴方向镜像） 4 = 文字倒置（在 Y 轴方向镜像)

组  72 和 73 整数代码
组  73	组 72	1	2	3	4	5
	0
3（顶端对正）	左上	中上	右上
2（居中对正）	左中	正中	右中
1（底端对正）	左下	中下	右下
0（基线对正）	左	中心	右	对齐	中间	拟合

如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长度和高度（应用文字样式之后）计算新值。 如果组 72 和 73 的值为零或缺失，第二对齐点将没有意义。

逗亦斗霸

llsheng_73 发表于 2024-12-27 15:30
如果组 72 和/或 73 的值非零，则第一对齐点的值将被忽略，AutoCAD 将根据第二对齐点和文字字符串的长 ...

这个看懂了，以前也收藏过，'(71 . 1) '(72 . 1) '(73 . 2)用在单独生成文字的entmake代码可以正常生成正中对齐的文字，但在对应生成文字的代码里就不管用了，几个文字都生成到原点去了~

llsheng_73

逗亦斗霸 发表于 2024-12-27 15:59
这个看懂了，以前也收藏过，'(71 . 1) '(72 . 1) '(73 . 2)用在单独生成文字的entmake代码可以正常生成正 ...

第一对齐点10组第二对齐点11组，多看看别人写的，通常都是10组和11组给同样的坐标，反正只有一个起作用

逗亦斗霸

llsheng_73 发表于 2024-12-27 17:41
第一对齐点10组第二对齐点11组，多看看别人写的，通常都是10组和11组给同样的坐标，反正只有一个起作用

果然可以，太感谢了~

xyp1964

逗亦斗霸 发表于 2024-12-27 14:30
感谢版主指点！这种写法也是同样的疑问，对正方式'(71 . 1) '(72 . 1) '(73 . 2)要怎么添加进去啊？

1. (setq lst-tx'("文字1" "文字6" "文字8")
   
2.       lst-pt(list a b d)
   
3. )
   
4. (mapcar'(lambda(x y)(xyp-Text 5 x y))lst-pt lst-tx)

(setq lst-tx'("文字1" "文字6" "文字8")<br />       lst-pt(list a b d)<br /> )<br /> (mapcar'(lambda(x y)(xyp-Text 5 x y))lst-pt lst-tx)

逗亦斗霸

xyp1964 发表于 2024-12-27 22:05

感谢感谢~

lee50310

逗亦斗霸 发表于 2024-12-27 14:30
感谢版主指点！这种写法也是同样的疑问，对正方式'(71 . 1) '(72 . 1) '(73 . 2)要怎么添加进去啊？

1. ;;--------------------------------------------------------- -------   
   
2. (defun c:tt()
   
3. (mapcar 'set '( a b d) (list '(634.061 61.7639 0.0) '(634.061 58.2639 0.0) '(612.788 52.4797 0.0)) )
   
4. 
   
5. (setq lst-tx '("文字1" "文字6" "文字8")
   
6.       lst-pt (list a b d)
   
7.       data '(1 1 2) ;文字對齊方式
   
8. )
   
9. (mapcar'(lambda(x y)(make:txt "宋體" 2.5 0 6 data x y))lst-pt lst-tx)
   
10. )
    
11. ;;------------- -------------------------------------
    

;;--------------------------------------------------------- -------   <br /> (defun c:tt() <br /> (mapcar 'set '( a b d) (list '(634.061 61.7639 0.0) '(634.061 58.2639 0.0) '(612.788 52.4797 0.0)) )<br /> <br /> (setq lst-tx '("文字1" "文字6" "文字8") <br />       lst-pt (list a b d) <br />       data '(1 1 2) ;文字對齊方式<br /> ) <br /> (mapcar'(lambda(x y)(make:txt "宋體" 2.5 0 6 data x y))lst-pt lst-tx) <br /> ) <br /> ;;------------- -------------------------------------<br />