[求助]：怎样画箭头

PSH926

工具欄中有的，點一下就好

可怜的菜鸟

我以为用PL好！一切尽可掌握嘛！

waterdic

用pline吧 欧还习惯做成块
以后要调大小也方便

moonshrine

确实不错，坛子里有高手真好

ysf88f

我一直都是用pline画箭头，感觉还好

凉白开

结合天正画图,有些问题还是很轻松就可以解决的啊

xjlmlxbq

30楼楼主cdhua001  的方法最好用 最常用

jf162

用多线命令画，就OK了

ice.d

都可以咯..不过le比较死板,不过速度很快咯...

keedin

我觉得用PL和LE快点，不过看在什么情况下，每个人有自己习惯，方法也不一样哦···

xyp1964

发个罗嗦但巨好使的：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;画箭头
    
14. (defun c:test101 ()
    
15.   (CMDLA0)
    
16.   (setq        wide (* 200 sc)
    
17.         leng (* 500 sc)
    
18.         mode 1
    
19.   )
    
20.   (while (not (setq pt1 (getpoint "\n请输入起点 : "))))
    
21.   (while (not (setq pt2 (getpoint pt1 "\n请输入下一点 : "))))
    
22.   (grvecs (list 1 pt1 pt2))
    
23.   (command "pline" pt1)
    
24.   (while mode
    
25.     (setq pt3 (getpoint pt2 "\n请输入下一点<退出> : "))
    
26.     (if        pt3
    
27.       (progn
    
28.         (command pt2)
    
29.         (grvecs (list 1 pt2 pt3))
    
30.         (setq pt1 pt2
    
31.               pt2 pt3
    
32.         )
    
33.       )
    
34.       (setq mode nil)
    
35.     )
    
36.   )
    
37.   (setq        ang  (angle pt1 pt2)
    
38.         dist (distance pt1 pt2)
    
39.         pt0  (polar pt1 ang (- dist leng))
    
40.   )
    
41.   (command pt0)
    
42.   (command "w" wide 0 pt2)
    
43.   (command "")
    
44.   (redraw)
    
45.   (CMDLA1)
    
46. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; <br /> <br /> ;;;画箭头<br /> (defun c:test101 ()<br />   (CMDLA0)<br />   (setq        wide (* 200 sc)<br />         leng (* 500 sc)<br />         mode 1<br />   )<br />   (while (not (setq pt1 (getpoint "\n请输入起点 : "))))<br />   (while (not (setq pt2 (getpoint pt1 "\n请输入下一点 : "))))<br />   (grvecs (list 1 pt1 pt2))<br />   (command "pline" pt1)<br />   (while mode<br />     (setq pt3 (getpoint pt2 "\n请输入下一点<退出> : "))<br />     (if        pt3<br />       (progn<br />         (command pt2)<br />         (grvecs (list 1 pt2 pt3))<br />         (setq pt1 pt2<br />               pt2 pt3<br />         )<br />       )<br />       (setq mode nil)<br />     )<br />   )<br />   (setq        ang  (angle pt1 pt2)<br />         dist (distance pt1 pt2)<br />         pt0  (polar pt1 ang (- dist leng))<br />   )<br />   (command pt0)<br />   (command "w" wide 0 pt2)<br />   (command "")<br />   (redraw)<br />   (CMDLA1)<br /> )[/FONT]

darkfancy

多线段好用..也只会用这个..哈哈

fxdfy

PL 和 LE都好用！

6666298

谁说用PL画箭头不能控制箭头的长度的。。。
选择对象:
命令: pl PLINE
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: w
指定起点宽度 <0.0000>:
指定端点宽度 <0.0000>: 10

指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: @30,0

指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]: w
指定起点宽度 <10.0000>: 0
指定端点宽度 <0.0000>:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:

lujun82

强烈支持楼上，哈哈，我又学会一招，以前我学剪头都用 块，（业余的）