jaminth 发表于 2007-12-2 16:03:00

[求助]如何利用CAD的十字光标?

<p>下面是CAD的十字光标，在填充工具按下"继承特性"按扭后出错的"鼠标形状"，有什么办法可以在设计dcl的按扭时，也能出现这样的鼠标形状？</p><p></p>

jaminth 发表于 2007-12-4 18:36:00

ZZXXQQ/或各位版主,能不能帮帮忙!!!

lyq2004 发表于 2007-12-5 15:02:00

dcl里不能实现

ZZXXQQ 发表于 2007-12-5 16:26:00



(DEFUN C:DD1 ()
(IF (> (SETQ DCL_ID (LOAD_DIALOG "DD1")) 0) (PROGN
(IF (NEW_DIALOG "dd1" DCL_ID) (PROGN
(DRAWIMAGE)
(ACTION_TILE "accept" "(DONE_DIALOG 1)")
(ACTION_TILE "cancel" "(DONE_DIALOG 0)")
(SETQ RE (START_DIALOG))
))
(UNLOAD_DIALOG DCL_ID)
))
(PRINC)
)
(DEFUN DRAWIMAGE ()
(SETQ X (DIMX_TILE "kimage1")
      Y (DIMY_TILE "kimage1"))
(START_IMAGE "kimage1")
(VECTOR_IMAGE 7 7 7 15 3)
(VECTOR_IMAGE 7 15 15 15 3)
(VECTOR_IMAGE 15 15 15 7 3)
(VECTOR_IMAGE 15 7 7 7 3)
(VECTOR_IMAGE 17 26 21 22 3)
(VECTOR_IMAGE 21 22 25 22 3)
(VECTOR_IMAGE 25 22 21 26 3)
(VECTOR_IMAGE 20 26 24 22 3)
(VECTOR_IMAGE 24 22 27 16 3)
(VECTOR_IMAGE 27 16 25 16 3)
(VECTOR_IMAGE 25 16 22 22 3)
(VECTOR_IMAGE 22 22 18 26 3)
(VECTOR_IMAGE 19 26 23 22 3)
(END_IMAGE)
)

dd1:dialog{label="常用工具";
:boxed_row{label="绘图";
:image_button{
key ="kimage1";
color = -2;
width = 6;
aspect_ratio = 1;
allow_accept = true;}
cancel_button;
}}

jaminth 发表于 2007-12-5 18:52:00

谢谢!不过.......

hyccai 发表于 2007-12-8 19:39:00

<p>收下！！</p>

依然低调 发表于 2012-5-20 16:29:31

十字光标即时点 很需要,想实现动态选择1:1打印范围
页: [1]
查看完整版本: [求助]如何利用CAD的十字光标?