乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 62|回复： 19

[编程交流] 做我自己的选择。

[复制链接]
Kenter

11

主题

40

帖子

29

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 10:37:35 | 显示全部楼层 |阅读模式
****代码需要一个名为note的层，该层已经生成****
 
我要做的是以AutoCAD使用其自己的comman选项的方式显示选项，例如在text命令中：
 
[Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]：
 
可以做类似的事情。优点是用户可以看到选项，从而减少了错误。是否也可以设置助记符快捷方式（如上述本机命令中的大写字母、A、F、C、M、R等），并且用户可以通过键入（仅）助记符字符来指示选择。任何提示都会有帮助。提前谢谢。
 
这是我的程序，我希望它做的是，而不是键入什么材料将被使用，用户可以选择，它将自动输入，而不是键入。
 
例如：
 
命令：tef
..布料
[黄铜/钢/冷冲压…等]
（注意：如果您选择Brass，它将在“material=”旁边放置“BR-60-40-Muntz”）
 
肯特
TEF良好。lsp
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 10:41:25 | 显示全部楼层
如。
  1. (initget 0 "Pizza Burger fiSh")
  2. (getkword "\nWhat would you like? [Pizza/Burger/fiSh]: ")
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 10:46:35 | 显示全部楼层
 
检查
选项关键字无效。无支票：哭泣：
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 10:47:41 | 显示全部楼层
 
你忘了在Lisp中重新设置旧的OSMODE和CLAYER。
  2. (setq cl (getvar "CLAYER"))
  3.      (setvar "CLAYER" "NOTE")
  4.      (setq cs (GETVAR "OSMODE"))
  5.      (setvar "OSMODE" 0)
  6. ....... your codes running...
  7. .........
  9. [color="red"](setvar "osmode" cs)
  10. (setvar "clayer" cl)[/color]

 
我认为艾伦所说的话足以让你更新密码。。。。。。
 
当做
 
塔瓦特
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 10:51:18 | 显示全部楼层
这里有一个完整的例子来回答你的问题。。。。。。必须满足
  3.    (initget 0 "Brass Steel ColdRolled")
  4. (setq a (getkword "\n Specify the Material [brass/Steel/ColdRolled]: "))
  5. (command "text" "J" "C" pause "0.187" "0" (strcat "Material =" a))

 
当做
 
塔瓦特
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:54:27 | 显示全部楼层
这可能是我编写您的程序的方式：
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:tef [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] *error* LM:lst->str LM:Text mLst [b][color=RED])[/color][/b]
  3.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  5.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b] msg [b][color=RED])[/color][/b]
  6.    [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] msg[b][color=RED])[/color][/b] [b][color=#a52a2a]"*BREAK,*CANCEL*,*EXIT*"[/color][/b][b][color=RED])[/color][/b]
  7.        [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\n** Error: "[/color][/b] msg [b][color=#a52a2a]" **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  8.    [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  9.  [b][color=RED])[/color][/b]
  11.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:lst->str [b][color=RED]([/color][/b] lst del [b][color=RED])[/color][/b]
  12.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] lst[b][color=RED])[/color][/b]
  13.      [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] lst[b][color=RED])[/color][/b] del [b][color=RED]([/color][/b]LM:lst->str [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] lst[b][color=RED])[/color][/b] del[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  14.      [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] lst[b][color=RED])[/color][/b]
  15.    [b][color=RED])[/color][/b]
  16.  [b][color=RED])[/color][/b]
  18.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:Text [b][color=RED]([/color][/b] pt hgt str lay [b][color=RED])[/color][/b]
  19.    [b][color=RED]([/color][/b][b][color=BLUE]entmakex[/color][/b]
  20.      [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  21.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#a52a2a]"TEXT"[/color][/b][b][color=RED])[/color][/b]
  22.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b]  lay[b][color=RED])[/color][/b]
  23.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b]  pt[b][color=RED])[/color][/b]
  24.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] hgt[b][color=RED])[/color][/b]
  25.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b]  str[b][color=RED])[/color][/b]
  26.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]TEXTSTYLE[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  27.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  28.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
  29.        [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b]  pt[b][color=RED])[/color][/b]
  30.      [b][color=RED])[/color][/b]
  31.    [b][color=RED])[/color][/b]
  32.  [b][color=RED])[/color][/b]
  34.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] mLst [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"Brass"[/color][/b]      . [b][color=#a52a2a]"BR-60-40-Muntz"[/color][/b][b][color=RED])[/color][/b]
  35.               [b][color=RED]([/color][/b][b][color=#a52a2a]"Steel"[/color][/b]      . [b][color=#a52a2a]"ST-60-40-Muntz"[/color][/b][b][color=RED])[/color][/b]
  36.               [b][color=RED]([/color][/b][b][color=#a52a2a]"Coldrolled"[/color][/b] . [b][color=#a52a2a]"CR-60-40-Muntz"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  38.  [b][color=RED]([/color][/b]
  39.    [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] i [b][color=BLUE]/[/color][/b] p [b][color=RED])[/color][/b]
  40.      [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#a52a2a]"\nSpecify Point <Exit> : "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  41.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] p [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  42.        
  43.        [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
  44.          [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  45.            [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] string offset [b][color=RED])[/color][/b]
  46.              [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]""[/color][/b] string[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  47.                [b][color=RED]([/color][/b]LM:Text [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] p[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] p[b][color=RED])[/color][/b] offset[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#009999]0.187[/color][/b] string [b][color=#a52a2a]"NOTE"[/color][/b][b][color=RED])[/color][/b]
  48.              [b][color=RED])[/color][/b]
  49.            [b][color=RED])[/color][/b]
  50.          [b][color=RED])[/color][/b]
  51.          [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  52.            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"Quantity="[/color][/b]
  53.              [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b]
  54.                [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *qty*
  55.                  [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  56.                    [b][color=RED]([/color][/b]
  57.                      [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]4[/color][/b][b][color=RED])[/color][/b]                
  58.                        [b][color=RED]([/color][/b][b][color=BLUE]getint[/color][/b]
  59.                          [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\nSpecify Quantity <"[/color][/b]
  60.                            [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b]
  61.                              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *qty*
  62.                                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b] *qty* [b][color=RED])[/color][/b] [b][color=RED]([/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  63.                              [b][color=RED])[/color][/b]
  64.                            [b][color=RED])[/color][/b]
  65.                            [b][color=#a52a2a]"> : "[/color][/b]
  66.                          [b][color=RED])[/color][/b]
  67.                        [b][color=RED])[/color][/b]
  68.                      [b][color=RED])[/color][/b]
  69.                    [b][color=RED])[/color][/b]
  70.                    [b][color=RED]([/color][/b] *qty* [b][color=RED])[/color][/b]
  71.                  [b][color=RED])[/color][/b]
  72.                [b][color=RED])[/color][/b]
  73.              [b][color=RED])[/color][/b]
  74.            [b][color=RED])[/color][/b]
  75.            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"Material="[/color][/b]
  76.              [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b]
  77.                [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b]
  78.                  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *mat*
  79.                    [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  80.                      [b][color=RED]([/color][/b]
  81.                        [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=RED]([/color][/b]LM:lst->str [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]car[/color][/b] mLst[b][color=RED])[/color][/b] [b][color=#a52a2a]" "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  82.                          [b][color=RED]([/color][/b][b][color=BLUE]getkword[/color][/b]
  83.                            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\nSpecify Material ["[/color][/b] [b][color=RED]([/color][/b]LM:lst->str [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]car[/color][/b] mLst[b][color=RED])[/color][/b] [b][color=#a52a2a]"/"[/color][/b][b][color=RED])[/color][/b] [b][color=#a52a2a]"] <"[/color][/b]
  84.                              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *mat*
  85.                                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b] *mat* [b][color=RED])[/color][/b] [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caar[/color][/b] mLst[b][color=RED])[/color][/b] [b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  86.                              [b][color=RED])[/color][/b]
  87.                              [b][color=#a52a2a]"> : "[/color][/b]
  88.                            [b][color=RED])[/color][/b]
  89.                          [b][color=RED])[/color][/b]
  90.                        [b][color=RED])[/color][/b]
  91.                      [b][color=RED])[/color][/b]
  92.                      [b][color=RED]([/color][/b] *mat* [b][color=RED])[/color][/b]
  93.                    [b][color=RED])[/color][/b]
  94.                  [b][color=RED])[/color][/b]
  95.                  mLst
  96.                [b][color=RED])[/color][/b]
  97.              [b][color=RED])[/color][/b]
  98.            [b][color=RED])[/color][/b]
  99.            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"Thickness="[/color][/b]
  100.              [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b]
  101.                [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *thk*
  102.                  [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  103.                    [b][color=RED]([/color][/b]
  104.                      [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]6[/color][/b][b][color=RED])[/color][/b]
  105.                        [b][color=RED]([/color][/b][b][color=BLUE]getdist[/color][/b]
  106.                          [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"\nSpecify Thickness <"[/color][/b]
  107.                            [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b]
  108.                              [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] *thk*
  109.                                [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b] *thk* [b][color=RED])[/color][/b] [b][color=RED]([/color][/b] [b][color=#009999]1.0[/color][/b] [b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  110.                              [b][color=RED])[/color][/b]
  111.                            [b][color=RED])[/color][/b]
  112.                            [b][color=#a52a2a]"> : "[/color][/b]
  113.                          [b][color=RED])[/color][/b]
  114.                        [b][color=RED])[/color][/b]
  115.                      [b][color=RED])[/color][/b]
  116.                    [b][color=RED])[/color][/b]
  117.                    [b][color=RED]([/color][/b] *thk* [b][color=RED])[/color][/b]
  118.                  [b][color=RED])[/color][/b]
  119.                [b][color=RED])[/color][/b]
  120.              [b][color=RED])[/color][/b]
  121.            [b][color=RED])[/color][/b]
  122.            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#a52a2a]"NAME="[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getstring[/color][/b] [b][color=#a52a2a]"\nSpecify Name: "[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  123.            [b][color=#a52a2a]"MACHINE=Trumpf L2530 PLUS"[/color][/b]
  124.          [b][color=RED])[/color][/b]
  125.         [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009999]1.0[/color][/b] [b][color=#009999]1.3[/color][/b] [b][color=#009999]1.6[/color][/b] [b][color=#009999]1.9[/color][/b] [b][color=#009999]2.2[/color][/b][b][color=RED])[/color][/b]
  126.        [b][color=RED])[/color][/b]
  127.      [b][color=RED])[/color][/b]
  128.    [b][color=RED])[/color][/b]
  129.    [b][color=#009900]0[/color][/b]
  130.  [b][color=RED])[/color][/b]
  132.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  133. [b][color=RED])[/color][/b]
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 10:57:07 | 显示全部楼层
 
 
我喜欢它。你告诉我我错了，然后告诉OP我是对的，然后使用我在另一个例子中建议的方法。
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 11:00:52 | 显示全部楼层
你搞错了，
 
 
我没有告诉你你错了，那只是一个小笑话。
 
 
这是批准。
 
 
当然，我和其他人仍在学习，必须得到专家的建议，直到能够给出我们的建议。
 
就这样。。。。。。请随意
 
顺致敬意，
 
 
塔瓦特
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 11:04:03 | 显示全部楼层
 
你不这么说：眨眼：
 
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:07:59 | 显示全部楼层
我认为这是一个笑话，说你没有把“鸡”作为一个选项。。。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 17:13 , Processed in 0.473037 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表