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

fishe

我运行了：
regsvr32 D:\support\mjtj.dll
提示——Loadlibrary(" D:\support")失败 - 找不到指定的模块
请楼主不要笑话我们这些菜鸟，不吝赐教

自由的鱼

最初由 fishe 发布
[B]我运行了：
regsvr32 D:\support\mjtj.dll
提示——Loadlibrary(" D:\support")失败 - 找不到指定的模块
请楼主不要笑话我们这些菜鸟，不吝赐教 [/B]

你是在运行中输入这些命令的吗？

自由的鱼

最初由 ksblk 发布
[B]详细说明？ [/B]

要哪个程序的详细说明？

自由的鱼

最初由 panhong1975 发布
[B]谢谢楼主，我下了，但是用法还不是很清楚，我要摸索一下了。 [/B]

哪个不清楚你告诉我~~

自由的鱼

最初由 Jerry541 发布
[B]不知道你们怎么搞的，cad里的appload只能加载exe,arx,lsp的文件，怎么都加不了fas的。 [/B]

晕！那就是你的CAD有问题！

自由的鱼

随机改高程点值，由一位改为两位！

我是小渔儿

请问SOFFSET.RAR这个东东是怎么用呢？它的主要功能是什么呢？

自由的鱼

最初由 我是小渔儿 发布
[B]请问SOFFSET.RAR这个东东是怎么用呢？它的主要功能是什么呢？ [/B]

是连续偏移程序！

zhiyun

请问：
1.注册mjtj.dll
2.加载mjtj.fas
是先在DOS下运行以下命令：
regsvr32 D:\support\mjtj.dll
后再回到CADR14中加载mjtj.fas吗？谢谢

自由的鱼

最初由 zhiyun 发布
[B]请问：
1.注册mjtj.dll
2.加载mjtj.fas
是先在DOS下运行以下命令：
regsvr32 D:\support\mjtj.dll
后再回到CADR14中加载mjtj.fas吗？谢谢 [/B]

我这个是VBA程序，不能在R14中运行，如果你装的是2000，按这个步骤就行！

自由的鱼

统计直线！
运行程序后，先选择目标直线，然后在窗选需要统计长度的直线，被选中的直线中所有和目标直线颜色和线型相同的会被统计，这里是“和”的关系，若是“或”的关系请把程序中的"and"改为"or"
Option Explicit
Sub sumL()
Dim L As AcadLine
Dim i As Integer
Dim Ld As Double
Dim sset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "LINE"
Dim pnt As Variant
Dim ent As AcadEntity
ThisDrawing.Utility.GetEntity ent, pnt, "选择目标直线"

Set sset = ThisDrawing.SelectionSets.Add("ttrt")
sset.SelectOnScreen Ftype, Fdata
Ld = 0
For i = 0 To sset.Count - 1
If sset.Item(i).Color = ent.Color Or sset.Item(i).Linetype = ent.Linetype Then
Ld = Ld + sset.Item(i).Length
End If
Next
MsgBox "直线长度为：" & Ld
sset.Delete

End Sub

自由的鱼

最初由 zane 发布
[B]谢谢，这东东很有用：0 [/B]

还需要什么就告诉我~~

自由的鱼

Option Explicit

Sub tt()
Call ThisDrawing.Layers.Add("LBL")
Dim txt As AcadText
Dim bk As AcadBlockReference
Dim ent As AcadEntity
Dim pnt(0 To 2) As Double
Dim pt As Variant
Dim SSET As AcadSelectionSet
Dim i As Integer
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "INSERT"
Set SSET = ThisDrawing.SelectionSets.Add("tttttt")
SSET.SelectOnScreen Ftype, Fdata
For i = 0 To SSET.Count - 1
pt = SSET.Item(i).InsertionPoint
pnt(0) = pt(0) + 3
pnt(1) = pt(1) + 3
pnt(2) = 0
Set txt = ThisDrawing.ModelSpace.AddText(i + 1, pnt, 2)
txt.Layer = "LBL"
Next
SSET.Delete

End Sub

自由的鱼

最初由 王栋梁 发布
[B]这个怎么用？谢谢啦，放在哪啊？ [/B]

你要找哪个程序？

PFD8667

将单行文本打散成单个文字是用什么命令?