用lisp语言写，选中cad中一个对象，并选取对象所在图层所有内容

在Lisp语言中，可以使用AutoLISP来实现选中CAD中的一个对象并选择对象所在图层的所有内容。下面是一个示例代码：

(defun select-object-and-layer-contents ()
  (setq obj (car (entsel "\nSelect an object: "))) ; 选中一个对象
  (if obj
    (progn
      (setq layer (cdr (assoc 8 (entget obj)))) ; 获取对象所在图层名
      (setq layer-contents (ssget "_X" (list (cons 8 layer)))) ; 选择图层内容
      (if layer-contents
        (progn
          (command "_.chprop" layer-contents "" "LA" "" layer "") ; 将图层内容选中
          (princ "\nSelected the layer contents.")
        )
        (princ "\nNo objects found on the layer.")
      )
    )
    (princ "\nNo object selected.")
  )
)

(select-object-and-layer-contents)

以上代码中，`select-object-and-layer-contents` 函数实现了选中一个对象并选择其所在图层的所有内容的功能。首先，通过 `(entsel)` 函数让用户选择一个对象，并获取其图层名。然后，使用 `(ssget)` 函数根据图层名选择所有位于该图层的对象。最后，使用 `(command)` 函数将图层内容选中。

请注意，这只是一个简单的示例代码，具体实现可能会因CAD软件版本和特定需求而有所不同。