`
sjgau
  • 浏览: 97199 次
  • 性别: Icon_minigender_1
  • 来自: 台灣省 台北市
最近访客 更多访客>>
文章分类
社区版块
存档分类
最新评论

一個也許有用的 AutoLISP 程式

阅读更多
cpp 代码
  1. ; file: s-arc.lsp   
  2.   
  3. ; create a useful lisp of small- arc   
  4. ; 模擬 人工畫圖的時候,使用圓規 或是 分規,   
  5. ; 取 等長線段 的動作   
  6. ; -----------------------------------------------   
  7.   
  8. (defun rtod(r1 / )   
  9.   ; d1= (r1/pi)*180.0   
  10.   (* (/ r1 pi) 180.0)   
  11.   ); end of rtod()   
  12. ; -----------------------------------------------   
  13.   
  14. (defun dtor(d1 / )   
  15.   ; r1= (d1/180.0)*pi   
  16.   (* (/ d1 180.0) pi)   
  17.   ); end of dtor()   
  18. ; -----------------------------------------------   
  19.   
  20. (defun c:s-arc( / )   
  21.   (setq p1 (getpoint "\n Get 1st point: "))   
  22.   (setq p2 (getpoint p1 "\n Get 2nd point: "))   
  23.   
  24.   (setq p3 (getpoint "\n Get 3rd point: "))   
  25.   (setq p4 (getpoint p3 "\n Get 4th point: "))   
  26.   ; -----------------------------------------------   
  27.   
  28.   (setq s1 (distance p1 p2))   
  29.   (setq a1 (angle p3 p4))   
  30.   
  31.   (setq a1 (rtod a1))   
  32.   (setq a2 (+ a1 8)   
  33.     a3 (- a1 8))   
  34.      
  35.   (setq p5 (polar p3 (dtor a2) s1)   
  36.     p6 (polar p3 (dtor a3) s1)   
  37.     p4 (polar p3 (dtor a1) s1))   
  38.   
  39.   (command "arc" p5 p4 p6)   
  40.   (princ)   
  41.   ); end of c:s-arc()   
  42. ; end of file   
分享到:
评论
3 楼 sjgau 2006-12-29  
http://zh.wikipedia.org/w/index.php?title=%E5%85%AD%E6%9B%B8&variant=zh-tw

六書,指漢字的六種構造條例,是後人根據漢字的形成所作的整理,而非先民的原始造字法則。然而,在六書出現後(時間最遲是東漢),人們造字時:

象形
指事
形聲
會意
轉注
假借
其中象形、指事是「造字法」,會意、形聲是「組字法」,轉注、假借是「用字法」。





2 楼 sjgau 2006-12-29  
這是 中國 老祖宗的智慧,
丟掉可惜,五千年的歷史文化,
就靠他傳承。

禮失而求諸野,目前
全世界 大概只有台灣還在使用 正體字[繁體字]
的中文。

想想看,當您踏進故宮博物館,看不懂您 祖先的文字,
不是很可惜嗎?

中國的文字,其實是很有意思的,
造字的規矩有
象形,指事,形聲,會意,轉注,假借
詩中有畫,畫中有詩;所推崇的是 王維

加油吧,中國人

1 楼 redfeather 2006-12-28  
好像不应该写在这里

繁体字虽然看得懂

但是确实看着费劲儿 多了很多勾勾划划

呵呵

相关推荐

    AutoLISP 编程.zip_autoLisp编程_autolisp_autolisp教程_lisp编程

    例如,`(function arg1 arg2 ...)` 是一个典型的AutoLISP函数调用。 2. **变量和数据类型**:AutoLISP支持多种数据类型,包括数字、字符串、列表、符号、布尔值和实体等。理解它们之间的转换和操作至关重要。 3. *...

    AutoCAD 2010 AutoLISP参考手册_autolisp_

    AutoLISP的核心概念包括以下几个方面: 1. **数据结构**:LISP语言中最基础的数据结构是列表。在AutoLISP中,这种结构被用来表示几何对象、属性、命令参数等。列表可以包含其他列表或各种基本数据类型,如数字、...

    AutoLISP函数参考(明经翻译版).rar_autolisp_autolisp functions_autolisp翻译_l

    `atom`函数检查一个对象是否为原子,`list`用于创建新的列表,而`cdr`和`car`则分别用于获取列表的尾部元素和头部元素。 绘图与几何操作函数,如`circle`、`line`、`arc`、`dist`等,用于在AutoCAD环境中创建和操作...

    AutoLisp入门教程

    5. **DCL(Design Center Language)**:DCL是AutoLisp的一个扩展,允许开发者创建交互式的对话框,增强用户界面。`defvar`和`dialog`等函数用于定义和显示对话框元素。 6. **文件操作**:AutoLisp能读写文本和二...

    AutoLISP函数参考【中文版】

    `acad_alr.chm`是一个帮助文件,通常用于存储详细的文档和教程。在AutoLISP的上下文中,它可能包含了所有AutoLISP函数的详细解释,包括函数的语法、参数、返回值以及使用示例。CHM文件是Windows的HTML帮助格式,用户...

    AutoLiSP 教程 (AutoLiSP Tutorial 中文版)

    1. **AutoCAD 的集成开发环境(IDE)**:AutoCAD 自带了名为 Visual LISP 的 IDE,它包含一个编辑器、调试器和自动完成功能,方便编写和测试 AutoLISP 程序。 2. **加载和执行**:AutoLISP 程序通常保存为 `.lsp` ...

    AutoCAD完全应用指南—AutoLISP DCL Visual LISP程序设计篇(随书光盘)

    第2篇(第11章)为62个精选实用autolisp程序设计范例,通过精讲62个autolisp程序设计范例,让读者将autolisp知识融会贯通。第3篇(第12~21章)为autolisp与dcl对话框整合应用,主要介绍了dcl的基础知识、dcl对象属性的...

    AutoLisp葵花宝典

    AutoLisp葵花宝典

    利用AutoLISP实现CAD图形属性修改.pdf

    AutoLISP是一种专门针对AutoCAD软件开发的编程语言,它属于LISP语言的一个分支。LISP语言是一种古老的编程语言,以其强大的函数式编程能力和列表处理能力著称。AutoLISP继承了LISP语言的优点,并与AutoCAD的强大图形...

    AutoLISP例程:读取excel文件.doc

    在本例中,我们将使用 AutoLISP 读取 Excel 文件的内容,并将其返回为一个 Lisp 列表。首先,我们需要加载 COM 组件,使用 vl-load-com 函数加载 COM 组件。然后,我们使用 vlax-get-or-create-object 函数创建一个 ...

    AutoLISP应用程序源代码.pdf

    例如,(defun wwriteapp () ...) 用来定义一个名为 wwriteapp 的函数,该函数用来将文件中的内容写入到另一个文件中。 6. 文件删除操作:AutoLISP 提供了文件删除操作函数,例如 vl-file-delete 函数用来删除文件。...

    AutoLisp-教程word版教程.rar

    AutoLisp是一种基于LISP语言的编程环境,专为Autodesk的AutoCAD软件设计,用于扩展和自动化CAD操作。这个“AutoLisp-教程word版教程.rar”压缩包文件包含了关于AutoLisp的详细教学材料,以Word文档的形式提供,方便...

    AutoLISP入门基本知识.pdf

    AutoLISP是由Autodesk公司开发的一种LISP程序语言,LISP是List Processor的缩写。通过autolisp编程,可以节省工程师很多时间。AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言,是开发应用AutoCAD不可...

    Autolisp_Tools 免费版2019-03-28.zip

    《AutoLISP工具在CAD中的应用详解》 AutoLISP是一种特定于AutoCAD的编程语言,它是基于LISP(列表处理)语言的简化版本,专为CAD用户设计,旨在简化和自动化CAD操作。AutoLISP工具是CAD用户尤其是五金模具设计师的...

    autocad完全应用指南.autolisp+dcl+visuallisp程序设计篇(2011年4月第一版).part4.rar

    第十一章62个实用精选autolisp学习范例 第三篇autolisp与dcl对话框整合应用 第十二章dcl对话框设计主角潇洒登场 第十三章轻松、简单、快速地进入dcl天地 第十四章dcl对话框的对象属性定义速查 第十五章autolisp掌控...

    autocad完全应用指南.autolisp+dcl+visuallisp程序设计篇(2011年4月第一版).part2.rar

    第十一章62个实用精选autolisp学习范例 第三篇autolisp与dcl对话框整合应用 第十二章dcl对话框设计主角潇洒登场 第十三章轻松、简单、快速地进入dcl天地 第十四章dcl对话框的对象属性定义速查 第十五章autolisp掌控...

    应用AutoLisp在AutoCAD中半自动获取点坐标+使用说明

    在AutoCAD中,AutoLISP允许用户编写自定义的程序来处理图形数据,如获取点坐标,这对于工程设计和数据分析非常有用。本教程将详细介绍如何使用AutoLISP在AutoCAD中半自动获取点坐标,以及提供的程序"节点坐标获取....

    autolisp的入门教程+autolisp函数

    例如,`(getpoint)` 函数会提示用户在图形窗口选择一个点,`(vl-cmdf "command" arg1 arg2 ...)` 可以调用AutoCAD命令。 **6. AutoLISP的应用场景** AutoLISP广泛应用于以下场景: - 创建自定义绘图命令。 - 批量...

    autolisp开发人员手册

    书中提到了AutoCAD“图形辅助工具”对话框中的一个用户定义属性的例子。该属性名为errmsg,用于在用户输入无效值时显示错误信息。它展示了如何在实际应用中使用用户定义属性来提供反馈和控制程序行为。 ### 结语 ...

Global site tag (gtag.js) - Google Analytics