vba调用lsp涉及到的"""和chr(34)的用法

兰州人

在VBA中,直接写(command "Stretch" "c" pause pause "")不成立。

例如语句中的"Stretch" 等价写法是chr(34) & "Stretch" & chr(34)

           也可以等价写法"""Stretch"""  ,"""在CAD命令行中得到的结果为一个双引号"

Sub ls()
  With ThisDrawing
    .SendCommand "(command " & """Stretch""" & " ""c"" " & "pause pause " & """""" & ")"
  End With
End Sub
程序运行结果等价LISP在CAD命令行中的

(command "Stretch" "c" pause pause "")

兰州人

扩展使用

2. Sub ls1()
3.   With ThisDrawing
4.      Dim Ent  As AcadDimension
5.    Dim kwordList As String
6.     kwordList = "Up Down Left Right"
7.     .Utility.InitializeUserInput 1, kwordList
8.     Dim returnString As String
9.     returnString = .Utility.GetKeyword("Enter a keyword (Up)(Down)(Left)(Right): ")
10.    
11.     Dim objDim As AcadDimRotated
12.     .Utility.GetEntity objDim, pt, "ddd"
13.    
14.     Debug.Print returnString
15.     With objDim
16.       tt = Abs(.Measurement - .TextOverride)
17.       Select Case returnString
18.         Case "Up"
19.           tt = "@0," & tt
20.         Case "Down"
21.           tt = "@0,-" & tt
22.         Case "Left"
23.           tt = "@-" & tt & ",0"
24.         Case "Right"
25.           tt = "@" & tt & ",0"
26.       End Select
27.       
28.       .TextOverride = ""
29.     End With
30.     .SendCommand "(setq ee " & Chr(34) & tt & Chr(34) & ")" & vbCr
31.     '.SendCommand "(command " & """Stretch""" & " ""c"" " & "pause pause " & """""" & " pause " & """""" & " ee)" & vbCr
32.     .SendCommand "(command " & """Stretch""" & " ""c"" " & "pause pause " & """""" & " pause ee)" & vbCr
33.    End With
34. End Sub

Sub ls1()   With ThisDrawing      Dim Ent  As AcadDimension    Dim kwordList As String     kwordList = "Up Down Left Right"     .Utility.InitializeUserInput 1, kwordList     Dim returnString As String     returnString = .Utility.GetKeyword("Enter a keyword (Up)(Down)(Left)(Right): ")         Dim objDim As AcadDimRotated     .Utility.GetEntity objDim, pt, "ddd"         Debug.Print returnString     With objDim       tt = Abs(.Measurement - .TextOverride)       Select Case returnString         Case "Up"           tt = "@0," & tt         Case "Down"           tt = "@0,-" & tt         Case "Left"           tt = "@-" & tt & ",0"         Case "Right"           tt = "@" & tt & ",0"       End Select              .TextOverride = ""     End With     .SendCommand "(setq ee " & Chr(34) & tt & Chr(34) & ")" & vbCr     '.SendCommand "(command " & """Stretch""" & " ""c"" " & "pause pause " & """""" & " pause " & """""" & " ee)" & vbCr     .SendCommand "(command " & """Stretch""" & " ""c"" " & "pause pause " & """""" & " pause ee)" & vbCr    End With End Sub