lisp画弯箭头_在CAD中直接画箭头的命令的一个方法

在CAD中直接画箭头的命令的一个方法！！！

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

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

(defun ureal (bit kwd msg def / inp)

(if def

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

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) (=