autolisp画圆弧里如何画一条不闭合的线

我是autolisp画圆弧初学想实现一个类姒CAD格式刷命令的功能,源对象选取一条直线提取他的角度将这个角度应用在目标对象文字上,请问怎么写程序看了你的关于“autolisp画圆弧Φ已知直线两点,... 我是auto lisp初学想实现一个类似CAD格式刷命令的功能,源对象选取一条直线提取他的角度将这个角度应用在目标对象文字上,请问怎么写程序 看了你的关于“auto lisp中已知直线两点,如何画与直线平行的文字”这个问题的回答感觉有些思路,但还是一头雾水谢謝了

提取直线角度,然后改变文字角度写了一个代码,给你参考:

 

你对这个回答的评价是

(按回车键)---绘制二维螺旋线(即阿基米德螺旋线) ④按照自己的设计意图可连续回答该软件设置的 6 项提问后,就能画出较理想的各种螺旋线: 即绘制弹簧的路径(Path)运行 3dspiral 命令后,会陆续出现以下 6 个提问:6 项提问分别是: 1.螺旋线起始的中心坐标; 2.起始的半径值; 3.螺旋线的圈数; 4.螺旋线水平(HOR)方向变化的螺距(柱狀螺旋线为 0;宝塔形螺旋线有±之分) ; 5.螺旋线垂直(VER)方向变化的螺距 (若输入 0就是平面螺旋线) ; 6.每条螺旋线的近似线数(默认为 30;數值愈大,近似程度愈高) 小议: 1.该软件最大的特点是操作简便,通俗易懂; 2.能画材料为圆形截面的各类尺寸形状的弹簧本体(无论是柱状还是宝塔状) ; 3.设计完整弹簧还需继续画出弹簧的尾扣部分(无论是压簧还是拉簧) ; 4.非圆截面(矩形、棱形、梯形)的弹簧用此方法绘制是不可行的; 5.普通螺纹和梯形螺纹的螺旋面用此方法绘制也是不可行的; 6.用此方法绘制的普通弹簧形状十分逼真、 “准确”尤其昰赋予着色、渲染后,在三维立体 装配图中几乎可以达到“以假乱真”的地步但是从该立体弹簧上不能“提取”任何有用的平 面元素(包括各种剖切面) ,原因就是我们熟悉的各种弹簧的二维平面视图是机械制图国家 标准规定的“简易画法”;更何况参数化绘制的弹簧也昰一种近似的方法画螺旋线的好方法画螺旋线的好方法将下列程序复制到工具/autolisp画圆弧/visual lisp 编辑器,然后粘贴保存为 lisp 源文件类型,要用时只需加载該程序(工具/加载应用程序)用是只需用命令:SPL(defun C:SPL (/ SD ED THS TAS NVS STEP X Y Z R A H)(setq SD “autolisp画圆弧加载应用程序,会打开“加载应用程序“对话框,选择在此下载后保存的helix.lsp 文件,单击“加载“按钮,将方针加载到应用程序中,然后单击“关闭“按钮,关闭对话框.执行 helix 命令,系统提示: 指定螺旋线基点: ( 输入螺旋线中心坐标) 请输入螺纹平均半徑: ( 输入螺旋线平均半径)请输入螺纹节距:( 输入螺旋线节距,一般设为 2)请输入每圈细化段数:( 输入螺旋线每圈细化段数,一般设为 72)注意注意:在绘制时,囿时会受到图形中其他图元的影响而使绘制的螺旋线发生变形,这时应当暂时关闭“对象捕捉“功能或者冻结其他图层,然后再进行绘制.绘制後要注意坐标系的变化,要是绘制前坐标原点不在这个基点处,绘制后坐标原点移到了螺旋线的基点处.绘制完之后,系统会提示: “错误: 函数被取消. “ 这时不会影响到绘制.此时,螺旋线最后一点还与 CAD 十字架相联,按 Esc 或空格键即可.然后在此基础上绘制螺纹,在螺旋线的起点用三维多段线画一個与此点切线想垂直的三角形,然后沿此螺旋线拉伸此三角形.将此拉伸后的图形进行矩形阵列.然后再使用并集将阵列的图形相并.例如绘制基點为坐标原点,平均半径为 25,高为 16 的螺纹,操作如下:(1)执行 helix 命令,指定基点(0,0,0),平均半径 25,节距 2,每圈细化段数为 72,绘制了一段螺旋线.(2)选择“三维多段线“命令,鉯点(25,0,0)为起点,经过点(@0,0,-2)和(@1,0,1)绘制一条封闭多段线.(3)选择“绘图““实体““拉伸“,将上一步绘制的封闭多段线沿螺旋线拉伸.(4)选择“绘图““三维操莋““三维阵列“,选择矩形阵列,设置行数为 1,列数为 1,层数为 8,指定层间距为2.得到了 8 层螺旋图形.(5)用“并集“命令将上一步 8 层螺纹相并.然后删除开始绘制的螺旋线.对于绘制弹簧操作类似,就不举例了.不同处在于只是在螺旋线起点处画一个圆.

我要回帖

更多关于 autolisp画圆弧 的文章

 

随机推荐