• 首页
  • 热点专题
  • 休闲娱乐
  • 入党入团
  • 作业答案
  • 致辞范文
  • 简历模板
  • 学生评语
  • 餐饮资料
  • 讲话范文
  • 活动总结
  • 工作总结
  • 综合范文
  • 常用公文
  • 汇报范文
  • 自我鉴定
  • 工作报告
  • 体会心得
  • 演讲发言
  • 工作计划
  • 文案方案
  • 应用文写作
  • 行业文档
  • 行政管理
  • 百家集粹
  • 法律文书
  • 先进教育
  • 合同范文
  • 邀请函
  • 学生相关
  • 短信大全
  • 幼儿教育
  • 作文大全
  • 黑板报
  • 手抄报
  • 教育论文
  • 论文中心
  • 图片素材
  • 在线字典
  • 教育课件
  • 考研中心
  • 学习考试
  • VIP范文
  • 教案中心
  • 试题试卷
  • 教育教学
  • 会计必备
  • 成人高考
  • 自学考试
  • 公务员
  • 投稿
  • 首页 > 教育论文 > 职教文章>用LISP语言自定义AutoCAD命令_职教论文正文/ 1/6    1 2 3 4 5 6 下一页 尾页

    用LISP语言自定义AutoCAD命令_职教论文-职教文章

    论文  命令  语言  定义  职教  AutoCAD  LISP  
    AutoLISP语言作为AutoCAD的二次开发工具,虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些,但由于它易学易用,交互性好,灵活性强,对于那些经常使用AutoCAD进行绘图的普通用户来说,不失为一种理想的开发工具。下面就介绍用AutoLISP语言自定义的几个AutoCAD绘图命令,可以起到简化操作、提高作图效率的作用。
    一、键槽尺寸视图的绘制命令“jct”
    在绘制轴、齿轮或带轮等零件图时,经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图,比较麻烦;由于键槽的尺寸随轴径的变化而变化,所以我们可以用LISP程序来实现自动绘图。加载下面的程序,在命令行中键入”jct”并回车,通过人机交互的形式输入有关参数,可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。代码示例如下所示。
    (defun C:jct ()
    (setq pt0 (getpoint "\n 请输入视图的中心位置点:"))
    (initget 7)
    (setq loop T)
    (while loop
    (setq d (getreal "\n请输入键槽处的轴径(12﹤d﹤130)(mm):"))
    (if(or (﹤ d 12) (﹥ d 130))
    (alert "轴径数据输入错误!\n\n请重新输入!")
    (setq loop nil)
    );if
    );while
    (cond;根据轴径检索键槽尺寸
    ((and (﹥ d 12) (﹤= d 17)) (setq b 5 t1 3.0 t2 2.3));b表示键槽的宽度
    ((and (﹥ d 17) (﹤= d 22)) (setq b 6 t1 3.5 t2 2.8));t1表示轴上键槽的深度
    ((and (﹥ d 22) (﹤= d 30)) (setq b 8 t1 4.0 t2 3.3));t2表示轮毂上键槽的高度
    ((and (﹥ d 30) (﹤= d 38)) (setq b 10 t1 5.0 t2 3.3))
    ((and (﹥ d 38) (﹤= d 44)) (setq b 12 t1 5.0 t2 3.3))
    ((and (﹥ d 44) (﹤= d 50)) (setq b 14 t1 5.5 t2 3.8))
    ((and (﹥ d 50) (﹤= d 58)) (setq b 16 t1 6.0 t2 4.3))
     1/6    1 2 3 4 5 6 下一页 尾页
    AutoCAD中导入超文本实现方法_职教论文 在AutoCAD中实现尺寸公差自动标注的探讨_职教论文
    无相关信息

    最新相关范文文章

    沙龙国际官网