AutoLISP实战：如何高效选取空间点生成三维实体

共计 2296 个字符，预计需要花费 6 分钟才能阅读完成。

传统方法的性能瓶颈

在 AutoCAD 二次开发中，手动逐个拾取空间点生成三维实体是常见但低效的操作。当遇到以下场景时，传统方法尤其吃力：

• 处理包含数百个点的点云数据时，手动操作耗时且容易出错
• 使用 ENTSEL 逐个选取时，每次交互都需要用户点击确认
• 未优化的 LISP 代码会导致 CAD 界面卡顿，甚至内存泄漏

选取方式的技术对比

AutoLISP 提供了多种几何对象选取方式，针对不同场景各有优劣：

• ENTSEL：
• 优点：交互简单，适合单个对象选取

• 缺点：无法批量操作，每次调用都需要用户交互

• SSGET：

• 优点：支持过滤器批量选取，可编程控制

• 缺点：需要合理设置选择集过滤器

• 手动坐标输入：

• 优点：精确控制每个点位置
• 缺点：代码冗长，不适合大批量点

核心实现方案

1. 高效批量选取点

使用 SSGET 配合过滤器可以大幅提升点选取效率：

(setq ptFilter '((0 ."POINT")))
(setq ptSS (ssget "_X" ptFilter))

2. 三维实体生成

根据需求选择不同的实体生成方式：

• 使用原生命令生成 3D 多段线：

  (command "_3DPOLY")
  (while (setq pt (ssname ptSS i))
    (command (cdr (assoc 10 (entget pt))))
    (setq i (1+ i))
  )
  (command "")

• 使用 ActiveX 接口创建 3D 面：

  (setq acadObj (vlax-get-acad-object))
  (setq modelSpace (vla-get-ModelSpace 
                    (vla-get-ActiveDocument acadObj)))
  
  (setq facePoints (vlax-make-safearray 
                   vlax-vbDouble 
                   (cons 0 (1- (* 3 (sslength ptSS))))))
  
  ; 填充点坐标数据到 safearray
  (vla-add3DFace modelSpace facePoints)

3. 内存优化技巧

使用 COM 接口后必须及时释放对象：

(vlax-release-object modelSpace)
(vlax-release-object acadObj)

完整代码示例

(defun c:Create3DFromPoints (/ ptSS i pt facePoints acadObj modelSpace)
  ;; 选取所有点对象
  (setq ptSS (ssget "_X" '((0 ."POINT"))))

  (if ptSS
    (progn
      ;; 方式 1：使用 3DPOLY 命令
      (command "_3DPOLY")
      (setq i 0)
      (while (setq pt (ssname ptSS i))
        (command (cdr (assoc 10 (entget pt))))
        (setq i (1+ i))
      )
      (command "")

      ;; 方式 2：使用 ActiveX 接口
      (setq acadObj (vlax-get-acad-object))
      (setq modelSpace (vla-get-ModelSpace 
                       (vla-get-ActiveDocument acadObj)))

      (setq facePoints (vlax-make-safearray 
                       vlax-vbDouble 
                       (cons 0 (1- (* 3 (sslength ptSS))))))

      ;; 填充点坐标数据
      (setq i 0)
      (while (setq pt (ssname ptSS i))
        (setq ptData (cdr (assoc 10 (entget pt))))
        (vlax-safearray-put-element 
          facePoints (* i 3) (car ptData))
        (vlax-safearray-put-element 
          facePoints (1+ (* i 3)) (cadr ptData))
        (vlax-safearray-put-element 
          facePoints (+ 2 (* i 3)) (caddr ptData))
        (setq i (1+ i))
      )

      (vla-add3DFace modelSpace facePoints)

      ;; 释放 COM 对象
      (vlax-release-object modelSpace)
      (vlax-release-object acadObj)

      (princ (strcat "\n 成功创建" (itoa (sslength ptSS)) "个点构成的三维实体"))
    )
    (princ "\n 未找到点对象")
  )
  (princ)
)

性能优化对比

对 1000 个随机点进行测试：

常见问题解决方案

1. 重复实体校验

   (defun IsPointUsed (pt usedPtList tol)
     (vl-some 
       '(lambda (usedPt) 
          (< (distance pt usedPt) tol))
       usedPtList))

2. 坐标系精度问题

3. 使用 (rtos) 函数控制坐标输出精度

4. 比较坐标时设置合理的容差(tolerance)

5. 大数据量处理

6. 分块处理：将点云划分为多个区域分别处理
7. 进度显示：使用 (princ) 输出处理进度

延伸应用

本方案可扩展应用于：

• BIM 参数化建模中的构件批量生成
• 地形曲面模型的自动化创建
• 点云数据的三维重建

通过将点数据与属性信息关联，可以进一步实现参数化控制。例如将点的高度值关联到建筑层高参数，实现模型联动更新。

总结

本文介绍的技术方案在实际项目中经过验证，能够显著提升三维建模效率。关键在于：

1. 合理选择点选取方式
2. 根据场景选用适当的实体生成 API
3. 注意内存管理和性能优化

建议读者在此基础上，结合具体业务需求进行功能扩展。比如添加异常处理、用户界面改进等，使工具更加健壮易用。