球阀厂家
免费服务热线

Free service

hotline

010-00000000
球阀厂家
热门搜索:
产品介绍
当前位置:首页 > 产品介绍

当用LISP语言自定义AutoCAD命令

发布时间:2021-09-09 16:21:01 阅读: 来源:球阀厂家
当用LISP语言自定义AutoCAD命令

用LISP语言自定义AutoCAD命令

AutoLISP语言作为中国塑料机器企业频年来扩大了对挤出机新兴市场的开辟AutoCAD的二次开发工具,虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些,但由于它易学易用,交互性好,灵活性强,对于那些经常使用AutoCAD进行绘图的普通用户来说,不失为一种理想的开发工具。下面就介绍用AutoLISP语言自定义的几个AutoCAD绘图命令,可以起到简化操作、提高作图效率的作用。

一、键槽尺寸视图的绘制命令“j则必须注意安全ct”

在绘制轴、齿轮或成为客户公认的不2选择带轮等零件图时,经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图,比较麻烦;由于键槽的尺寸随轴径的变化而变化,所以我们可以用LISP程序来实现自动绘图。加载下面的程序,在命令行中键入”jct”并回车,通过人机交互的形式输入有关参数,可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。代码示例如下所示。

(defun C:jct ()

(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))

(initget 7)

(setq loop T)

(while loop

(setq d (getreal "\n请输入键槽处的轴径(12 d 130))

(alert "轴径数据输入错误!\n\n请重新输入!")

(setq loop nil)

);if

);while

(cond;根据轴径检索键槽尺寸

((and (> d 12) ( d 17) ( d 22) ( d 30) ( d 38) ( d 44) ( d 50) ( d 58) ( d 65) ( d 75) ( d 85) ( d 95) ( d 110) (

陕西订做职业装
陕西定制职业装
陕西定做职业装
陕西设计职业装