分配Tog的组合键

Deby Ferdian · 发表于 2022-7-5 17:53:46

分配切换OSMODE和3DOSMODE开/关的组合键。可能吗？？？

不仅将其分配给“F3”和“F4”，还将其分配给CTRL+F作为OSMODE开/关，CTRL+SHIFT+F作为3DOSMODE开/关。谁能帮帮我？？？

Grrr · 发表于 2022-7-5 17:58:57

你好
我知道，使用lisp可以将这些切换指定为commad定义。
但是我不知道如何分配这些与您需要的快捷方式相同的命令（我在您的示例中讨论的是组合键）。

David Bethel · 发表于 2022-7-5 18:02:45

因为我使用的一些版本在windows和一些键盘之间没有很好的界面，所以我将其用作sysvar切换。


[color=#8b4513];;;TOGGLE SYSVARS[/color]
[b][color=BLACK]([/color][/b]defun c:tg [b][color=FUCHSIA]([/color][/b]/ v[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while
  [b][color=NAVY]([/color][/b]or
    [b][color=MAROON]([/color][/b]initget [color=#2f4f4f]"Blipmode Cmddia Gridmode Highlight splFrame Orthomode Tilemode Snapmode"[/color][b][color=MAROON])[/color][/b]
    [b][color=MAROON]([/color][/b]setq v [b][color=GREEN]([/color][/b]getkword [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"\nToggle - "[/color]
                              [color=#2f4f4f]"Blipmode"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"BLIPMODE"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/Cmddia"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"CMDDIA"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/Gridmode"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"GRIDMODE"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/Highlight"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"HIGHLIGHT"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/splFrame"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"SPLFRAME"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/Orthomode"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"ORTHOMODE"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]"/Tilemode"[/color]
                              [color=#2f4f4f]"/Snapmode"[/color]
                              [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]= [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"SNAPMODE"[/color][b][color=TEAL])[/color][/b] 1[b][color=PURPLE])[/color][/b] [color=#2f4f4f]"^"[/color] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b]
                              [color=#2f4f4f]":   "[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  [b][color=NAVY]([/color][/b]setvar v [b][color=MAROON]([/color][/b]- 1 [b][color=GREEN]([/color][/b]getvar v[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  [b][color=NAVY]([/color][/b]princ v[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

crtl+ascii字符通常有效，功能键被击中或未击中，即切换snapmode

您可能可以将其修改为使用0/1位值的任何sysvar

-大卫

Deby Ferdian · 发表于 2022-7-5 18:06:15

AhrrrhgHgrk'K'。。。我一点也不能尝试arround，因为你给我的建议是，我目前的问题已经解决了，还没有解决。这是一个重要的问题，应该首先解决的优先情况，现在在我的帖子在另一个页面在同一个论坛。给你，http://www.cadtutor.net/forum/showthread.php?96115-I-get-an-error-when-I-try-to-convert-the-solid-object-to-quot-NURB-quot

再见，谢谢你的建议，我很快就会给你答复。我真的非常感谢你们，很抱歉我说的话不够好。。。

Deby Ferdian · 发表于 2022-7-5 18:07:33

嗨，大卫·贝瑟尔！这是很好的Lisp程序非常好！但是我在“Snapmode”的下一个代码下面插入“osMode&3Dosmode”代码时失败了。这是我的！

copy


(defun c:3SS (/ v)
 (while
  (or
    (initget "Blipmode Cmddia Gridmode Highlight splFrame Orthomode Tilemode Snapmode [b][color=red]osMode 3Dosmode[/color][/b]")
    (setq v (getkword (strcat "\nToggle - "
                              "Blipmode"
                              (if (= (getvar "BLIPMODE") 1) "^" "")
                              "/Cmddia"
                              (if (= (getvar "CMDDIA") 1) "^" "")
                              "/Gridmode"
                              (if (= (getvar "GRIDMODE") 1) "^" "")
                              "/Highlight"
                              (if (= (getvar "HIGHLIGHT") 1) "^" "")
                              "/splFrame"
                              (if (= (getvar "SPLFRAME") 1) "^" "")
                              "/Orthomode"
                              (if (= (getvar "ORTHOMODE") 1) "^" "")
                              "/Tilemode"
                              "/Snapmode"
                              (if (= (getvar "SNAPMODE") 1) "^" "")[b][color=red]
                              "/osMode"
                              (if (= (getvar "OSMODE") 1) "^" "")
                              "/3Dosmode"
                              (if (= (getvar "3DOSMODE") 1) "^" "")[/color][/b]
                              ":   "))))
  (setvar v (- 1 (getvar v)))
  (princ v))
(prin1))

Grrr · 发表于 2022-7-5 18:10:07

好的，试试这个：

copy


(defun c:test (/ )
 (if (not *ans*) (setq *ans* "osmode"))
 (initget "osmode 3dosmode")
 (setq *ans* (cond ( (getkword (strcat "\nToggle [osmode/3dosmode] <" *ans* ">: "))) ( *ans* )))
 (cond
  ((= *ans* "osmode")
     (if (= (getvar 'osmode ) 0)
     (progn
     (setvar "osmode" 15359)
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "osmode") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "osmode" 0)
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "osmode") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )
  ((= *ans* "3dosmode")
     (if (= (getvar '3dosmode ) 0)
     (progn
     (setvar "3dosmode" 1022)
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "3dosmode") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "3dosmode" 0)
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "3dosmode") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )
 );cond
 (princ)
);defun

调整osmode和的15359值
3dosmode的1022值可满足您的需求。

David Bethel · 发表于 2022-7-5 18:14:09

正如Grrr所指出的，这两个系统变量不是基于0/1的值。因此，它们不能简单地切换开/关。

-大卫

Deby Ferdian · 发表于 2022-7-5 18:16:43

哇@Grr。。。这是一个很棒的代码，但是当我的代码构建修改失败时，你能帮我@Grr？

copy


(defun c:[color=red][b]TGG[/b][/color] (/ )
 (if (not *ans*) (setq *ans* "osmode"))
 (initget "Osmode 3dosmode [b][color=red]Lwdisplay[/color][/b]")
 (setq *ans* (cond ( (getkword (strcat "\nToggle [Osmode/3dosmode[b][color=red]/Lwdisplay[/color][/b]] <" *ans* ">: "))) ( *ans* )))
 (cond
  ((= *ans* "osmode")
     (if (= (getvar 'osmode ) 0)
     (progn
     (setvar "osmode" [color=red][b]8367[/b][/color])
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "osmode") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "osmode" [b][color=red]24751[/color][/b])
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "osmode") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )
  ((= *ans* "3dosmode")
     (if (= (getvar '3dosmode ) 0)
     (progn
     (setvar "3dosmode" [b][color=red]62[/color][/b])
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "3dosmode") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "3dosmode" [color=red][b]63[/b][/color])
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "3dosmode") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )[color=red][b]
  ((= *ans* "LWDISPLAY")
     (if (= (getvar 'LWDISPLAY ) 0)
     (progn
     (setvar "LWDISPLAY" ON)
     (princ (strcat "\nLWDISPLAY is set to "" (rtos(getvar "LWDISPLAY") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "LWDISPLAY" OFF)
     (princ (strcat "\nLWDISPLAY is set to "" (rtos(getvar "LWDISPLAY") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )[/b][/color]
 );cond
 (princ)
);defun

在红线中，颜色由我修改，它不起作用。。

再次提前感谢！

marko_ribar · 发表于 2022-7-5 18:19:49

至于您在initget中的输入：Lwdisplay

您必须在cond语句中提供足够的字符串：
[更改：
（=*ans*“LWDISPLAY”）
...
]
[为此：
（=*ans*“Lwdisplay”）
...
]

[编辑：引用相同内容，对于“Osmode”-将（（=*ans*“Osmode”）…）更改为（（=*ans*“Osmode”）…）]
[编辑2：这一行：（if（not*ans*）（setq*ans*“osmode”）），应该是：（if（not*ans*）（setq*ans*“osmode”））]

Deby Ferdian · 发表于 2022-7-5 18:22:25

它仍然不起作用@marko_ribar！我哪里有错？这是我尝试应用你所说的。。。

copy


(defun c:TGG (/ )
 (if (not *ans*) (setq *ans* "[color=red][b]Osmode[/b][/color]"))
 (initget "[b][color=red]Osmode 3dosmode Lwdisplay[/color][/b]")
 (setq *ans* (cond ( (getkword (strcat "\nToggle [[color=red][b]Osmode[/b][/color]/[color=red][b]3dosmode[/b][/color]/[color=red][b]Lwdisplay[/b][/color]] <" *ans* ">: "))) ( *ans* )))
 (cond
  ((= *ans* "[color=red][b]Osmode[/b][/color]")
     (if (= (getvar '[color=red][b]Osmode [/b][/color]) 0)
     (progn
     (setvar "[color=red][b]Osmode[/b][/color]" [color=red][b]8367[/b][/color])
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "[color=red][b]Osmode[/b][/color]") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "[color=red][b]Osmode[/b][/color]" [b][color=red]24751[/color][/b])
     (princ (strcat "\nOSMODE is set to "" (rtos(getvar "[color=red][b]Osmode[/b][/color]") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )
  ((= *ans* "[color=red][b]3dosmode[/b][/color]")
     (if (= (getvar '[b][color=red]3dosmode [/color][/b]) 0)
     (progn
     (setvar "[color=red][b]3dosmode[/b][/color]" [color=red][b]62[/b][/color])
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "[b][color=red]3dosmode[/color][/b]") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "[b][color=red]3dosmode[/color][/b]" [color=red][b]63[/b][/color])
     (princ (strcat "\n3D-osmode is set to "" (rtos(getvar "[b][color=red]3dosmode[/color][/b]") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )[b][color=dimgray]
  ((= *ans* "[color=red]Lwdisplay[/color]")
     (if (= (getvar '[color=red]Lwdisplay [/color]) 0)
     (progn
     (setvar "[/color][/b][b][color=dimgray][b][color=dimgray][color=red]Lwdisplay[/color][/color][/b]" [color=red]ON[/color])
     (princ (strcat "\nLWDISPLAY is set to "" (rtos(getvar "[color=red]Lwdisplay[/color]") 2 0) "" (ON)"  ))
     );progn true
     (progn
     (setvar "[/color][/b][b][color=dimgray][b][color=dimgray][color=red]Lwdisplay[/color][/color][/b]" [color=red]OFF[/color])
     (princ (strcat "\nLWDISPLAY is set to "" (rtos(getvar "[color=red]Lwdisplay[/color]") 2 0) "" (OFF)"  ))
     );progn false
     );if
   )
 );cond
 (princ)
);defun[/color][/b]

[编程交流] 分配Tog的组合键

发表回复

精选推荐