[编程申请]：圆粗糙度的标注

jimmy8135

小弟学习autolisp不久,遇到一习题,
要编一个有关画粗糙度的小程序,小弟百思不得解,请教...
题目要求如下:
原来有一个圆.
要求输入第一点,作为粗糙度基点,再输入第二点,作为粗糙度参考方向,比如点在圆内,则符号在内,点在圆外,符号在外.符号垂直于圆在第一点的切线方向.
感谢感谢感谢....
帮帮初学者吧!

lsjjm

REFER TO:
(defun c:test ()
  (setq p0 (getpoint "pick a Point: "))
  (setq high (* (getvar "dimscale") 0.18))
  (setq p1 (osnap p0 "near"))
  (if p1 (setq ang (angle p1 p0))(setq ang (/ pi 2) p1 p0))
  (if (or (null cvalue)(= cvalue ""))(setq cvalue "32"))
  (princ "\nInput Crudity Value <")
  (princ cvalue)
  (princ ">")
  (setq string (getstring))
  (if (or (null string)(= string ""))(setq string cvalue)(setq cvalue string))
  (mlayer "dim" "blue" "continuous")
  (vl-cmdf "pline" (polar p1 (- ang (/ pi 6))(/ high 0.3)) p1
                   (polar p1 (+ ang (/ pi 6))(/ high 0.6))
                   (Polar p1 (- ang (/ pi 6)) (/ high 0.6)) "")
  (if (and (< ang (/ (* pi 6) 7))(> ang (/ pi 6)))
    (setq d 1 p0 (polar p1 ang (/ high 0.55)))
    (setq d -1 p0 (polar p1 ang (/ high 0.35)))
  )
  (vl-cmdf "text" "j" "f" (polar p0 (+ ang (* d (/ pi 2))) high)
                          (polar p0 (- ang (* d (/ pi 2))) high) high string)
)