(XD::Polyline:AddVertexAt) 多段线增加节点而不改变外观

liulisheng · 发表于 2017-7-1 14:49:32

必须要支持

80868416 · 发表于 2017-7-9 10:03:22

谢谢楼主，，，

ndgxy · 发表于 2017-7-13 23:25:03

我来测试一下，行不行

lifei1979 · 发表于 2017-8-3 23:50:03

谢谢大师的好程序

yjpyjp · 发表于 2017-9-5 11:18:57

fffffffffffffffffff

qinxc · 发表于 2017-10-7 19:25:04

删除点操作呢？谢谢

xiaolong100 · 发表于 2017-10-22 08:19:43

好东西，值得学习

天朗气清 · 发表于 2017-10-23 17:28:19

这个跟PPT里面的一个命令很相似

land100 · 发表于 2017-10-30 17:37:08

宏观环境开关柜宏观环境黑戈壁

夏夜欢城 · 发表于 2017-11-14 11:42:21

Thanks for sharing

taoyi0727 · 发表于 2018-9-28 21:24:53

看看源代码

swhdl · 发表于 2018-10-24 14:15:40

Sub 标注直线坡比()
On Error GoTo li2
Dim linepo As AcadLine
Dim point1 As Variant
Dim a As Double, b As Double, c As Double, d As Double, f As Double, e As String
Dim g As Double
Dim text1 As AcadText
f = ThisDrawing.Utility.GetReal(":请输入坡比文字高度") ' "拾取直线"

li1:

ThisDrawing.Utility.GetEntity linepo, point1, "拾取直线"
a = linepo.StartPoint(0)
b = linepo.StartPoint(1)
c = linepo.EndPoint(0)
d = linepo.EndPoint(1)
e = "1:" & Format(Round(((Abs(a - c) / Abs(b - d))), 3), "0.000")
point1(0) = (a + c) / 2
point1(1) = (b + d) / 2
point1(2) = 0

Set text1 = ThisDrawing.ModelSpace.AddText(e, point1, f)
If linepo.Angle > 90 / 180 * 3.141592654 And linepo.Angle < 270 / 180 * 3.141592654 Then
text1.Rotation = linepo.Angle + 3.141592654
Else
text1.Rotation = linepo.Angle
End If
text1.Alignment = acAlignmentCenter
text1.TextAlignmentPoint = point1

GoTo li1
li2: MsgBox "OK！！！"

End Sub
请问这个程序的命令是什么？

xinrstar · 发表于 2018-10-30 09:36:05

曾浩南 · 发表于 2018-11-21 17:32:14

正在寻找，谢谢 st788796 分享！

yjch · 发表于 2018-11-22 22:53:59

好好学习天天向上，研读

账号		自动登录	找回密码
密码			立即注册

[曲线] (XD::Polyline:AddVertexAt) 多段线增加节点而不改变外观