编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1 p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1 L A.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/28 02:23:00
编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1LA.编
编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1 p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1 L A.
编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1 p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1 L A.
编写一个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)
)
编写一个AutoLISP程序,从p1到p2点画一条直线.直线p1p2与正x轴夹角为A,p1点与p2点间的距离L,在p1 p2及其中点分别画一个园,圆直径为D1（D1=L/4）.要求提示输入：p1 L A.
编写一个autolisp程序,从p1点,画线到p2点,然后从p2点画线到p3点,两条线夹角为90°,然后倒圆角R=20,请问这个程序应该怎么写,我知道画线这个的写法,请问后面倒角应该怎么写?（setq p1(getpoint)(setq
编写一个AutoLISP程序,画一个边长为S1、S2,夹角为W的平行四边形,程序还应提示用户输入起点PT1,长度S1、S2及夹角W.回答这个就行,
编写一个 Shell 程序,计算从1到用户输入数字的和.(1+2+3+…n)
c++ 编写一个程序,要求输出从1到12之间的所有奇数的连乘积.
用C语言或Matlab编写一个 单源从一点到其它点最短路径长度 的程序
一、 编写程序,从键盘输入一个整数N（N
用C语言编写一个程序：从键盘输入n(0
编写autolisp程序并通过visual lisp集成开发环境调试该程序 ：程序文件名为drawing.lsp,程序中定义了函数drawing,用于根据用户指定的圆心位置和半径绘一个基圆和与该圆同心的另外三个圆,这三个
编写程序从n（20
程序编写,从键盘输入一个整数,打印出它是奇数还是偶数.怎么编写?
autolisp中画两圆公切线的程序怎么写?
一只小鸟罗在数轴上的某P0,第一次从P0向左跳一个单位长度到P1,第二次从P1向右跳2个长度单位到p2一只小鸟在数轴上的某点p.向左跳了一个单位到p1,第二次从p1向右跳了2个单位到p2,第三次向左
求助Autolisp：定义一个求三角形面积的函数.就是利用autolisp编写一个求三角形面积的二次开发.我选择任意三点,就可算出三角行的面积.
C语言编写一个程序,实现如下功能:从键盘输入一个三位数,求各位数字之和.
怎么编写“从3个数中选最大的数”java程序谢谢了,编写一个java程序,实现从3个数中选最大的.
C编程的:编写一个程序,此程序要求输入一个整数,然后打印出从输入的值到比输入的值大10的所有整数.要求在各个输入值之间用空格分开 坐等啊
编写C语言程序从n（20