Question

CAD VBA 选取所有对象

我想在CAD里选取所有的对象,比如线,寸法,文字等所有的东西

如何用CAD VBA 实现

Answer 1

(defun C:SYDX ( / &kw)
 (setq &kw (ssget "X"))
 (if (/= &kw nil) (sssetfirst nil &kw) )
 (prin1)
);复制到记事本，以【.lsp】为后缀命名保存，autoLISP加载后，命令【SYDX】就可以选择所有对象了。

Answer 2

AutoVBA获取基本图元对象，以LINE为例，代码如下。
Public Sub animatedline()
Dim mylineobject As AcadLine
Dim startmovevector(0 To 2) As Double
Dim endmovevector(0 To 2) As Double
Dim count As Integer, start As Single
Set mylineobject = ThisDrawing.ModelSpace.Item(0)
For count = 1 To 10
startmovevector(0) = count
startmovevector(1) = count
startmovevector(2) = count
endmovevector(0) = count + 1
endmovevector(1) = count + 1
endmovevector(2) = count + 1
mylineobject.Move startmovevector, endmovevector
start = Timer
While Timer < start + 0.05
Wend
ZoomAll
mylineobject.Update
Next
End Sub
代码完。