坐标标注

ashleytgg

参照tjuzkj 的帖子 http://bbs.mjtd.com/thread-91313-1-1.html ， 写了个坐标标注的函数。觉得好玩，所以发下，有兴趣的话可以看下

；；引用自绘制太阳花  
(defun AT:Arrow        (#Location #Angle / #Size #Point1 #Point2 #Point3)
  ;; Display directional arrow
  ;; #Location - arrow placement point
  ;; #Angle - arrow directional angle
  ;; Alan J. Thompson, 04.28.09
  (setq        #Size        (* (getvar "viewsize") 0.02)
        #Point1        (polar #Location #Angle #Size)
        #Point2        (polar #Location (+ #Angle (* pi 0.85)) #Size)
        #Point3        (polar #Location (+ #Angle (* pi 1.15)) #Size)
  )
  (grvecs
    (list 4 #Point1 #Point2 #Point2 #Point3 #Point3 #Point1)
  )
  #Location
)
;; ( AT:Arrow #Location #Angle )   

LIULISHENG

必须要支持

ashleytgg

发个图片发个图片看看

qyming

好。。。。。。。。。。

寒潮大冬瓜

大侠很棒！坐标标注要素搞成类似天正的那样属性块，就更方便！