乐筑天下

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

[编程交流] 使用LISP创建文件夹

[复制链接]
Heyner

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 10:29:39 | 显示全部楼层 |阅读模式
大家好：
 
我正在更新我的一些旧代码，我想使用shell命令，你知道为什么吗。
 
我需要创建一个文件夹，下面是创建文件夹num\u br所写的内容：
 
 
（setq commd（strcat“md”）
回复

使用道具 举报

Heyner

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 10:42:26 | 显示全部楼层
（setq commd（strcat“md”）
回复

使用道具 举报

Heyner

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:01:33 | 显示全部楼层
对不起，我两次尝试发布代码都失败了，你可以看到我显然是新手。其思想是使用vl命令创建文件夹。那是哪个命令？
回复

使用道具 举报

lpseifert

4

主题

940

帖子

961

银币

初来乍到

Rank: 1

铜币
12
发表于 2022-7-6 11:14:09 | 显示全部楼层
从开发者帮助>AutoLISP参考
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:19:29 | 显示全部楼层
vl mkdir可以创建单个文件夹，因此我使用以下内容创建目录结构：
 
  2. [i][color=#990099];;-------------------=={ Make Directory }==-------------------;;[/color][/i]
  3. [i][color=#990099];;                                                            ;;[/color][/i]
  4. [i][color=#990099];;  Creates a directory structure                             ;;[/color][/i]
  5. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  6. [i][color=#990099];;  Author: Lee McDonnell, 2010                               ;;[/color][/i]
  7. [i][color=#990099];;                                                            ;;[/color][/i]
  8. [i][color=#990099];;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;[/color][/i]
  9. [i][color=#990099];;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;[/color][/i]
  10. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  11. [i][color=#990099];;  Arguments:                                                ;;[/color][/i]
  12. [i][color=#990099];;  dir - the directory to create                             ;;[/color][/i]
  13. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  14. [i][color=#990099];;  Returns:  T if directory creation is successful, else nil ;;[/color][/i]
  15. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  17. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]LM:MakeDirectory[/color] [b][color=RED]([/color][/b] dir [b][color=BLUE]/[/color][/b] MakeDirectory folders [b][color=RED])[/color][/b]
  18.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  19.  [i][color=#990099];; (LM:MakeDirectory "C:\\Folder\\Subfolder")[/color][/i]
  20.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  22.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] MakeDirectory [b][color=RED]([/color][/b] root folders [b][color=RED])[/color][/b]
  23.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] folders
  24.      [b][color=RED]([/color][/b]
  25.        [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] dir [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-mkdir[/color][/b] dir[b][color=RED])[/color][/b]
  26.          [b][color=RED]([/color][/b]MakeDirectory dir [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] folders[b][color=RED]))[/color][/b]
  27.        [b][color=RED])[/color][/b]
  28.        [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] root [b][color=#a52a2a]"\"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] folders[b][color=RED]))[/color][/b]
  29.      [b][color=RED])[/color][/b]
  30.    [b][color=RED])[/color][/b]
  31.  [b][color=RED])[/color][/b]
  32.  
  33.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] folders [b][color=RED]([/color][/b][color=black]LM:str->lst[/color] [b][color=RED]([/color][/b][b][color=BLUE]vl-string-translate[/color][/b] [b][color=#a52a2a]"/"[/color][/b] [b][color=#a52a2a]"\"[/color][/b] dir[b][color=RED])[/color][/b] [b][color=#a52a2a]"\"[/color][/b][b][color=RED]))[/color][/b]
  34.    [b][color=RED]([/color][/b]MakeDirectory [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] folders[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] folders[b][color=RED]))[/color][/b]
  35.  [b][color=RED])[/color][/b]
  36.  [b][color=RED]([/color][/b][b][color=BLUE]vl-file-directory-p[/color][/b] dir[b][color=RED])[/color][/b]
  37. [b][color=RED])[/color][/b]
  39. [i][color=#990099];;-------------------=={ String -> List }==-------------------;;[/color][/i]
  40. [i][color=#990099];;                                                            ;;[/color][/i]
  41. [i][color=#990099];;  Separates a string into a list of strings using a         ;;[/color][/i]
  42. [i][color=#990099];;  specified delimiter string                                ;;[/color][/i]
  43. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  44. [i][color=#990099];;  Author: Lee McDonnell, 2010                               ;;[/color][/i]
  45. [i][color=#990099];;                                                            ;;[/color][/i]
  46. [i][color=#990099];;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;[/color][/i]
  47. [i][color=#990099];;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;[/color][/i]
  48. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  49. [i][color=#990099];;  Arguments:                                                ;;[/color][/i]
  50. [i][color=#990099];;  str - string to process                                   ;;[/color][/i]
  51. [i][color=#990099];;  del - delimiter by which to separate the string           ;;[/color][/i]
  52. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  53. [i][color=#990099];;  Returns:  A list of strings                               ;;[/color][/i]
  54. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  56. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] [color=black]LM:str->lst[/color] [b][color=RED]([/color][/b] str del [b][color=BLUE]/[/color][/b] pos [b][color=RED])[/color][/b]
  57.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  58.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pos [b][color=RED]([/color][/b][b][color=BLUE]vl-string-search[/color][/b] del str[b][color=RED]))[/color][/b]
  59.    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] str [b][color=#009900]1[/color][/b] pos[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][color=black]LM:str->lst[/color] [b][color=RED]([/color][/b][b][color=BLUE]substr[/color][/b] str [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] pos [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] del[b][color=RED])))[/color][/b] del[b][color=RED]))[/color][/b]
  60.    [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] str[b][color=RED])[/color][/b]
  61.  [b][color=RED])[/color][/b]
  62. [b][color=RED])[/color][/b]
回复

使用道具 举报

Heyner

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:39:47 | 显示全部楼层
非常感谢，它正按我所希望的那样完美地工作。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 17:35 , Processed in 0.416848 second(s), 64 queries .

© 2020-2025 乐筑天下

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