谢谢,我去琢磨下你给的建议。我的代码如下: Sub ede() Dim block As AcadBlockReference Dim insertpo(2) As Double Dim bname As String bname = "sec" insertpo(0) = 0: insertpo(1) = 0: insertpo(2) = 0 Set block = ThisDrawing.ModelSpace.InsertBlock(insertpo, bname, 1, 1, 1, 0) End Sub 先在cad里定义好一个与wcs不一样的坐标系,然后执行该代码,插入的sec块的方向有的和wcs一致,有的和自定义的ucs一致。具有随机性。 |