CAD教程:Autocad定制与Autolisp编程。Autolisp教程
在同一主题延续我的文章的第2部分,我们将讨论一些autolisp函数和这里使用。
阅读和附加文件看下面的例子:
(setq f(打开“aaa。txt”“r”))
该语句将打开文件aaa.txt呼吁阅读
()以及readline f)
正如我们已经写第一行“我爱你”,这句话将返回这条线。
(关闭)
这将关闭该文件。
附加非常类似于写作,除了附加文件写作需要已经存在,如果文件不存在已经autolisp将创建它的安装目录(大多数情况下在“C: \ Program Files \ ACAD2000”)
(setq f(打开“aaa。txt”“一”)
该语句将打开文件aaa.txt呼吁追加。
(write-line“添加行”)
正如我们已经写第一行“我爱你”,这句话“添加线”添加到该文件。
(关闭)
这将关闭该文件。
现在在上面的例子中,如果我们可以打开写作而不是添加,那么现有的文本会被覆盖的新添加的文本。
让我们看看下面的例子:
(setq f(打开“aaa。txt”“w”))
(write-line“我爱你”)
(关闭)
如果你有一个名为aaa.txt在任何位置的文件(比如“C: \ \ aaa主要数据。txt”)除了AutoCAD安装位置(说,“C: \程序文件”),然后上面的程序不会把文件在“C: \主要数据”相反,它将创建一个文件名为“aaa。txt”,“C: \程序文件”,并开始写作。为了避免这种情况,我们可以修改上面的代码如下:
(setq文件(findfile aaa.txt))
(setq f(打开文件“a”))
(write-line“我爱你”文件)
(关闭文件)
在这种情况下,首先要找出在计算机文件命名为“aaa级。txt”已经存在,然后开始操作。
函数用于获取用户输入(功能):这些功能是非常重要的为autolisp程序让用户输入。程序执行将暂停为用户输入这些函数。
getangle:
语法:(getangle[点][信息])
观点:如果中指定的程序将被视为第一点两点的指定角度。用户只需要指定第二点指定角度。如果没有指定这个领域用户给2分。请注意这个角度对“x”将测量轴和当前工作平面。
信息:声明在这个领域会提示用户。
例子:
(setq (getangle))
在这种情况下,用户必须输入角度的价值程度和autolisp将弧度的价值。
(setq (getangle ' (2 3)))
这里autolisp将点(2、3)作为第一个点的线将定义的角度对“X”轴的工作平面。用户提供第二点来定义。
(setq (getangle”?"))
在这种情况下autolisp将提示显示行“方向”,之后用户指定第一点它会询问第二点定义的角度。
(setq (getangle(2 3)”方式?"))
在这种情况下autolisp将考虑第一点(2、3),让用户的第二点。
getpoint:
语法:(getpoint[葡文][味精])
例子:
(setq pnt (getpoint))
AutoCAD将停止对用户的遥控器按来定位。
(setq pnt (getpoint“定位?"))
AutoCAD将显示一个提示为“定位?“用户鼠标点击。
(setq pnt (getpoint”(10.5 - 20.0)“第二点”))
在AutoCAD将指定的点作为基准点和计算第二点的位置点击鼠标。
请注意,当您将指定一个协调点必须使用”之前的协调。
结论
摘要当前,许多3 d CAD和有限元分析包可用于帮助机械设计工程师,但仍然,AutoCAD是广泛用于工业。通过使用AutoCAD定制autolisp你将能够自动创建过程。从而可以减少设计时间。
这篇文章是系列的一部分:Autocad定制
这个系列文章描述AutoCAD cutomization利用Autolisp等工具,视觉lisp, VB, c++使用AutoCAD的定制。