求助，哪个工具箱里有这个功能？ 拉伸标注相关的

wangkang0829

原CAD图形中标注了很多尺寸，S拉伸功能 修改尺寸后，对更改尺寸的标注 自动更改颜色


在论坛里找了半天没找到，发帖求助，感谢各位


如果没有插件，这个功能 写代码可以实现吗

mikewolf2k

现有命令组合下就可以了，新建命令，先拉伸，然后改色。
这是简化版猜测。如果楼主要求的是先后尺寸数值不一样的才改色，也就是说拉伸0的不改色，那么就要先记录原来的数值，操作后再比较，修改了的才改色。

wangkang0829

mikewolf2k 发表于 2020-3-18 11:16
现有命令组合下就可以了，新建命令，先拉伸，然后改色。
这是简化版猜测。如果楼主要求的是先后尺寸数值不 ...

嗯是的，命令组合先拉伸再改色。改色的命令 需要再次去选择。因为标注比较多不容易选。要不选择直接改色 会把没拉伸的一起改掉。

想要拉伸0的不改色。请问要怎么记录原来的数值 进行比较呢

mikewolf2k

因为标注比较多不容易选  —— select P

wangkang0829

mikewolf2k 发表于 2020-3-18 13:58
因为标注比较多不容易选  —— select P

我的意思是 更改了尺寸的标注比较多...要筛选出来那些拉伸过

mikewolf2k

select P是针对你所说的不容易选的问题。
至于说那些拉伸过，要不要拉伸你自己应该知道，拉伸时候就不要去选它们，问题就不存在了。

wangkang0829

mikewolf2k 发表于 2020-3-18 17:05
select P是针对你所说的不容易选的问题。
至于说那些拉伸过，要不要拉伸你自己应该知道，拉伸时候就不要去 ...

感谢
想要这个功能主要需求是检验错误。所以还是想要自动更改掉颜色。
昨天研究了半天VBA可以获取获取到标注的参数，但是VBA好像没有拉伸功能:Q
lsp又不知道怎么获取比较

mikewolf2k

VBA是没有拉伸功能。不过VBA可以做比较啊，先读取，调用lsp拉伸，再读取，比较，改色。

帆航

我的lisp学习就是在参考的源代码中逐渐成长起来的！

wangkang0829

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)