[求助]如何在选择实体的时候让鼠标出现刷子一样的光标？

cnks

如何在选择实体的时候让鼠标出现刷子一样的光标？
不知道lisp能不能调用？要是可以，怎么调用呢？

cnks

各位看看啊。

kai295701917

我的要选择实体的时候就看不到光标了，不知道怎么回事

caoyin

试试

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72404

模仿的，看4楼的帖

nonsmall

以前写的比较简单的

复杂的就看前面caoyin大哥的了

(defun c:test( / cyc long pt_base pt1 pt11 pt12 pt2 pt21 pt22 pt3 pt4 pt5 pt6 pt7 pt8 tmp view_high)
  (setq cyc T);循环控制
  (while cyc
    (setq tmp (grread T 15 1));这里的"1"可以改变光标
           ;0 显示普通十字光标。
           ;1 不显示光标(无十字光标)
           ;2 显示对象选择光标
    (redraw);更新当前界面
    (if (= 5 (car tmp))
      (progn
        ;这部分的点可以自己绘制
        ;绘制圆和弧用直线逼近生成
        (setq pt_base (cadr tmp))
        (setq view_high(getvar "VIEWSIZE"));当前视窗高度
        (setq long (/ view_high 20.))
        (setq pt1 (polar pt_base (* 0.5 pi) long))
        (setq pt11(polar pt1 pi (* 0.5 long)))
        (setq pt12(polar pt1 0 (* 0.5 long)))
        (setq pt2 (polar pt_base (* 1.5 pi) long))
        (setq pt21(polar pt2 pi (* 0.5 long)))
        (setq pt22(polar pt2 0 (* 0.5 long)))
        
        (setq pt3 (polar pt_base (* 0.1 pi) long))
        (setq pt4 (polar pt3 (* 1.75 pi) (* 0.5 long)))
        (setq pt5 (polar pt3 (* 1.25 pi) long))
        (setq pt6 (polar pt5 (* 1.75 pi) (* 0.5 long)))
        (setq pt7 (polar pt3 (* 1.75 pi) (* 0.25 long)))
        (setq pt8 (polar pt7 (* 0.25 pi) (* 0.5 long)))
        
        (grdraw pt1 pt2 3);参数"3"控制颜色
        (grdraw pt1 pt11 3)
        (grdraw pt1 pt12 3)
        (grdraw pt22 pt2 3)
        (grdraw pt21 pt2 3)
        
        (grdraw pt3 pt4 2)
        (grdraw pt3 pt5 2)
        (grdraw pt5 pt6 2)
        (grdraw pt4 pt6 2)
        (grdraw pt7 pt8 2)
      )
      (progn
        (redraw);去除残留图像
        (setq cyc nil);控制循环结束
      )
    )
  )
)

27012701

caoyin是用画出来的，佩服佩服