|
怎樣用CAD畫箭頭？總結(jié)了一下，大概有四種方法：
方法一：用多義線先劃直線段,后定義線寬起點寬度(如5),終點寬度(為0),長度為10(要大于起點寬度才好看). 就行了, 不過我從來不這樣畫.
我都是拉一個直線標(biāo)注,然后用工具欄最下面的工具"分解",就把箭頭分離出來了.(如果標(biāo)注的箭頭不對,就要先到標(biāo)注樣式管理器里先設(shè)置一下箭頭的樣式)
方法二：一般而言，畫直線箭頭多用多段線（PL），先設(shè)定起點寬度為0，終點寬度為你需要的寬度即可，如1；接著點選兩點即可畫出一個箭頭，兩點間的距離為需要用到的箭頭長度；然后將這個圖形定義成塊，在標(biāo)注樣式中選擇箭頭樣式為自定義，找到剛才定義的圖塊即可，不過要注意方向，不然箭頭變成向內(nèi)了。
也可以用直充的方法畫箭頭，定義方法類似。同時注意箭頭的尺寸應(yīng)以1個圖形單位為標(biāo)準(zhǔn)單位，箭頭大小在標(biāo)注樣式中更改即可。
如果你只需用到一次，還可使用多段線，先設(shè)定起點寬度為0、終點為需要的寬度如1，接著畫一個箭頭，然后設(shè)定多段線的起點與終點都為0或你需要的寬度如0.2，緊接著點取最后一點，輸入回車完成箭頭繪制。
方法三：
在中CAD中直接畫箭頭的命令的一個方法！??！
眾所周知，在天正中可直接繪制箭頭，而在AutoCAD中不得。最近我發(fā)現(xiàn)一個在命令行直接輸入命令就可畫出你想要的尺寸的箭頭的方法，具體實施如下：
1、首先拷貝下列lisp程序，用ar為名以記事本格式保存，然后改后綴名為.lsp，作為一個lisp程序文件；程序如下：
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(if (= " " (substr msg (strlen msg) 1))
(setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
(setq msg (strcat "\n" msg ": "))
)
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)
(defun upoint (bit kwd msg def bpt / inp)
(if def
(setq pts (strcat
(rtos (car def))
","
(rtos (cadr def))
(if
(and (caddr def) (= 0 (getvar "FLATLAND")))
(strcat "," (rtos (caddr def)))
""
)
)
msg (strcat "\n" msg "<" pts ">: ")
bit (* 2 (fix (/ bit 2)))
)
(if (= " " (substr msg (strlen msg) 1))
(setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
(setq msg (strcat "\n" msg ": "))
)
)
(initget bit kwd)
(setq inp
(if bpt
(getpoint msg bpt)
(getpoint msg)
)
)
(if inp inp def)
)
(setq cm(getvar "cmdecho"))
(setvar "cmdecho" 0)
(defun C:AR ( / #dwgsc w v pt1 pt2 pt3 )
(if(= arscl nil)(setq arscl 0.1875))
(setq #dwgsc(getvar "DIMSCALE")
W(getvar "PLINEWID")
V(getvar "OSMODE")
L(getvar "CLAYER"))
(setq arscl(ureal 7 "" "請輸入箭頭長度" arscl))
(setvar "OSMODE" 1)
(setq pt1 (upoint 1 "" "指定箭頭頂點" nil nil))
(setvar "OSMODE" 512)
(setq PT(entsel "\n選擇直線上要畫箭頭一端的任意一點"))
(setq PT2(cadr PT))
(setq ED(entget(car PT)))
(setq PT3 (polar PT1 (angle PT1 PT2) (* #dwgsc arscl)))
(command "PLINE" pt1 "w" "0" (* #dwgsc (/ arscl 3)) pt3 "")
(setvar "OSMODE" V)
(setvar "CLAYER" L)
(setvar "plinewid" W)
(princ)
)
(setvar "cmdecho" cm)
(princ)
2、將ar.lsp拷貝至CAD目錄下的support目錄下；
3、在CAD目錄下的support目錄內(nèi)找到文件acad2000doc.lsp文件（CAD2002下，在別的版本CAD中可能不是這個名，這是CAD的自動加載文件）；
4、用記事本程度打開acad2000doc.lsp文件，加入一行：(load "ar.lsp")
（注意字符要為英文字符）
5、保存后，重新啟動CAD，在命令行就可輸入ar命令直接畫箭頭了。
方法四：先點“多段線”命令，給定起點后，再在命令行輸入W，這時W是“多段線”命令的一個選項，用于輸入多段線起點和終點寬度。
|
