lisp画弯箭头_AutoCAD中怎么画箭头 CAD画箭头的方法

看到网上很多人不知道CAD怎么画箭头的方法，AutoCAD中怎么画箭头？其实在CAD中绘制箭头的方法很多，CAD培训的老师就自己常用的方法说说吧：

1.如果你要标注的话,系统会自动画出箭头,如果想改变箭头的大小可以在-------修改----箭头文字----箭头大小.可以根据你图纸的大小选择,总体上是比例均匀美观.

2.多段线画法:点击---左侧工具栏中的----多段线按钮----指定起始点-----在命令行中输入"W"回车----输入起始点宽度(例如是5)-----输入端点宽度(不出意外应该是(0))因为你画是箭头---根据你的需要选刚箭头的长度.

注意:如果是一个直线接一个箭头可以第一段起始点和端点的宽度一样,第二段按上面的操作.

3.填充画法：可以画一个箭头的外型。点击----绘图----图案填充----选择一个你需要的图案---添加,拾取点---选择你箭头的三角--完成.

4、CAD中没有箭头库，除非用其它软件绘制出来在复制，给大家推荐一个小的CAD软件《大雄CAD》，可以弥补CAD的不足(这些东西晓东工具里也应该有的)；

5、利用WINDOWS自带的字体库，在CAD中执行MTEXT,在出来的对话框中选择字体为WINGDINGS3，输入12345。。。。选择自己需要的箭头，不过形状有限；

6、自绘箭头，可以利用多段线，设置起始和末尾宽度即可。

7、还有一个就是可以直接画箭头的方法：众所周知，在天正中可直接绘制箭头，而在AutoCAD中不得。最近我发现一个在命令行直接输入命令就可画出你想要的尺寸的箭头的方法，具体实施如下：

1、首先拷贝下列lisp程序，用ar为名以记事本格式保存，然后改后缀名为.lsp，作为一个lisp程序文件；程序如下：

(defunureal(bitkwdmsgdef/inp)

(ifdef

(setqmsg(strcat"\n"msg":")

bit(*2(fix(/bit2)))

)

(if(=""(substrmsg(strlenmsg)1))

(setqmsg(strcat"\n"(substrmsg1(1-(strlenmsg)))":"))

(setqmsg(strcat"\n"msg":"))

)

)

(initgetbitkwd)

(setqinp(getrealmsg))

(ifinpinpdef)

)

(defunupoint(bitkwdmsgdefbpt/inp)

(ifdef

(setqpts(strcat

(rtos(cardef))

","

(rtos(cadrdef))

(if

(and(caddrdef)(=0(getvar"FLATLAND")))

(strcat","(rtos(caddrdef)))

""

)

)

msg(strcat"\n"msg":")

bit(*2(fix(/bit2)))

)

(if(=""(substrmsg(strlenmsg)1))

(setqmsg(strcat"\n"(substrmsg1(1-(strlenmsg)))":"))

(setqmsg(strcat"\n"msg":"))

)

)

(initgetbitkwd)

(setqinp

(ifbpt

(getpointmsgbpt)

(getpointmsg)

)

)

(ifinpinpdef)

)

(setqcm(getvar"cmdecho"))

(setvar"cmdecho"0)

(defunC:AR(/#dwgscwvpt1pt2pt3)

(if(=arsclnil)(setqarscl0.1875))

(setq#dwgsc(getvar"DIMSCALE")

W(getvar"PLINEWID")

V(getvar"OSMODE")

L(getvar"CLAYER"))

(setqarscl(ureal7"""请输入箭头长度"arscl))

(setvar"OSMODE"1)

(setqpt1(upoint1"""指定箭头顶点"nilnil))

(setvar"OSMODE"512)

(setqPT(entsel"\n选择直线上要画箭头一端的任意一点"))

(setqPT2(cadrPT))

(setqED(entget(carPT)))

(setqPT3(polarPT1(anglePT1PT2)(*#dwgscarscl)))

(command"PLINE"pt1"w""0"(*#dwgsc(/arscl3))pt3"")

(setvar"OSMODE"V)

(setvar"CLAYER"L)

(setvar"plinewid"W)

(princ)

)

(setvar"cmdecho"cm)

(princ)

2、将ar.lsp拷贝至CAD目录下的support目录下；

3、在CAD目录下的support目录内找到文件acad2000doc.lsp文件(CAD2002下，在别的版本CAD中可能不是这个名，这是CAD的自动加载文件)；

4、用记事本程度打开acad2000doc.lsp文件，加入一行：(load"ar.lsp")

这是CAD培训的老师常用的几种方法供大家参考。