vba+Sendcommand模拟peidt

兰州人

图示是由两个线段和一格弧构成。下面程序模拟peidt将三条线转换为多段线。

2. Sub ll()
3.   ss = Array("EC", "EF", "EE")
4.   tt = "pedit  (handent " & Chr(34) & ss(0) & Chr(34) & ")" & vbCr & "y" & vbCr & "j" & vbCr
5.   Debug.Print tt
6.   For ii = 1 To 2
7.     tt = tt & "(handent " & Chr(34) & ss(ii) & Chr(34) & ")" & vbCr
8.     Debug.Print tt
9.   Next ii
10.   Debug.Print tt
11.   '"j" (handent "ef") (handent "ee") "" "")
12.   ThisDrawing.SendCommand tt & vbCr & vbCr
13. End Sub

Sub ll()   ss = Array("EC", "EF", "EE")   tt = "pedit  (handent " & Chr(34) & ss(0) & Chr(34) & ")" & vbCr & "y" & vbCr & "j" & vbCr   Debug.Print tt   For ii = 1 To 2     tt = tt & "(handent " & Chr(34) & ss(ii) & Chr(34) & ")" & vbCr     Debug.Print tt   Next ii   Debug.Print tt   '"j" (handent "ef") (handent "ee") "" "")   ThisDrawing.SendCommand tt & vbCr & vbCr End Sub

mccad

好是好，但一般不推荐在VBA中使用SendCommand。除非不得已。