[Miniril]

Как после выполнения макроса снять выделение с объектов средствами VBA? (без передачи "AI_DESELECT"), чтобы не приходилось при этом кучу раз "отмену" нажимать (если понадобится)(для других макросов с предварительным выбором объектов, кстати, если не перевыбирать объекты то отменяется сразу несколько действий, что очень неудобно!)?

Код:

[Выделить все]

Public Sub in_mm()

Dim blkref As AcadBlockReference
Dim block As AcadBlock
Dim blocks As AcadBlocks
Set blocks = ThisDrawing.blocks
Dim blockname As String

On Error GoTo Err

Dim acSelSet As AcadSelectionSet
Set acSelSet = ThisDrawing.PickfirstSelectionSet

If acSelSet.count = 0 Then
acSelSet.SelectOnScreen
End If

For Each blkref In acSelSet
 blockname = blkref.Name
 For Each block In blocks
  If block.Name = blockname Then
  block.Units = acInsertUnitsUnitless
  Exit For
  End If
 Next
 blkref.XScaleFactor = 1
 blkref.YScaleFactor = 1
 blkref.ZScaleFactor = 1
Next


Err:
ThisDrawing.SendCommand ("AI_DESELECT ")
'ThisDrawing.Regen acAllViewports

End Sub

[Miniril]

Все, сделал сам, но через одно место.

на кнопке нарисовал такую конструкцию:
(vl-load-com)(vla-runmacro (vlax-get-acad-object) "move") _-vbarun move2

то есть запускается сначала макрос "move", в котором

Код:

[Выделить все]

Public Sub move()
Set acSelSet = ThisDrawing.PickfirstSelectionSet
End Sub

а потом обычным способом запускается "move2",так, чтобы PFSS обнулился, он ведь "read only", в котором уже прописано

Код:

[Выделить все]

...
If acSelSet.count = 0 Then
acSelSet.SelectOnScreen
End If
...

ну и соответственно:
Public acSelSet As AcadSelectionSet