乐筑天下

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

[编程交流] 组合多个TBL搜索lin

[复制链接]
ILoveMadoka

88

主题

346

帖子

281

银币

后起之秀

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

铜币
423
发表于 2022-7-5 20:03:39 | 显示全部楼层 |阅读模式
有没有可能使它更紧凑？
 
  1. (DEFUN C:TEST ()
  3. (if (/= (tblsearch "STYLE" "ROMANS"))
  4. (COMMAND "-STYLE" "ROMANS" "ROMANS" "" "" "" "N" "N" "N")
  6. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE0"))
  7. (COMMAND "-STYLE" "SLDTEXTSTYLE0" "ROMANS" "" "" "" "N" "N" "N")
  9. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE1"))
  10. (COMMAND "-STYLE" "SLDTEXTSTYLE1" "ROMANS" "" "" "" "N" "N" "N")
  12. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE2"))
  13. (COMMAND "-STYLE" "SLDTEXTSTYLE2" "ROMANS" "" "" "" "N" "N" "N")
  15. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE3"))
  16. (COMMAND "-STYLE" "SLDTEXTSTYLE3" "ROMANS" "" "" "" "N" "N" "N")
  18. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE4"))
  19. (COMMAND "-STYLE" "SLDTEXTSTYLE4" "ROMANS" "" "" "" "N" "N" "N")
  21. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE5"))
  22. (COMMAND "-STYLE" "SLDTEXTSTYLE5" "ROMANS" "" "" "" "N" "N" "N")
  24. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE6"))
  25. (COMMAND "-STYLE" "SLDTEXTSTYLE6" "ROMANS" "" "" "" "N" "N" "N")
  27. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE7"))
  28. (COMMAND "-STYLE" "SLDTEXTSTYLE7" "ROMANS" "" "" "" "N" "N" "N")
  30. (if (= (tblsearch "STYLE" "SLDTEXTSTYLE8"))
  31. (COMMAND "-STYLE" "SLDTEXTSTYLE8" "ROMANS" "" "" "" "N" "N" "N")
  33. (PRINC))

 
 
请提供指导？
回复

使用道具 举报

hanhphuc

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 20:11:49 | 显示全部楼层
 
mapcar方法
  3. (defun c:test nil
  4. ([color="blue"]mapcar[/color] ''((x) (if ([color="red"]not[/color] (tblsearch "STYLE" x))
  5. (COMMAND "-STYLE" x "ROMANS" "" "" "" "N" "N" "N")))
  6. ((lambda (i / l)
  7. (vl-list* "ROMANS" (repeat 9 (setq l (cons (strcat "SLDTEXTSTYLE"(itoa(setq i (1- i)))) l)))))
  8.  9))
  9. (princ))
回复

使用道具 举报

jdiala

0

主题

99

帖子

99

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 20:18:04 | 显示全部楼层
韩抢在我前面，可怜的打字员。。。
 
  1. (defun c:test ()
  2. (mapcar 
  3. (function 
  4.   (lambda (x) 
  5.     (if 
  6.       (not (tblsearch "style" x))
  7.        (COMMAND "-STYLE" x "ROMANS" "" "" "" "N" "N" "N")
  8.       )
  9.     )
  10.   ) 
  11.   '("ROMANS" "SLDTEXTSTYLE0" "SLDTEXTSTYLE1" "SLDTEXTSTYLE2" "SLDTEXTSTYLE2")
  12. )
  13. (princ)
  14. )
回复

使用道具 举报

hanhphuc

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 20:18:45 | 显示全部楼层
 
好久不见jdiala了！
没有什么能打败你，我也从你那里学到了
 
另一个
cond方法
编辑：此方法仅在当前样式匹配时应用更改
  2. (defun [b]c:[u]test2[/u][/b] nil
  3. [color="green"];switch current *style to ROMANS ,which styles are limited by user[/color]
  4.  (eval
  5.      (cons 'cond
  6.     (mapcar ''((x)
  7.                (list
  8.                 [color="red"](equal (cdr(assoc 2 (tblsearch "STYLE" (getvar 'textstyle)))) x)[/color]
  9.                 (cons 'command (list "-STYLE" x "ROMANS" "" "" "" "N" "N" "N")))
  10.                ) ;_ end of lambda
  11.                                ((lambda (i / l)
  12.                (vl-list* "ROMANS"
  13.                          (repeat 9 (setq l (cons (strcat "STY" (itoa (setq i (1- i)))) l)))
  14.                          ) ;_ end of vl-list*
  15.                ) ;_ end of lambda
  16.               9
  17.               )
  18.             ) ;_ end of mapcar
  19.     ) ;_ end of cons
  20.      ) ;_ end of eval
  21. (princ)
  22. )

 
这解释了在评估之前上述测试2的相似性
  2. [color="green"];where [b][color="blue"]T[/color][/b]= [color="red"](tblsearch "STYLE" (getvar 'textstyle))[/color]
  3. ;assume [color="red"]"STY4"[/color] is current style, ie: only "STY4" is effected [/color]
  5. (COND (nil (COMMAND "-STYLE" "ROMANS" "ROMANS" "" "" "" "N" "N" "N"))
  6.      (nil (COMMAND "-STYLE" "STY0" "ROMANS" "" "" "" "N" "N" "N"))
  7.      (nil (COMMAND "-STYLE" "STY1" "ROMANS" "" "" "" "N" "N" "N"))
  8.      (nil (COMMAND "-STYLE" "STY2" "ROMANS" "" "" "" "N" "N" "N"))
  9.      (nil (COMMAND "-STYLE" "STY3" "ROMANS" "" "" "" "N" "N" "N"))
  10.      ([b][color="blue"]T[/color][/b]   (COMMAND "-STYLE" [color="red"]"STY4"[/color] "ROMANS" "" "" "" "N" "N" "N"))[color="green"]; <-- example curent style= T[/color]
  11.      (nil (COMMAND "-STYLE" "STY5" "ROMANS" "" "" "" "N" "N" "N"))
  12.      (nil (COMMAND "-STYLE" "STY6" "ROMANS" "" "" "" "N" "N" "N"))
  13.      (nil (COMMAND "-STYLE" "STY7" "ROMANS" "" "" "" "N" "N" "N"))
  14.      (nil (COMMAND "-STYLE" "STY8" "ROMANS" "" "" "" "N" "N" "N"))
  15.      ) ;_ end of COND

cond方法第三行
  2. (defun c:[u][b]test3[/b][/u] nil
  3.  (COMMAND "-STYLE" (getvar 'textstyle) "ROMANS" "" "" "" "N" "N" "N")
  4.  )

 
的确，我打字打得不好
jdiala打败了我
回复

使用道具 举报

ILoveMadoka

88

主题

346

帖子

281

银币

后起之秀

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

铜币
423
发表于 2022-7-5 20:25:33 | 显示全部楼层
我想我会倾向于；
 
  2. ''((x) (if ([color="red"]not [/color](tblsearch "STYLE" x))

 
 
-大卫
回复

使用道具 举报

ILoveMadoka

88

主题

346

帖子

281

银币

后起之秀

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

铜币
423
发表于 2022-7-5 20:30:46 | 显示全部楼层
 
这部分是循环usung repeat，你的例子是0～8
  1.  
  2. (eval (cons '[color="red"]not[/color] (list '(tblsearch "STYLE" x) 'x)))

 
编辑：
谢谢David
ILoveMadoka，请注意David先生也使用了重复循环
回复

使用道具 举报

hanhphuc

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 20:36:24 | 显示全部楼层
 
你在帮我。无需道歉！
 
非常感谢！
 
 
大卫，
 
我也会看看你的。
 
谢谢你，先生！
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 20:41:02 | 显示全部楼层
在第4篇文章中更新。
*仅供参考
 
 
也许是我的困惑：
 
如果你不想像帖子#2中那样创建不需要的*样式0~8，
这意味着你指的是已经存在的样式？
更新此
  2. [b][color=BLACK]([/color][/b]defun c:rstyle [b][color=FUCHSIA]([/color][/b]/ i s[b][color=FUCHSIA])[/color][/b]
  4. [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"STYLE"[/color] [color=#2f4f4f]"ROMANS"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  5.    [b][color=NAVY]([/color][/b]progn
  6.     [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_.STYLE"[/color] [color=#2f4f4f]"ROMANS"[/color] [color=#2f4f4f]"ROMANS"[/color][b][color=MAROON])[/color][/b]
  7.     [b][color=MAROON]([/color][/b]while [b][color=GREEN]([/color][/b]> [b][color=BLUE]([/color][/b]getvar [color=#2f4f4f]"CMDACTIVE"[/color][b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b]
  8.            [b][color=GREEN]([/color][/b]command [color=#2f4f4f]""[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  10. [b][color=FUCHSIA]([/color][/b]setq i 0[b][color=FUCHSIA])[/color][/b]
  11. [b][color=FUCHSIA]([/color][/b]repeat 9
  12.   [b][color=NAVY]([/color][/b]setq s [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"SLDTEXTSTYLE"[/color] [b][color=GREEN]([/color][/b]itoa i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  13.   [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"STYLE"[/color] s[b][color=MAROON])[/color][/b]
  14.       [b][color=MAROON]([/color][/b]progn
  15.         [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_.STYLE"[/color] s [color=#2f4f4f]"ROMANS"[/color][b][color=GREEN])[/color][/b]
  16.         [b][color=GREEN]([/color][/b]while [b][color=BLUE]([/color][/b]> [b][color=RED]([/color][/b]getvar [color=#2f4f4f]"CMDACTIVE"[/color][b][color=RED])[/color][/b] 0[b][color=BLUE])[/color][/b]
  17.                [b][color=BLUE]([/color][/b]command [color=#2f4f4f]""[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  18.   [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]1+ i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  20. [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
回复

使用道具 举报

hanhphuc

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 20:47:05 | 显示全部楼层
大卫，
 
这非常有效！非常感谢。
 
 
 
回复

使用道具 举报

ILoveMadoka

88

主题

346

帖子

281

银币

后起之秀

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

铜币
423
发表于 2022-7-5 20:51:50 | 显示全部楼层
不客气。您可以添加一些错误捕捉，以确保可以制作罗马字母，但大多数系统在搜索路径中都有罗马字母
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 00:59 , Processed in 0.501893 second(s), 72 queries .

© 2020-2025 乐筑天下

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