快速复制图元到当前层lisp

以下是一个可以将指定图元快速复制到当前层的Lisp程序：

(defun c:cpcur () 
  (setq ent (entsel "\n选择要复制的图元：")) ; 选择要复制的图元
  (setq ss (ssadd)) ; 创建选择集
  (command "copy" ent "" "0,0" ss) ; 复制图元到选择集
  (setq cur (getvar "CLAYER")) ; 获取当前层
  (command "chprop" ss "" "LA" cur "") ; 将选择集中的图元的层属性改为当前层
  (princ))

将上述代码保存为一个Lisp文件，比如`cpcur.lsp`，然后在AutoCAD中加载这个Lisp程序，执行`cpcur`命令即可。执行该命令后，将会提示你选择要复制的图元，选择完成后，该图元将会被复制到当前层。

相关问题

lisp+图元+天正+自定义

Lisp图元用于在AutoCAD中创建和编辑图形对象。天正是一个针对土木工程和建筑设计的软件，可以与AutoCAD相结合使用。自定义图元是指用户可以根据自己的需求创建和定义的特定形状或对象。

在Lisp中，你可以使用strcat函数来拼接字符串。通过使用引用中的代码，你可以创建一个以字符串形式表示起点的坐标的图元。类似地，使用引用中的代码，你可以创建一个以字符串形式表示终点的坐标的图元。

另外，在Lisp中，你可以使用其他函数和命令来创建不同类型的自定义图元。这些函数和命令可以通过Lisp编程语言的功能来实现。具体的方法和步骤可能因具体的需求而有所不同，可以根据具体的需求进行自定义。

综上所述，通过使用Lisp编程语言，结合AutoCAD和天正软件，你可以创建和自定义各种图元，以满足土木工程和建筑设计的需求。

cad vba 读取图元信息输入到excel表中

您好，要实现CAD VBA读取图元信息并输入到Excel表中，可以按照以下步骤进行：

1. 在CAD中打开Visual Basic Editor，创建一个新的模块。

2. 在模块中添加Excel对象库的引用，方法是选择“工具”菜单下的“引用”，然后勾选“Microsoft Excel XX.0 Object Library”。

3. 编写VBA代码，实现从CAD中读取图元信息并将其输入到Excel表中。以下是示例代码，可以根据实际需求进行修改：

Sub ExportToExcel()
    Dim objExcel As New Excel.Application
    Dim objWorkbook As Excel.Workbook
    Dim objWorksheet As Excel.Worksheet
    
    Dim objSelection As AcadSelectionSet
    Dim objEntity As AcadEntity
    
    '选择需要导出的图元
    Set objSelection = ThisDrawing.SelectionSets.Add("MySelection")
    objSelection.Select acSelectionSetAll, , , Array()
    
    '创建Excel工作簿和工作表
    Set objWorkbook = objExcel.Workbooks.Add
    Set objWorksheet = objWorkbook.Worksheets.Add
    
    '输入表头
    objWorksheet.Cells(1, 1).Value = "图元类型"
    objWorksheet.Cells(1, 2).Value = "图元名称"
    objWorksheet.Cells(1, 3).Value = "图元颜色"
    
    '循环读取图元信息并输入到Excel表中
    For Each objEntity In objSelection
        objWorksheet.Cells(objWorksheet.UsedRange.Rows.Count + 1, 1).Value = objEntity.ObjectName
        objWorksheet.Cells(objWorksheet.UsedRange.Rows.Count, 2).Value = objEntity.Name
        objWorksheet.Cells(objWorksheet.UsedRange.Rows.Count, 3).Value = objEntity.TrueColor.ColorIndex
    Next objEntity
    
    '保存Excel工作簿并退出
    objWorkbook.SaveAs "C:\MyExcelFile.xlsx"
    objWorkbook.Close
    objExcel.Quit
    
    '清除选择集
    objSelection.Delete
End Sub

以上代码实现了将CAD中选择的图元类型、名称和颜色信息导出到Excel表中，并保存为一个名为“MyExcelFile.xlsx”的Excel文件。您可以根据实际需求修改代码，比如更改导出的信息内容或者文件保存路径等。