坐标标注

ashleytgg · 发表于 2016-5-26 00:14

本帖最后由 ashleytgg 于 2016-5-26 00:13 编辑

参照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 · 发表于 2016-5-26 08:06

必须要支持

ashleytgg · 发表于 2016-5-29 20:20

发个图片发个图片看看

qyming · 发表于 2018-9-14 16:01

好。。。。。。。。。。

账号		自动登录	找回密码
密码			注册

[测绘] 坐标标注

本帖子中包含更多资源

本帖子中包含更多资源