这是cad的autolisp的编程题，求助啊、、、

计算某直线外一点到直线的最短距离，即为垂线，不判断垂足点是否在直线上

设定命令为mm

(defun c:mm()

(setvar "cmdecho" 0)

(setq pt1 (getpoint "第1点"))

(setq pt2 (getpoint "第2点"))

(setq pt3 (getpoint "第3点"))

(command "line" pt1 pt2 "")

(command "point" pt3 "")

不判断pt1、2、3是否共线，

方法一：

pt4x，pt4y点的确定

分别获取pt1、2、3的坐标值

(setq pt1x (car pt1))

(setq pt1y (cadr pt1))

(setq pt2x (car pt2))

(setq pt2y (cadr pt2))

(setq pt3x (car pt3))

(setq pt3y (cadr pt3))

计算方法：

pt4与pt1 pt2 共线

(pt4x-pt1x)/(pt4y-pt1y)=(pt2x-pt1x)/(pt2y-pt1y)

pt4 pt3的斜率与pt1 pt2的斜率乘积为1

(pt4x-pt3x)/(pt4y-pt3y)*(pt2x-pt1x)/(pt2y-pt1y)=-1

自行解方程计算出pt4x、y的表达式

计算pt3到直线pt1 pt2的最短距离

(setvar dist (sqrt( (pt4x-pt3x)*(pt4x-pt3x)+(pt4y-pt3y)*(pt4y-pt3y) ) ) )

方法二：

使用getdist函数，不计算具体的垂足点的坐标

开启对象捕捉仅为垂足点

(setq dist (getdist pt3 (“选择垂足点”)))

(princ)

)

AutoLISP语言是AutoCAD的内置的编程语言。 它可以用来创建新的命令或重新定义现有的。AutoLISP语言是一个非常强大的定制工具。本文旨在说明如何加载AutoLISP语言。

你可以复制和粘贴，如下面的例子，或者你可以下载一个*.LSP的文件。开始你需要使用记事本，  因为AutoLISP *.LSP的文件只是普通的文本文件。看其他人的编写的AutoLISP语言代码是一个很好的学习方法，网上有很多提供.LSP的文件下载的。

基本过程是非常简单，如下。 有3个主要步骤（或如果有*.LSP的文件仅仅需要2步），创建lisp文件，加载lisp文件和日常运行lisp程序。

注：AutoLISP语言例程将只在完整版本的AutoCAD运行，他们不会在AutoCAD LT版本运行。

创建lisp文件

复制程序代码并粘贴到Windows中的记事本。

(defun c:zone ( / ss la rv i tv op en)

(while (not ss)

(princ "\nPick any object on the required layer: ")

(setq ss (ssget)))

(initget "Length Area")

(setq rv (getkword "\nWould you like to measure Length/Area <Area>: "))

(and (not rv)

(setq rv "Area"))

(setq la (cdr (assoc 8 (entget (ssname ss 0))))

ss (ssget "X" (list (cons 0 "*POLYLINE")

(cons 8 la)))

i (sslength ss)

tv 0

op 0)

(while (not (minusp (setq i (1- i))))

(setq en (ssname ss i))

(command "_.AREA" "_E" en)

(cond ((= rv "Length")

(setq tv (+ tv (getvar "PERIMETER"))))

(T

(setq tv (+ tv (getvar "AREA")))

(if (/= (logand (cdr (assoc 70 (entget en))) 1) 1)

(setq op (1+ op))))))

(princ (strcat "\nTotal " rv

" for layer " la

" = " (rtos tv 2 2)

" in " (itoa (sslength ss)) " polylines\n"

(if (/= rv "Length")

(strcat (itoa op) " with open polylines") "")))

(prin1))

现在保存文件为zone.lsp，给予它适当的文件名，并确保它有一个.LSP的文件扩展名。

加载lisp文件

打开AutoCAD选择菜单Tools——AutoLISP——Load Application….d出对话框（如下图所示）：

load unload apps

使用下面的 *** 作来加载已保存lisp文件：

找到该lisp文件已保存的文件夹。

从列表中选择所需的文件。

单击 Load按钮。如果一切顺利，将出现一条消息说“*.lsp成功载入”。

单击Close按钮关闭对话方块。

运行AutoLISP程序

一旦lisp文件被加载，它可以在命令行运行。在运行时只需输入命令的名称（而不是文件名）。在lisp文件中开始是 (defun c:zone ，所以在命令行输入zone。

---