- UID
- 267748
- 积分
- 1254
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2005-5-27
- 最后登录
- 1970-1-1
|
发表于 2009-4-22 18:59:43
|
显示全部楼层
For R14 ok
***AUX1
// Simple button
// if a grip is hot bring up the Grips Cursor Menu (POP 17), else send a carriage return
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,5),GRIP_),$P0=CAD.GRIPS $P0=*);
$P0=SNAP $p0=*
***AUX2
// Shift + button
//[交換位置]^C^C^P(if (consp c:exchg_pt) nil (load "exchg_pt"));exchg_pt;^P
//ID_ZoomLeft [左下]'_zoom _l;\200
[A3 Center]^C^C'zoom E 'zoom C (getvar "VIEWCTR") 300
[vv134]^C^C^P(if (consp c:vv134) nil (load "vv134"));vv134;^P
***AUX3
// Control + button
[Test ]^C^C^P(setq c:try nil) (or (load "g:/test") (load "test"))(princ);(if c:try (c:try))
[Cir_text ]^C^C^P(if (consp c:cir_text) nil (load "cir_text"))(princ);cir_text;^p
***AUX4
// Control + shift + button
//[A4 Center]^C^C'zoom E 'zoom C (getvar "VIEWCTR") 200
//[A3 Center]^C^C'zoom E 'zoom C (getvar "VIEWCTR") 300 |
|