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

坐标标注

本帖最后由 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:12

必须要支持

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

发个图片发个图片看看

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

好。。。。。。。。。。

寒潮大冬瓜 发表于 2024-5-18 21:10:12

大侠很棒！坐标标注要素搞成类似天正的那样属性块，就更方便！
页: [1]
查看完整版本: 坐标标注