userzhl 发表于 2009-1-2 09:24:00

[求助]求助高手，谁能把这个属性块z轴归0？

本帖最后由 作者 于 2009-1-2 9:27:02 编辑

[求助]求助高手，谁能把这个属性块z轴归0？

nonsmall 发表于 2009-1-2 19:35:00

<p>(setq pt (vlax-get (vlax-ename-&gt;vla-object (car (nentsel "直接选文字"))) 'InsertionPoint))<br/>(vlax-put-property txt 'InsertionPoint (vlax-3d-point (list (car pt)(cadr pt))))</p>

userzhl 发表于 2009-1-3 10:25:00

<p><strong><font face="Verdana" color="#61b713">nonsmall</font></strong>老大，得出的是此图块文字的坐标呀:<font face="宋体" color="#000000">(-112.727 2062.41 1388.2)，我是想怎样把里面的字移到z轴为0。</font></p>

nonsmall 发表于 2009-1-3 11:35:00

<p>没错 我知道你是想移动文字Z值归0</p><p>你转换视角后使用上面的两行看看达到的效果（不要炸开看）</p>

yoyoho 发表于 2009-1-3 12:00:00

<p>;Re:如何将两线变成同一平面 ...&nbsp; 发言人: Jegy&nbsp;&nbsp;&nbsp; 2005/11/23 09:12<br/>;需先确认您已做了安全备份</p><p>;再试这个<br/>;=====================================================<br/>;Easy way:<br/>;by Paul Truvill<br/>(defun C:FLZ ()<br/>&nbsp;(setq ss (ssget))<br/>&nbsp;(command "_.move" SS "" '(0 0 1e99) ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "_.move" "_p" "" '(0 0 -1e99) "")<br/>&nbsp;(princ)<br/>)<br/>;Hard way<br/></p>

userzhl 发表于 2009-1-3 16:05:00

[求助]转换了视角还是一样呀。

<p>使用了：</p><p>(setq pt (vlax-get (vlax-ename-&gt;vla-object (car (nentsel "直接选文字"))) 'InsertionPoint))<br/>(vlax-put-property txt 'InsertionPoint (vlax-3d-point (list (car pt)(cadr pt))))</p><p>转换了视角进行气操作还是一样呀。</p>

nonsmall 发表于 2009-1-4 10:35:00

<p>用楼上的效果不错</p>
页: [1]
查看完整版本: [求助]求助高手，谁能把这个属性块z轴归0？