• 所有问题

    • 怎样用lisp编写程序控制cad

    如题所述

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

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

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

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

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

    用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) )​
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    visual lisp写一个小程序 就在cad中画一个矩形 可以自由改动长宽高 先...答：;试用以下程序 (defun c:ccc()(setq cm (getvar "cmdecho")os (getvar "osmode"))(setvar "cmdecho" 0)(command "_undo" "be")(if (setq pt0 (getpoint "\左下角:"))(if (setq pt1 (getcorner pt0 "\n右上角:"))(progn (setvar "osmode" 0)(command "_rectang" pt0 pt...
    在cad中如何创建lisp程序?以及大神们所说的lisp解决重复性劳动问题是怎...答：在功能区的”管理“选项卡里可以直接打开Visual Lisp编辑器。首先，AutoLisp也是一个程序设计语言,作为一个编程语言，AutoLisp能做的很多：扩充AutoCAD的原有命令。任何带有C:前缀的AutoLisp函数，在AutoCAD中都可以像"line" "circle" "dim"等命令一样使用。编写代码直接根据国标图库要求来绘出一些常用图库标...
    用lisp代码帮忙写个CAD小程序答：(command "_undo" "be")(setq pdbz nil)(vlax-for obj (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object)))(if (= (vla-get-name obj) "ACAD_ISO04W100")(setq pdbz t)))(if (= pdbz nil)(command "_linetype" "l" "ACAD_ISO04W100" "" ""))(while (...
    cad lisp程序答：可以用反应器实现，前提是画线和输入文字必须用定义的函数一次性操作完成.LISP代码如下：(VL-Load-Com)(defun c:Line_Txt(/ Pt Pt1 Pt2 EntLine HandTxt VlaObj Tmp)(setq Pt1 (getpoint "\n指定第一点:"))(setq Pt2 (getpoint "\n指定下一点:"))(setq Pt (list (/ (+ (car Pt1...
    CAD里面的lisp有什么作用啊,怎么用,要具体的,能让我明白加分答：1. 可以使用APPLOAD命令，然后去找到要加载的LISP文件，加载即可。2. 可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口，也可以加载 3. 在命令行后用，(load "c:\\temp\\xxx.lsp")也可以加载，路径名请输入实际的路径。另：对于一个LSP程序，(defun 后面的既是命令或者函数，一般程序应该有提示...
    如何用LISP程序修改CAD快捷键?答：首先，这个快捷键不得与其它CAD快捷键有重复。快捷键的格式如下：(defun c:qx () (command "layon") (prin1) ) ;;打开所有图层(defun c:ff () (command "layoff") (prin1) ) ;;选择需要关闭的图层(defun c:qw () (command "layiso") (prin1) ) ;;选择需要隔离的图层(defun c:tc...
    CAD怎么自己编lisp程序答：我编写的简单,功能不太全.你看着用吧 复制下列代码,创建acad.lsp.放在在CAD安装目录第一层文件夹下,可自动加载啊:;在命令行输入该命令hidsel,然后选择图元,结果没选的被改到隐藏层 (defun C:hidsel(/ all;所有图元 xs;非隐藏图元 yc;隐藏图元 n nam dat)(setvar "CMDECHO" 0);关闭命令回显 ...
    CAD LISP程序编辑 懂得来答：b c "")(command "line" f h "")(command "text" e (* 3 g) (* (/ d (angtof "180")) 180) (strcat "X=" (rtos ax 2 0)))(command "text" j (* 3 g) (- (* (/ d (angtof "180")) 180) 90) (strcat "Y=" (rtos ay 2 0)))怎么用，你懂的。^_^ ...
    谁能帮我写个cad的lisp程序?答：;矩形中心线 (defun c:jxzxx()(setq cmd (getvar "cmdecho"))(setq osm (getvar "osmode"))(setvar "cmdecho" 0)(command "undo" "be")(If (progn (princ "请选取矩形:")(setq ssa (ssget":S" '((0 . "lwpolyline") (90 . 4) (70 . 1)))(progn (setq dxf (entget (ss...
    大家正在搜
    autocad lisp程序FEKO编写程序控制编写程序控制关机编写程序控制小灯闪烁编写航标灯控制程序cad中lisp怎么用cad lisp编程cad自己编写lispcad的lisp程序大集合