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

　　2、将ar.lsp拷贝至CAD目次下的support目次下;

　　(setvar "cmdecho" 0)

　　(setq msg (strcat " " (substr msg 1 (1- (strlen msg))) ": "))

　　(if bpt

　　(and (caddr def) (= 0 (getvar "FLATLAND")))

　　众所周知，在天正中可直接绘制箭头，而在AutoCAD中不得。最近我发明一个在呼吁行直接输入呼吁就可画出你想要的尺寸的箭头的要领，天圆液压缸筒，详细实验如下：

　　(if inp inp def)

　　5、生涯后，从头启动CAD，在呼吁行就可输入ar呼吁直接画箭头了。

　　(if(= arscl nil)(setq arscl 0.1875))

　　(setq msg (strcat " " msg ": "))

　　)

　　","

　　4、用记事本水平打开acad2000doc.lsp文件，插手一行：(load "ar.lsp")

　　(if (= " " (substr msg (strlen msg) 1))

　　)

　　(setq PT2(cadr PT))

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

　　(setq #dwgsc(getvar "DIMSCALE")

　　(strcat "," (rtos (caddr def)))

　　(setvar "plinewid" W)

　　L(getvar "CLAYER"))

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

　　(initget bit kwd)

　　)

　　(setq inp

　　msg (strcat " " msg "<" pts ">: ")

　　(留意字符要为英笔墨符)

　　(setq cm(getvar "cmdecho"))

　　(setq PT3 (polar PT1 (angle PT1 PT2) (* #dwgsc arscl)))

　　(if (= " " (substr msg (strlen msg) 1))

　　(if inp inp def)

　　(setq PT(entsel " 选择直线上要画箭头一端的恣意一点"))

　　V(getvar "OSMODE")

　　3、在CAD目次下的support目次内找到文件acad2000doc.lsp文件(CAD2002下，在此外版本CAD中也许不是这个名，这是CAD的自动加载文件);

　　(setq pt1 (upoint 1 "" "指定箭头极点" nil nil))

　　)

　　)

　　在中CAD中直接画箭头的呼吁的一个要领!!!

　　(if def

　　(defun upoint (bit kwd msg def bpt / inp)

　　(defun ureal (bit kwd msg def / inp)

　　(setq msg (strcat " " (substr msg 1 (1- (strlen msg))) ": "))

　　(if def

　　(princ)

　　(rtos (car def))

　　(setvar "OSMODE" V)

　　)

　　(setq pts (strcat

　　(defun C:AR ( / #dwgsc w v pt1 pt2 pt3 )

　　)

　　(setq ED(entget(car PT)))

　　1、起首拷贝下列lisp措施，用ar为名以记事本名目生涯，然后改后缀名为.lsp，作为一个lisp措施文件;措施如下：

　　(setvar "cmdecho" cm)

　　)

　　)

　　(getpoint msg bpt)

　　)

　　)

　　(setq msg (strcat " " msg "<" (rtos def) ">: ")

　　)

　　(getpoint msg)

　　(rtos (cadr def))

　　(setvar "CLAYER" L)

　　(if

　　(initget bit kwd)

　　W(getvar "PLINEWID")

　　(setq arscl(ureal 7 "" "请输入箭头长度" arscl))

　　)

　　(princ)

　　(setvar "OSMODE" 512)

　　""

　　(setq msg (strcat " " msg ": "))

　　(setq inp (getreal msg))

　　(setvar "OSMODE" 1)