yang686526

[求助]如何在选择实体的时候让鼠标出现刷子一样的光标？
www.dimcax.com
[求助]如何在选择实体的时候让鼠标出现刷子一样的光标？如何在选择实体的时候让鼠标出现刷子一样的光标？
不知道lisp能不能调用？要是可以，怎么调用呢？
需要解密fas、vlx请联系本人。
d
各位看看啊。
需要解密fas、vlx请联系本人。
d
我的要选择实体的时候就看不到光标了，不知道怎么回事
d
试试
模仿的，看4楼的帖
d
以前写的比较简单的
复杂的就看前面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);控制循环结束
)
)
)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
caoyin是用画出来的，佩服佩服