怎样用lisp编写程序控制cad

atocad能够使通过LISO编写各种定制度绘图命令，从而达到控制绘图的效果。LISP语言（全名LISt Processor，即表处理语言），由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言。那么如何才能编写LISP程序控制cad绘图呢？本文就此讲解并编写了一个简单的程序，以期对读者起到抛砖引玉的作用。

操作方法

  • 01

    创建一个cad，新建一个工程，如下图所示。

  • 02

    ​在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。

  • 03

    ​使用cad加载lsp文件，选择lsp文件位置。

  • 04

    在命令栏​点击l，用cad绘制几条线段，如下图所示。

  • 05

    ​在命令栏​输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。

  • 06

    用lisp的​代码为(defun c:LL () (setvar "cmdecho" 1) (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE")))) (setq i 0) (setq ll 0) (repeat (sslength en) (setq ss (ssname en i)) (setq endata (entget ss)) (command "lengthen" ss "") (setq dd (getvar "perimeter")) (setq ll (+ dd ll)) (setq i (1+ i)) ) (princ "所选线条总长为：")(princ ll)(princ) )​

赞 (0)

相关推荐

  • 利用lisp实现CAD图层的快速切换

    前一段时间介绍了通过动作宏来的录制来实现CAD图层的快速切换.如果图层比较多的时候就需要录制很多个动作宏,修改起来也不方便.今天再介绍一种更加方便的方法来快速切换图层. 操作方法 01 通过LISP来 ...

  • 中望CAD+2015提升汽车内饰设计体验的研发

    中望软件每年都会发布一个CAD平台的新版本，今年的2015版带给我们新的体验和感受。全兴工业研发是从事汽车内饰件的企划、设计、开发、试验的研发机构，CAD使用程度较深，对软件性能功能要求也很高。从我们 ...

  • 浩辰GstarCAD 2018无限试用补丁激活破解安装教程(附下载)

    gstarcad 2018是一款浩辰cad官方针对国际用户而开发的功能强大的cad软件,属于英文版本,也可以叫做浩辰cad2018英文版.GstarCAD使用开放式设计DWG库来读取和编写AutoCA ...

  • CAD LISP批量修改字高？

    cad LISP批量修改字高? 操作方法 01 (DEFUN C:CHHTEXT () (princ "\nselect object:") (setq s (ssget)) (s ...

  • cad二次开发教程（cad二次开发是什么意思）

    cad二次开发教程（cad二次开发是什么意思）

    一.CAD二次开发,应用广泛,机械工程类比较明显!二.开发语言:Lisp: Autodesk LispObjectARX: VCActiveX: 所有支持ActiveX的开发语言,比如VBA, VB, ...

  • CAD如何快速的绘图

    一.熟悉对CAD中基本操作命令/快捷图标的使用 这一点大多数人都知道,古人云:熟能生巧.基本命令与快捷图标便是CAD中大家最熟悉的,也应该能熟练掌握了,所以不详谈了.二.ACAD.PGP文件修改 大家 ...

  • cad相贯线怎么画

    Autocad作为老牌绘图软件,服务的行业可谓只有想不到.钢结构和机械制图自然也在服务的范围内.于是,一个常规的制图任务开始经常被人提起,如何用CAD绘制相贯线呢? 其实只要掌握基本的绘图技巧,就能很 ...

  • 浩辰CAD 2010的VLISP接口加载贱人工具箱图文教程

    Visual LISP语言可以访问CAD的对象模型, 不仅使程序开发变得更容易，更快捷，还提供了新的LISP语言应用功能。例如，可以使用VLISP以LISP语言访问ActiveX对象。还可以通过VLI ...

  • 怎么精确的把CAD图形复制到WORD里?

    很多人使用word绘制各种组织结构图.流程图等等图的时候往往发现,绘制速度很慢;同时绘制的不够精确,很丑;组合图形时,发现选择对象很多选不中,难以组合.有没有简单的方式,同时解决这几个问题呢?有,使用 ...