关于解决文字坐标与文件几何图形坐标不一致的方法
本帖最后由 skg123 于 2015-9-9 17:58 编辑本人在绘图的时候，出现文字的插入点坐标与几何图形坐标不一致的现象，导致文字没有出现在预设的位置，文字是lisp程序自动写入图中。
图一 文字节点相距很大，导致文字不能出现在预定的位置。
图二：坐标不一致
经过明经群请教，问题得到解决。这里感谢群中“ E派”的帮助
下面把代码贴上，代码需要 E派工具 的支持
;; tt(文字坐标修改)
(defun c:tt ()
(xyp-Start)
(setq i -1)
(if (setq ss (ssget '((0 . "text"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (xyp-9pt s1 1))
(xyp-move s1 p1 p1)
(xyp-move s1 (xyp-9pt s1 1) p1)
)
)
(xyp-End)
)
也可以修改dxf 11码与10码相同来解决 修改文字对正方式，有的对正方式的插入点是组码11有的是10 好像是这样，说错了别骂 本帖最后由 waterchen 于 2015-9-10 09:51 编辑
Text有15种对齐方式，Mtext有9种对齐方式，如果是Text，只有左对齐仅修改组码10的，对齐方式为FIT的要同时修改组码10及11，其他修改组码11就可以了。 这个好像和CAD设置有关，我编的一个程序也这样，但是在其他机器上是没问提，11码与10码相同设置的 找到原因了，是字体的原因，换个字体就好了 没这么复杂，(command "_.JUSTIFYTEXT" ss "" "MC")就解决了。 waterchen 发表于 2015-9-10 09:46
Text有15种对齐方式，Mtext有9种对齐方式，如果是Text，只有左对齐仅修改组码10的，对齐方式为FIT的要同时 ...
学习了，难怪我的文字老是定位在0点
页:
[1]