【代码篇】通过三维坐标在CAD里自动输出三维模型

最新推荐文章于 2024-08-16 16:14:31 发布

王纯月

最新推荐文章于 2024-08-16 16:14:31 发布

阅读量8k

点赞数 2

分类专栏： CAD的二次开发文章标签： CAD二次开发 visual lisp 三维坐标体模型

本文链接：https://blog.csdn.net/weixin_42326479/article/details/86508207

版权

本文介绍了如何通过Visual LISP在CAD中根据三维坐标自动生成线、面和体模型。通过编写LISP程序，读取包含坐标数据的txt文件，实现了便捷的三维模型创建。读者可以通过实例学习并扩展程序，以应对更多复杂模型的绘制需求。

摘要由CSDN通过智能技术生成

如何通过三维坐标在CAD里输出三维模型

模型展示

在这里插入图片描述下面教大家如何通过实际测量出的三维点坐标，在CAD中用一些自己编写的快捷键输出线、面、体。

利用CAD的Visual Lisp编写程序

1.直接画线

Visual LISP编辑器 是CAD常用的二次开发工具，它就在CAD里，见下图
在这里插入图片描述

1.打开Visual LISP编辑器；
2. 拷贝下面的代码，此代码是画两条三维线，然后保存；

(defun c:hual()
  (setvar "cmdecho" 0) 
  (setvar "blipmode" 0)
  (setvar "dimzin" 0)
  (vl-load-com)
  (setq path "D:/")
  (setq g1(getfiled "选择数据文件" path "txt" 0))
  (setq g2(open g1 "r")) 
  (setq i 1)
  (while (<= i 120) 
   (setq f1 (read-line g2))
   (eval (read(strcat "(setq s" (rtos i)  " "  (vl-prin1-to-string f1) ")")))
   (setq i(+ i 1))
   )
   (setq s1 (vlax-make-variant s1 vlax-vbDouble))
   (setq s1(vlax-variant-value s1))
   (setq s2 (vlax-make-variant s2 vlax-vbDouble))
   (setq s2(vlax-variant-value s2))
   (setq s3 (vlax-make-variant s3 vlax-vbDouble))
   (setq s3(vlax-variant-value s3))
   (setq s4 (vlax-make-variant s4 vlax-vbDouble))
   (setq s4(vlax-variant-value s4))
   (setq s5 (vlax-make-variant s5 vlax-vbDouble))
   (setq s5(vlax-variant-value s5))
   (setq s6 (vlax-make-variant s6 vlax-vbDouble))
   (setq s6(vlax-variant-value s6))
   (setq s7 (vlax-make-variant s7 vlax-vbDouble))
   (setq s7(vlax-variant-value s7))
   (setq s8 (vlax-make-variant s8 vlax-vbDouble))
   (setq s8(vlax-variant-value s8))
   (setq s9 (vlax-make-variant s9 vlax-vbDouble))
   (setq s9(vlax-variant-value s9))
   (setq s10(vlax-make-variant s10 vlax-vbDouble))
   (setq s10(vlax-variant-value s10))
   (s