為什么只能運行到修改“電桿”圖層，下個圖層就不行并且報錯
Sub test()
Dim sSet As AcadSelectionSet, Pnt As AcadPoint, blk As AcadBlockReference, Ent As AcadEntity
' On Error Resume Next
Set sSet = ThisDrawing.SelectionSets.Add("TEST")
sSet.Clear
sSet.SelectOnScreen
For Each Ent In sSet
Select Case Ent.Layer
Case "電桿"
Set Pnt = Ent
Set blk = ThisDrawing.Application.ActiveDocument.ModelSpace.InsertBlock(Pnt.Coordinates, "gc170", 1, 1, 1, 0)
blk.Layer = "GXYZ"
Case "路燈"
Set Pnt = Ent
Set blk = ThisDrawing.Application.ActiveDocument.ModelSpace.InsertBlock(Pnt.Coordinates, "097", 1, 1, 1, 0)
blk.Layer = "DLDW"
Case Else
End Select
Next
sSet.Delete
' MsgBox "OK"
End Sub
uj5u.com熱心網友回復：
現在都不流行逛論壇了嗎？uj5u.com熱心網友回復：
主要是這個問題要結合CAD，沒環境而且也不說啥錯
個人經驗：問問題漢字部分都觸發不到自動換行的，大概率沒法解決。
uj5u.com熱心網友回復：
這個問題我自己解決了轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/38708.html
標籤：VBA