[求助]：旋转命令中如何保持文字不转

maplesu

最初由 xiaotang 发布
[B]加载这个后，若想绘图时达到文字旋转或不旋转同时存在，还需要什么切换命令吗？另外我用的是2002中文版，可以直接用吗？ [/B]

不用切换呀！我这个命令名和rotate不冲突，rotate可以继续用
要用这个的时候直接命令行输入rr回车就可以了，我只是说用法和rotate一样！
2002已经测试过没有问题，两个都可以用！

xiaotang

能改成rt或ro吗？我的rr命令是render,以前还没用过

zxdcad

楼上的，你把maplesu 斑竹 程序中的那个RR改成你想要的任何东西都成呀！！！！！！！

maplesu

对！(defun c:**()  这个c:后面可以些任何你习惯的，因为我render基本不用，所以但是为了方便就选择了这个名称！改任何的都可以！对程序没有影响！

zhouri

试过了，不是很好。
不过感谢斑竹的程序

maplesu

最初由 zhouri 发布
[B]试过了，不是很好。
不过感谢斑竹的程序 [/B]

哪里的效果不好，可以说出来，我还可以改进！！

wzw3392008

有没更简单的啊

yugarden511

不错,看过班竹几个lsp,我开始能懂了,以前一学就头痛.

楼上的,哪里不好你也说出来嘛,不要吊班竹味口嘛.

maplesu

最初由 wzw3392008 发布
[B]有没更简单的啊 [/B]

哪里不够简单，还是你压根没有用过我的lisp呀！
都和rotate的步骤一样了，还要怎么简单！

现在都这么了，说不好不够简单，怎么都一句话，拜托，说个理由和建议呀！我好去完善呀！！

lse

很好用，谢谢斑竹。比起一个个去刷要快很多，转过来后整个的移动一下就完全OK了

hcheli

谢谢斑竹的奉献，不过程序确实有问题——对于多行文字，旋转后文字会缩为一团。

hcheli

再看旋转后的

hcheli

另外，命名为“RR”在ACADR14中会与Render产生冲突。

maplesu

命令冲突可以自己改rr为任何一个都可以，依照自己的习惯！

至于你那个多行不好用的问题，在我这里没有出现，你能把你那个图发上来我看看，可能时什么设置的问题我没有注意到！可以再完善的！

雪山飞狐(lzh)

maplesu的程序角度输入太复杂了吧，没有拖动效果，贴个VBA的
[Code]Sub REText()
On Error GoTo Errhandle

    Dim ss As AcadSelectionSet
    Dim i, j
    Dim pnt
    Dim dot(2) As Double
    Dim pBlock As AcadBlock
    Dim pObj As AcadBlockReference
    Dim pObjs() As AcadEntity
   
    Set ss = ThisDrawing.SelectionSets.Add("*TlsREText*")
    ss.Clear
    ss.SelectOnScreen
   
    pnt = ThisDrawing.Utility.GetPoint(, "请输入基点:")
    Set pBlock = ThisDrawing.Blocks.Add(dot, "*U")
   
    ReDim pObjs(ss.Count - 1) As AcadEntity
    For i = 0 To ss.Count - 1
        Set pObjs(i) = ss(i)
    Next i
    ThisDrawing.CopyObjects pObjs, pBlock
   
    For Each j In pBlock
        j.Move pnt, dot
    Next j
    Set pObj = ThisDrawing.ModelSpace.InsertBlock(pnt, pBlock.Name, 1, 1, 1, 0)
   
    ThisDrawing.SendCommand "rotate" & vbCr & "(Handent """ & pObj.Handle & """)" & vbCr & vbCr & pnt(0) & "," & pnt(1) & vbCr
   
    For Each j In pObjs
        j.Delete
    Next j

    For Each j In pBlock
    If j.EntityType = acText Or j.EntityType = acMtext Then
    j.Rotate j.InsertionPoint, -pObj.Rotation
    End If
    Next j
   
    pObj.Update
    pObj.Explode
   
Errhandle:
    If Not (pObj Is Nothing) Then pObj.Delete
    ss.Delete
   
End Sub[/Code]