Autolisp实用编程编写程序界面说明流程程序编写实用的技巧 程序界面说明界面 1.掌握框内按钮的使用，初学者重点窗口、加载、检验、注释、格式窗口； 2.调试过程中注意使用检验按钮，检查变量的传递过程；流程编写程序——检验——加载——返回cad输入命令，效果检查程序编写注意事项： 1.autolisp中所有函数命令必须放在（）中，严禁出现中文括号； 2.autolisp中大小写无关性； 3.交
# Python与AutoLISP的结合应用
随着计算机程序设计的快速发展，Python渐渐成为了一种流行的编程语言，广泛应用于各个领域。AutoLISP作为一种特别为AutoCAD设计的LISP语言，主要用于自动化设计过程。结合Python与AutoLISP，可以在AutoCAD环境下实现高效的自动化工程流程。本文将介绍二者的基本概念、结合优势，以及一些简单的代码示例。
## Python与
有以下 list : (1 2 3 (4 5 6) "Properties" (("id" . 3) ("name" . "hello lisp"))) 要求用: quote cons acutBuildList acutNewRb 方式构造
转载
2013-09-21 12:08:00
118阅读
2评论
一、AutoLisp简介AutoLisp是Autodesk公司开发的一种Lisp语言，旨在节省工程师的绘图时间，后也用来制作一些简单的绘图插件，甚至完成一个完整的CAD二次开发项目。二、你的第一行AutoLisp代码(prompt "\nHello, Welcome to AutoLisp!")Hello，Welcome to AutoLisp！，直接将这行代码复制到AutoCAD的命令行中，按下
AutoLISP手指图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldlayer (getvar "clayer")) (setvar "osmode" 0) (setq cenpt (getpoint "圆...
转载
2011-03-28 20:26:00
109阅读
2评论
AutoLISP自动绘制砖墙，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")...
转载
2011-03-28 20:05:00
96阅读
2评论
AutoLISP绘制时钟，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq cen (getpoint "\n中心点：")) (setq rr (* (getdist cen "\...
转载
2011-03-28 15:45:00
129阅读
2评论
AutoLISP切圆动画，在已知圆外绘制一外切圆，并逆时针运动，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq en (car (entsel "\n选取一圆心："))) (setq cen2 (getpoint "\n切点圆：")) (princ "\n按选键盘任意键可转动切圆,[EN...
转载
2011-03-29 22:07:00
159阅读
2评论
AutoLISP选择集操作，根据选择集中图元的类型，进行不同的操作，代码如下。 (defun c:ssope () (setq ss (ssget)) (setq i 0) (repeat (sslength ss) (setq typ (cdr (assoc 0 (entget (ssname ss i))))) ...
转载
2011-04-09 21:48:00
695阅读
2评论
AutoLISP查询图元信息，可以查询直线、圆弧、圆、椭圆的相关信息，代码如下。 (defun c:getppt () (setq ss (car (entsel "请选择要查询的图元："))) (setq ssob (vlax-ename->vla-object ss)) (setq typ (cdr ...
转载
2011-04-11 20:56:00
341阅读
2评论
AutoLISP绘制表格，自动绘制表格，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq pt1 (getpoint "\n第一角点：")) (setq pt3 (getcorne...
转载
2011-04-05 15:43:00
331阅读
2评论
AutoLISP修改圆直径，代码如下。 (defun c:test() (princ "\n选取要修改的圆：") (setq ss (ssget)) (setq old_rr (getvar "circlerad")) (setq str_rr (strcat "\n新直径:")) (setq rr (getdist st...
转载
2011-03-29 15:51:00
141阅读
2评论
AutoLISP修改文字高度，代码如下。 (defun c:test() (setq old_hh (getvar "textsize")) (setq str_hh (strcat "\n输入新字高:")) (setq hh (getdist str_hh)) (if (null hh) (setq hh old_hh)) ...
转载
2011-03-29 15:32:00
346阅读
2评论
AutoLISP纹理地板图案，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (command "undo" "be")...
转载
2011-03-28 21:40:00
76阅读
2评论
AutoLISP指定图层更换内容，代码如下。 (defun c:test() (setq oldtxt (getstring t "\n输入旧字符串：")) (setq newtxt (getstring t "\n输入新字符串：")) (setq layn (strcase (getstring "\n输入图层："))) (setq ...
转载
2011-03-28 23:57:00
109阅读
2评论
Auto LISP提供的OSNAP函数所完成的功能与Auto CAD中的OSNAP命令完成的功能相似，捕捉目标的特征点。调用格式:（osnap 〈点〉 〈目标捕捉方式〉）功用及求值结果。该函数是用〈点〉先取屏幕图形目标，再根据〈目标捕捉方式〉求出该目标的特征点如（圆心、直线端点、切点、线段中点、交点等），并返回该特征点。若对给定〈点〉没有捕捉到目标，但找不到与指定捕捉方式相匹配的目标特征点。OSNAP则返回nil。目标捕捉方式只作一简述：NEA(Nearest)—捕捉靶区中心点位置最近的线、弧线或圆上的点。ENDP(Endpoint)—捕捉靶区中心点最近的线、弧线的端点。MID(Midpoin
转载
2011-06-10 22:36:00
219阅读
2评论
AutoLISP指定路径，计算长度，代码如下。 (defun c:test (/ pt pts dis p1) (while (setq pt (getpoint "\n端点: ")) (if (not p1) (setq p1 pt) ) (setq pts (cons pt pts)) ...
转载
2011-05-24 20:55:00
234阅读
2评论
AutoLISP绘制花型四，像个荷花的形状，代码如下。 (defun c:test() (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setvar "osmode" 0) (setq cen (getpoint "\n中心点：")) (setq srr (getvar ...
转载
2011-03-28 17:32:00
124阅读
2评论
运用grread函数跟踪鼠标坐标，绘制鼠标轨迹，代码如下。 (defun c:test () (setq p (getpoint)) (setq n 0) (while (progn (setq input (grread t)) (cond ((= (car inpu...
转载
2011-05-23 01:30:00
279阅读
AutoLISP绘制玻璃门，代码如下。 (defun c:test () (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldlayer (getvar "clayer")) (setvar "osmode" 0) (get_door_bas_pp) ...
转载
2011-04-05 16:38:00
91阅读
