画箭头线程序
;;;--------箭头线----------(defun c:jt (/ olderrtxt pt pt1 pt2 pt3 i ku k1)
(setq olderr*error*
*error* at_err
)
(setq oss (getvar "osmode"))
(PROMPT"\n标注内容: 1 上;2 下")
(WHILE(NOT(MEMBER(SETQ A(LAST(GRREAD)))'(49 50))))
(SETQ TXT(COND((= A 49)"上")((= A 50)"下")))
(setq pt0 (getpoint "\nPick point:"))
(if (setq pt1 pt0)
(progn (setq i 0)
(while (setq pt2 (getpoint pt1 "\nPick point:"))
(setq ku (angle pt1 pt2))
(setq k1 (+ ku pi))
(setq pt (polar pt1 k1 300))
(setvar "osmode" 0)
(setVar "OrthoMode" 1)
(if (= i 0)
(command "._text" "j" "mc" pt 350 0 txt)
(command "Donut" "0" "100" pt0 "" );画箭头线起点圆点
)
(command "line" pt1 pt2 "")
(command "")
(setq pt1 pt2
i (1+ i)
)
)
(setq pt3 (polar pt1 k1 300))
(command "Pline" pt1 "W" "0" "60" pt3 "")
)
)
(setq *error* olderr)
(setvar "osmode" oss)
(princ)
)
这是一个画箭头的程序，如何让标注“上” “下”文字在画完箭头线后进行。请高手帮忙改一下
页:
[1]