[Lisp]­Vẽ mũi tên 2 chiều

[/color][color=blue][font=Courier New](defun c:sline (/ loop p1 p2)

(grtext -1 "Free from Cadviet.com @Ketxu")

(if (not asize) (setq asize 1))

(if (not PThk) (setq PThk 0.01))

(defun GETR (val msg / tm)

(setq tm (getreal (strcat msg " <" (rtos val 2 4) ">: ")))

(cond ((= (type tm) 'REAL) (eval tm))

((= tm nil) (eval val))

(t (princ "\007 *error* Nh\U+1EADp sai lo\U+1EA1i d\U+1EEF li\U+1EC7u") (eval val)) ) )

(defun loop ()

(cond ((setq p2 (getpoint p1 "\n\U+0110i\U+1EC3m ti\U+1EBFp theo : ")) (command p2)

(setq p0 p1) (setq p1 p2) (loop))

( t (command "u" (polar p1 (angle p1 p0) asize)

"w" (/ asize 3) 0.0 p1 ""))))

(setq asize (getr asize "\nK\U+00EDch th\U+01B0\U+1EDBc m\U+0169i t\U+00EAn :"))

(setq PThk (getr PThk "\n B\U+1EC1 r\U+1ED9ng PLine :"))

(setq p1 (getpoint "\n\U+0110i\U+1EC3m b\U+1EAFt \U+0111\U+1EA7u : "))

(command "pline" p1 "w" 0.0 0.0)

(setq p2 (getpoint p1 "\n\U+0110i\U+1EC3m ti\U+1EBFp theo : "))

(command "w" 0.0 (/ asize 3) (polar p1 (angle p1 p2) asize)

"w" PThk PThk p2)

(setq p1 p2)

(loop)

(eval "Done")

)[/font]