乐筑天下

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

[编程交流] 布局lisp（编辑帮助）

[复制链接]
BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 11:00:19 | 显示全部楼层
 
 
 
... 那些该死的明尼苏达-威斯康星州-加拿大程序员，总是让事情变得如此困难。（只是开玩笑，不要给我发仇恨邮件）
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:02:27 | 显示全部楼层
要允许双击操作：
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ll [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] [color=black]*error*[/color] _WriteDialogDefinition _GetSavePath DCLPath DCLFile DCLFlag DCLHandle lst ptr [b][color=RED])[/color][/b]
  3.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  4.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  6.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]*error*[/color] [b][color=RED]([/color][/b] msg [b][color=RED])[/color][/b]
  7.    
  8.    [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]
  9.    [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] openfile  [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b]
  10.    
  11.    [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]
  12.        [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]
  13.    [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  14.  [b][color=RED])[/color][/b]
  16.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _WriteDialogDefinition [b][color=RED]([/color][/b] filename [b][color=BLUE]/[/color][/b] openfile [b][color=RED])[/color][/b]
  17.    [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  18.      [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] filename[b][color=RED])[/color][/b] [b][color=RED])[/color][/b]
  19.      [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] filename [b][color=#a52a2a]"w"[/color][/b][b][color=RED]))[/color][/b]
  21.        [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] l
  22.           [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"ll : dialog { label = "Select Layout to Make Current"; spacer;"[/color][/b]
  23.             [b][color=#a52a2a]": list_box { key = "lay"; allow_accept = true; alignment = centered; } ok_cancel; }"[/color][/b][b][color=RED])[/color][/b]
  24.          [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b] l openfile[b][color=RED])[/color][/b]
  25.        [b][color=RED])[/color][/b]
  27.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] openfile [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] openfile[b][color=RED]))[/color][/b] [b][color=BLUE]T[/color][/b]
  28.      [b][color=RED])[/color][/b]
  29.    [b][color=RED])[/color][/b]
  30.  [b][color=RED])[/color][/b]
  32.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] _GetSavePath [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] tmp [b][color=RED])[/color][/b]
  33.    [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  34.      [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]ROAMABLEROOTPREFIX[b][color=RED]))[/color][/b]
  36.        [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
  37.            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"\"[/color][/b][b][color=RED]))[/color][/b]
  38.        [b][color=RED])[/color][/b]
  39.        [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] tmp [b][color=#a52a2a]"Support"[/color][/b][b][color=RED])[/color][/b]
  40.      [b][color=RED])[/color][/b]
  41.      [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] [b][color=#a52a2a]"ACAD.pat"[/color][/b][b][color=RED]))[/color][/b]
  43.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-directory[/color][/b] tmp[b][color=RED]))[/color][/b]
  45.        [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED])))[/color][/b]
  46.             [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] tmp [b][color=RED]([/color][/b][b][color=BLUE]1-[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] tmp[b][color=RED]))))[/color][/b]
  47.        [b][color=RED])[/color][/b]       
  48.        tmp
  49.      [b][color=RED])[/color][/b]
  50.    [b][color=RED])[/color][/b]
  51.  [b][color=RED])[/color][/b]
  53.  [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  54.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-file-directory-p[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLPath [b][color=RED]([/color][/b]_GetSavePath[b][color=RED]))))[/color][/b]
  56.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Locate Save Path **"[/color][/b][b][color=RED])[/color][/b]
  57.    [b][color=RED])[/color][/b]    
  58.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b]_WriteDialogDefinition [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFile [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] DCLPath [b][color=#a52a2a]"\\LMAC_SelectLayout.dcl"[/color][/b][b][color=RED]))))[/color][/b]
  60.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Write Dialog Definition **"[/color][/b][b][color=RED])[/color][/b]
  61.    [b][color=RED])[/color][/b]
  62.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<=[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] DCLFile[b][color=RED]))[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  64.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Find Dialog File **"[/color][/b][b][color=RED])[/color][/b]
  65.    [b][color=RED])[/color][/b]
  66.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]new_dialog[/color][/b] [b][color=#a52a2a]"ll"[/color][/b] DCLHandle[b][color=RED]))[/color][/b]
  68.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** Cannot Load Layout Select Dialog **"[/color][/b][b][color=RED])[/color][/b]
  69.    [b][color=RED])[/color][/b]
  70.    [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b]
  71.      [b][color=RED]([/color][/b][b][color=BLUE]start_list[/color][/b] [b][color=#a52a2a]"lay"[/color][/b][b][color=RED])[/color][/b]
  72.      [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]add_list[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] lst [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#a52a2a]"Model"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]layoutlist[/color][/b][b][color=RED]))))[/color][/b]
  73.      [b][color=RED]([/color][/b][b][color=BLUE]end_list[/color][/b][b][color=RED])[/color][/b]
  75.      [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ptr [b][color=RED]([/color][/b][b][color=BLUE]itoa[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB[b][color=RED])[/color][/b] lst[b][color=RED]))))[/color][/b]
  76.      [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#a52a2a]"lay"[/color][/b] [b][color=#a52a2a]"(setq ptr $value)"[/color][/b][b][color=RED])[/color][/b]
  78.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] DCLFlag [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b] DCLHandle [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] DCLHandle[b][color=RED]))[/color][/b]
  80.      [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=#009900]1[/color][/b] DCLFlag[b][color=RED])[/color][/b]
  81.        [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b]CTAB [b][color=RED]([/color][/b][b][color=BLUE]nth[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]atoi[/color][/b] ptr[b][color=RED])[/color][/b] lst[b][color=RED]))[/color][/b]
  82.        [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n*Cancel*"[/color][/b][b][color=RED])[/color][/b]
  83.      [b][color=RED])[/color][/b]
  84.    [b][color=RED])[/color][/b]
  85.  [b][color=RED])[/color][/b]
  87.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  88. [b][color=RED])[/color][/b]
回复

使用道具 举报

lutcus

2

主题

11

帖子

9

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 11:06:14 | 显示全部楼层
我很困惑，为什么不从屏幕底部显示的位置选择所需的布局选项卡呢？
 

 
为了好玩和DosLib用户。。。
 
  1. LAYOUTS : dialog {
  2.        label = "Select Layout to make Current";
  3.        : column {
  4.          : row {
  5.            : boxed_column {
  6.              : list_box {
  7.                key = "lays";
  8.                label = "Layouts:";
  9.                [color=red]allow_accept = true;[/color]
  10.                multiple_select = false;
  11.                width = 40;
  12.              }
  13.            }   
  14.          }
  15.          : row {
  16.            : boxed_row {
  17.              : button {
  18.                key = "accept";
  19.                label = "  Okay  ";
  20.                is_default = true;
  21.              }
  22.              : button {
  23.                key = "cancel";
  24.                label = "  Cancel  ";
  25.                is_default = false;
  26.                is_cancel = true;
  27.              }
  28.            }
  29.          }
  30.        }    
  31. }
回复

使用道具 举报

lutcus

2

主题

11

帖子

9

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 11:10:16 | 显示全部楼层
 
嗨，艾伦，
 
如果你是那种在绘图中有很多图纸空间选项卡并且懒得滚动的人，那么它可以让你更容易地找到一个特定的选项卡。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:11:19 | 显示全部楼层
向右打开；这是有道理的。好吧，那么排除以上所有内容：为了好玩和DosLib用户。。。然后从那里读下去。
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:15:31 | 显示全部楼层
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:18:54 | 显示全部楼层
I'm confused, why not just select the desired layout tab from where they are displayed at the bottom of the screen?
 
112405n31vthv2mpd7n331.png
 
For fun and the DosLib users...
 
  1. (defun c:Test (/ lst tab) (if (setq tab (dos_popupmenu (setq lst (cons "Model" (layoutlist)))))   (setvar 'ctab (nth tab lst)) ) (princ))
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 11:21:03 | 显示全部楼层
 
Hey Alan,
 
Its suppose to make it easier to find a particular tab if you are the type to have alot of paper space tabs in your drawing and are too lazy to scroll through them.
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:24:55 | 显示全部楼层
Right on; that makes sense.Well, then exclude everything above: For fun and the DosLib users... and just read from there.
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 22:13 , Processed in 0.972574 second(s), 70 queries .

© 2020-2025 乐筑天下

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