cdr vba 怎么实现设置当前选中的对象为图层1

在VBA (Visual Basic for Applications) 中，如果想要通过宏操作将当前选中的对象设置为AutoCAD图纸中的图层1，你需要使用Academia API (AutoLISP 或 Visual LISP) 或者利用`.Select` 和 `.Layer` 属性。这里是一个简单的示例，假设你在使用AutoLISP：

; 宏开始
(defun cmdSetToLayer1 ()
  (let ((activeObj (getobject "Select an object"))) ; 获取当前选择的对象
    (if activeObj ; 检查是否选择了对象
      (progn
        (setq activeObj-layer "0") ; 将对象的图层设为“1”（注意图层编号是从0开始的）
        (setq activeObj-linetype "") ; 如果需要，也可以设置线型为空
        (display "Object set to Layer 1.")
      )
      (message "No object selected.")
    )
  )
)
; 宏结束并运行
(cmdSetToLayer1)