[求助]在自定义ucs里插入块,块方向具有随机性?
用vba自定义一个ucs,插入块,旋转角度设为0,插入后,发现有些块的方向不和自定义的ucs方向一致,而与世界坐标的x、y方向对齐,为什么?大部分块的方向还是和自定义ucs方向一致的。 <p>VBA的坐标都是WCS下的</p><p>你应该把你的代码贴上</p><p>可以看下这里</p><p><a href="http://www.mjtd.com/object/acad2004/idh_getucsmatrix.htm">http://www.mjtd.com/object/acad2004/idh_getucsmatrix.htm</a></p> <p>谢谢,我去琢磨下你给的建议。我的代码如下:</p><p>Sub ede()<br/>Dim block As AcadBlockReference<br/>Dim insertpo(2) As Double<br/>Dim bname As String</p><p>bname = "sec"<br/>insertpo(0) = 0: insertpo(1) = 0: insertpo(2) = 0<br/>Set block = ThisDrawing.ModelSpace.InsertBlock(insertpo, bname, 1, 1, 1, 0)</p><p>End Sub<br/>先在cad里定义好一个与wcs不一样的坐标系,然后执行该代码,插入的sec块的方向有的和wcs一致,有的和自定义的ucs一致。具有随机性。</p>
页:
[1]