关于CAD方向轮的思路

尘缘一生

        我们在CAD操作方向，比如，移动，复制，拉伸等，都需要定个方向，从而操作结果满足要求，

       我考虑，能不能设计个《方向轮函数》，圆形的，里面带
grdraw箭头，用 grread 函数，鼠标移动象限动态箭头指示定方向，然后转到代码进行下面操作。。。

仅是个想法，这样很方便，减少击键，快速画图。。。

代码写的话，我实在是个大工程，本坛高手如云，这个不难吧？



说明：  
一： (setq p1 (nth 1 (grread 5))) 这个是初始取得
二：P2也用 grread 函数取得，四周移动       当P2位置落在图示的，1,2,3,4 范围时，取得 右，上，左，下的方向，并存与ang角度变量里。

ysq101

很牛X的样子
大神为了少按一个键也够拼了

尘缘一生

lisperado 发表于 2019-12-19 18:01
箭头?leader不就行了吗？
可否上载图片示范为何画箭头要写代码？

;;;;;;;三领-定距拉伸;;;;;;框选样式代码;;;;;;;;;;;;;;;;;;;;;;;;
;;:1:可以定点定距离
;;:2:可以任意拉伸  
;;:3:可以输入距离拉伸
;;;4:和原CAD一样，具有拖曳效果
(defun c:tt (/ pt1 pt2 ang ss oldorh oldosm)
        (sl-cishu)
        (setq pt1 (getpoint "\n第一框角点: ")
                pt2 (getcorner pt1 "\n第二框角点: ")
        )
        (prompt "\n 移动鼠标定-->拉伸方向:")
        (command "select" "c" pt1 pt2 "")
        (setq ss (ssget "p"))
        (setq pt1 (yy:mid pt1 pt2))
        (setq ang (4dire1 pt1))
        (sldis)
        (setq sldis1 (/ sl-dis (getvar "dimlfac")))
        (setq pt2 (polar pt1 ang sldis1))
        (command "_.stretch" ss "" pt1 pt2)
        (princ)
)
;;说明:;;方向轮函数=【开始】==========================(一级)==============================
;;说明:;pt1 方向轮几点    返回 ang  取得角度
(defun 4dire1 (pt1 / gr grr p1 os loop lastss)
        ;;;;;;;;生成方位图--------------------------------
        (defun entmake-fx (pt1 pt / ss1)
                (if lastss (SL:PickSet-Erase lastss))
                (slslx pt1 0)
                (setq ss1 (entlast)) ;;;;;;构造最后一个实体选择集
                (entmakeX            ;;;;;;;;;;;;;;;;;;;;;创建 LEADER 对象
                        (list '(0 . "LEADER")
                                '(100 . "AcDbEntity")
                                '(100 . "AcDbLeader")
                                '(40 . 0.9875)
                                (cons 62 1)
                                (cons 10 pt)
                                (cons 10 pt1)
                                (list -3
                                        (list "ACAD"
                                                '(1000 . "DSTYLE")
                                                '(1002 . "{")
                                                '(1070 . 41)
                                                (cons 1040 (* 5.0 SLBL));;;;;箭头大小
                                                '(1002 . "}")
                                        )
                                )
                        )
                )
                (entmake (list '(0 . "CIRCLE") (cons 62 6) (cons 6 "xx")(cons 10 pt1) (cons 40 (* SLBL 10.0))))
                (setq lastss (last_ent ss1))
        )
        (setq os (getvar "osmode"))
        (setvar "osmode" 0)
        (setq loop t)
  (while loop
                (setq grr (grread t));请求输入
                (setq gr (car grr))
                (setq p1 (cadr grr))
                (cond
                        ((= gr 5);移动时
                                (setq ang (angle pt1 p1))
                                (if (and (>= ang 0.0)(< ang (* 0.25 pi)))  ;;;向右
                                        (progn
                                                (setq pt (polar pt1 0 (* 15.0 slbl)))
                                                (setq ang 0.0)
                                        )
                                )
                                (if (>= ang 5.5) ;;;向右
                                        (progn
                                                (setq pt (polar pt1 0 (* 15.0 slbl)))
                                                (setq ang 0.0)
                                        )
                                )
                                (if (and (>= ang (* 0.25 pi))(< ang (* 0.75 pi))) ;;;;;向上
                                        (progn
                                                (setq pt (polar pt1 (* 0.5 pi) (* 15.0 slbl)))
                                                (setq ang (* 0.5 pi))
                                        )
                                )
                                (if (and (>= ang (* 0.75 pi))(< ang (* 1.25 pi))) ;;;;;向左
                                        (progn
                                                (setq pt (polar pt1 pi (* 15.0 slbl)))
                                                (setq ang pi)
                                        )
                                )
                                (if (and (>= ang (* 1.25 pi))(< ang (* 2.0 pi))) ;;;;;向下
                                        (progn
                                                (setq pt (polar pt1 (* 1.5 pi) (* 15.0 slbl)))
                                                (setq ang (* 1.5 pi))
                                        )
                                )
                                (entmake-fx pt1 pt)
                        )               
                        ((or(equal grr '(2 32));空格
                                 (equal gr 3);左键
                                 (equal grr '(2 13));回车
                                 (equal grr'(11 0));右击
                         )
                                (setq loop nil)
                        )          
                )
        )
        (if lastss (SL:PickSet-Erase lastss))
        (redraw)
        (setvar "osmode" os)
        ang
)
;;说明:;;方向轮函数===================【结束】=====================================

尘缘一生

Kye 发表于 2019-12-17 19:32
跟黄老师这个类似？http://bbs.mjtd.com/thread-109147-1-1.html

黄大师是根据鼠标位置，执行不同的操作，我意思，这个函数，就鼠标移动取得：上、下、左、右 四个方向，不执行任何操作，方向可以用ang记录下来。。

Kye

跟黄老师这个类似？http://bbs.mjtd.com/thread-109147-1-1.html

迷失1786

谢谢版主，辛苦

Kye

感觉似乎可能要用到方位角，http://bbs.mjtd.com/forum.php?mo ... =%B7%BD%CE%BB%BD%C7

mikewolf2k

实际工作中大家都会有捕捉，点击确定后可能捕捉到其它的点。如果程序开始时记录原来捕捉，然后取消捕捉操作，结束后再恢复捕捉，那么如果程序没有正常结束，就不能恢复原有捕捉了。如果实现的话，估计有不少未预计的问题。

尘缘一生

mikewolf2k 发表于 2019-12-18 09:36
实际工作中大家都会有捕捉，点击确定后可能捕捉到其它的点。如果程序开始时记录原来捕捉，然后取消捕捉操作 ...

这个问题，如果大家再不写，我等不了，只能自己写出来！

lisperado

判断夹角方向 来自晓东
determine quadrant 来自theswamp
强烈约束 来自cadtutor演示

尘缘一生

lisperado 发表于 2019-12-18 19:49
判断夹角方向 来自晓东
determine quadrant 来自theswamp
强烈约束 来自cadtutor演示

代码我看了，挺好的，无奈我改不了源码，我不要写数字，我要画箭头，我写好了一个，也实现了。

lisperado

尘缘一生 发表于 2019-12-19 09:46
代码我看了，挺好的，无奈我改不了源码，我不要写数字，我要画箭头，我写好了一个，也实现了。

箭头?leader不就行了吗？
可否上载图片示范为何画箭头要写代码？

p/s:猜测可能是block箭头块?