[原创]：需要就下载，全部免币！(12.28更新)

自由的鱼

最初由 yxianfo 发布
[B]谢谢“自由的鱼”为大家奉献的精神，请问“两点+半径”在2004中能用吗？ [/B]

应该可以用吧，你加载试一下，我没有装2004,没有办法试

自由的鱼

最初由 蟹少 发布
[B]爱心币现金低于10或者积分小于-7，不能下载附件

  糟糕,我没啦,我会回来的 [/B]

你的存款就够！！

ARTX

真是好东西，就是太乱了，要看完所有的太费时间，有哪个好心人整理一下。

flymouse

没看明白,建议楼主另开主题,做详细说明,免得每个人都问,回答的别人也看不清楚

自由的鱼

最初由 sznt 发布
[B]还在努力，我觉得爱心币阻碍了真正的交流，希望取消。 [/B]

都是免币的！你不能下载是因为还没有权限！

自由的鱼

最初由 ytzero 发布
[B]不错，可是我连不上 [/B]

哪个程序连不上？

自由的鱼

Option Explicit

Sub rott()
On Error Resume Next
Dim sset As AcadSelectionSet
Dim czfx As Double
Dim pnt() As Variant
Dim zds As Integer
'Dim pnt2 As Variant
Dim czfx1 As Double
Dim fxc As Double
Dim i As Integer
Dim j As Integer
i = 0
On Error GoTo 1
Do
ReDim Preserve pnt(i)
pnt(i) = ThisDrawing.Utility.GetPoint(, "choose")
'    For j = 0 To 2
'    Debug.Print pnt(i)(j)
'    Next

i = i + 1
zds = i
Loop



1:

Set sset = ThisDrawing.SelectionSets.Add("t111t1")

'MsgBox zds
czfx = ThisDrawing.Utility.AngleFromXAxis(pnt(0), pnt(1))
On Error Resume Next
For i = 2 To zds - 1 Step 2
    sset.SelectAtPoint (pnt(i))
    czfx1 = ThisDrawing.Utility.AngleFromXAxis(pnt(i), pnt(i + 1))
    fxc = czfx1 - czfx
        If fxc > 0 Then
            sset.Item(0).Rotate pnt(i), -fxc
            Else
            sset.Item(0).Rotate pnt(i), fxc
        End If
    sset.Clear
Next
sset.Delete

'MsgBox czfx
Exit Sub
err:
Exit Sub
End Sub

自由的鱼

最初由 CTLU 发布
[B]总算是碰倒一个下载不要钱的，真难得。多谢了。 [/B]

论坛里还有很多程序是免币的！

panhong1975

楼主，能上传使用说明吗？
对我们这些菜鸟也是一大帮助啊

自由的鱼

这些程序都很简单，你具体需要那个程序的使用说明？

自由的鱼

支持通配符的文本替换程序！

自由的鱼

旋转文字180度

自由的鱼

最初由 jayxue 发布
[B]好像对偶都没有用耶！ [/B]

那你需要哪些程序？

sztk2001

有整合的吗？

自由的鱼

最初由 sztk2001 发布
[B]有整合的吗？ [/B]

集成起来的吗？