编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/23 18:55:20

编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1 p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1 L A.

(defun c:drl ( / cm os p1 p2 l a )
(setq cm (getvar "cmdehco"))
(setq os (getvar "osmode"))
(setq p1 (getpoint "\n请选择基点:"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq l (getdist p1 "\n请输入长度:"))
(setq a (getangle p1 "\n请输入角度:"))
(setq p2 (polar p1 a l))
(command "_.Line" p1 p2 "" "_.Circle" p1 (/ l 4.0) "_.Circle" p2 (/ l 4.0))
(command "_.Circle" (polar p1 a (/ l 2.0)) (/ l 4.0))
(command "_.Osmode" os "_.Cmdecho" cm)
(princ)
)

已知点P1(2,1),直线P1P2平行于y轴,且点P2到x轴的距离为5,求点P2的坐标已知p1(2,3),p2(-4,5),A(-1,2),直线l经过A点,且p1,p2到直线的距离相等,求直线的方程过点M的 (-2,0)直线L与椭圆x^2/2+y^2=1交于P1,P2线段P1,P2中点为P 已知P1(1,0),P2(7,-8)两点分别在直线l的两侧,且P1,P2到直线l的距离均为4 已知一条直线l平行于x轴,p1(-2,3)p2(x2,y2)是直线l上两点,且p1,p2的距离为4,则p2的坐标为已知一个平面P1、平面P1和P2的夹角θ、P2平面中一条直线的方程L,能否求出平面P2（解析式）? 已知圆C的方程为x2+y2-6x-2y+5=0，过点P（2，0）的动直线l与圆C交于P1，P2两点，过点P1，P2分别作已知点P1(X1,Y1),P2(X2,Y2)和直线L:ax+by+c=0,线段P1P2与直线l相交于点P 过点M（-2,0）的直线L与椭圆X^2/2+Y^2=1交于P1、P2两点,线段P1P2的中点为P 给定双曲线x^2-y^2/2=1,过点A（2,1）的直线l与所给双曲线交于P1,P2两点,求线段P1P2中点P的轨迹方程过点M（-2，0）的直线l与椭圆x2+2y2=2交于P1，P2，线段P1P2的中点为P.设直线l的斜率为k1（k1≠0）已知P1(2,-1),P2(-1,3)P在直线P1P2上.求P点坐标