求助，哪个工具箱里有这个功能？ 拉伸标注相关的
原CAD图形中标注了很多尺寸，S拉伸功能 修改尺寸后，对更改尺寸的标注 自动更改颜色在论坛里找了半天没找到，发帖求助，感谢各位
如果没有插件，这个功能 写代码可以实现吗
现有命令组合下就可以了，新建命令，先拉伸，然后改色。
这是简化版猜测。如果楼主要求的是先后尺寸数值不一样的才改色，也就是说拉伸0的不改色，那么就要先记录原来的数值，操作后再比较，修改了的才改色。 mikewolf2k 发表于 2020-3-18 11:16
现有命令组合下就可以了，新建命令，先拉伸，然后改色。
这是简化版猜测。如果楼主要求的是先后尺寸数值不 ...
嗯是的，命令组合先拉伸再改色。改色的命令 需要再次去选择。因为标注比较多不容易选。要不选择直接改色 会把没拉伸的一起改掉。
想要拉伸0的不改色。请问要怎么记录原来的数值 进行比较呢 因为标注比较多不容易选—— select P mikewolf2k 发表于 2020-3-18 13:58
因为标注比较多不容易选—— select P
我的意思是 更改了尺寸的标注比较多...要筛选出来那些拉伸过 select P是针对你所说的不容易选的问题。
至于说那些拉伸过，要不要拉伸你自己应该知道，拉伸时候就不要去选它们，问题就不存在了。 mikewolf2k 发表于 2020-3-18 17:05
select P是针对你所说的不容易选的问题。
至于说那些拉伸过，要不要拉伸你自己应该知道，拉伸时候就不要去 ...
感谢
想要这个功能主要需求是检验错误。所以还是想要自动更改掉颜色。
昨天研究了半天VBA可以获取获取到标注的参数，但是VBA好像没有拉伸功能:Q
lsp又不知道怎么获取比较 VBA是没有拉伸功能。不过VBA可以做比较啊，先读取，调用lsp拉伸，再读取，比较，改色。 我的lisp学习就是在参考的源代码中逐渐成长起来的！ 本帖最后由 wangkang0829 于 2020-3-19 15:11 编辑
mikewolf2k 发表于 2020-3-19 10:18
VBA是没有拉伸功能。不过VBA可以做比较啊，先读取，调用lsp拉伸，再读取，比较，改色。
老大，我按照你的思路，可以VBA先获取，然后调用lsp拉伸了。
但是现在有个问题，就是执行完了拉伸命令 VBA代码就中断了。或者连续执行完了两次获取之后 才可以拉伸改图。 可以帮忙看下吗
....................
MsgBox msg
'ThisDrawing.SendCommand ("(load " & """" & "记忆拉伸.lsp" & """" & ")" & " ")，这行注释了
ThisDrawing.SendCommand "(load " & Chr(34) & "记忆拉伸.lsp" & Chr(34) & " )" & vbCr
ThisDrawing.SendCommand "ss" & vbCr
ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr，下边这两行我不知道什么意思，百度来的
ThisDrawing.Regen acAllViewports
Set SSet = ThisDrawing.SelectionSets.Add("tes")
SSet.SelectOnScreen fType, fData'建立选择集并从屏幕选取
If SSet.Count = 0 Then
SSet.Delete
End
End If
ct = SSet.Count - 1
ReDim bzcc2(0 To ct)
页:
[1]
2