乐筑天下

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

[编程交流] 支持路径操作

[复制链接]
Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:45:54 | 显示全部楼层
你的意思是在计算机上创建目录结构或通过LISP添加支持路径？
回复

使用道具 举报

mitchellrodhous

10

主题

56

帖子

46

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 11:48:30 | 显示全部楼层
通过LISP添加支持路径；）
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:54:48 | 显示全部楼层
是的，可以这样做：
 
添加/删除支持路径：
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:AddSupportPaths [b][color=RED]([/color][/b] lst [b][color=BLUE]/[/color][/b] PreferenceFiles SupportPaths [b][color=RED])[/color][/b]
  3.  [i][color=#990099];; © Lee Mac  ~  14.06.10[/color][/i]
  4.  [i][color=#990099];; (AddSupportPaths '("C:\\Folder" "C:\\Folder\\Subfolder" ... )[/color][/i]
  5.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  7.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] SupportPaths
  8.    [b][color=RED]([/color][/b][b][color=BLUE]vla-get-SupportPath[/color][/b]
  9.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] PreferenceFiles
  10.        [b][color=RED]([/color][/b][b][color=BLUE]vla-get-files[/color][/b]
  11.          [b][color=RED]([/color][/b][b][color=BLUE]vla-get-preferences[/color][/b]
  12.            [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
  13.          [b][color=RED])[/color][/b]
  14.        [b][color=RED])[/color][/b]
  15.      [b][color=RED])[/color][/b]
  16.    [b][color=RED])[/color][/b]
  17.  [b][color=RED])[/color][/b]
  19.  [b][color=RED]([/color][/b][b][color=BLUE]vla-put-SupportPath[/color][/b] PreferenceFiles
  20.    [b][color=RED]([/color][/b]LM:lst->str
  21.      [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] SupportPaths
  22.        [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b]
  23.          [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  24.            [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] s [b][color=RED])[/color][/b]
  25.              [b][color=RED]([/color][/b][b][color=BLUE]vl-string-search[/color][/b] s SupportPaths[b][color=RED])[/color][/b]
  26.            [b][color=RED])[/color][/b]
  27.          [b][color=RED])[/color][/b]
  28.          lst
  29.        [b][color=RED])[/color][/b]
  30.      [b][color=RED])[/color][/b]
  31.      [b][color=#a52a2a]";"[/color][/b]
  32.    [b][color=RED])[/color][/b]
  33.  [b][color=RED])[/color][/b]
  34.  lst
  35. [b][color=RED])[/color][/b]
  37. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:RemoveSupportPaths [b][color=RED]([/color][/b] lst [b][color=BLUE]/[/color][/b] PreferenceFiles SupportPaths [b][color=RED])[/color][/b]
  38.  [i][color=#990099];; © Lee Mac  ~  14.06.10[/color][/i]
  39.  [i][color=#990099];; (RemoveSupportPaths '("C:\\Folder" "C:\\Folder\\Subfolder" ... )[/color][/i]
  40.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  42.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] SupportPaths
  43.    [b][color=RED]([/color][/b][b][color=BLUE]vla-get-SupportPath[/color][/b]
  44.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] PreferenceFiles
  45.        [b][color=RED]([/color][/b][b][color=BLUE]vla-get-files[/color][/b]
  46.          [b][color=RED]([/color][/b][b][color=BLUE]vla-get-preferences[/color][/b]
  47.            [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/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]
  52.  [b][color=RED])[/color][/b]
  54.  [b][color=RED]([/color][/b][b][color=BLUE]vla-put-SupportPath[/color][/b] PreferenceFiles
  55.    [b][color=RED]([/color][/b]LM:lst->str
  56.      [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b]
  57.        [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  58.          [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] s [b][color=RED])[/color][/b]
  59.            [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] s lst[b][color=RED])[/color][/b]
  60.          [b][color=RED])[/color][/b]
  61.        [b][color=RED])[/color][/b]
  62.        [b][color=RED]([/color][/b]LM:StringParser SupportPaths [b][color=#a52a2a]";"[/color][/b][b][color=RED])[/color][/b]
  63.      [b][color=RED])[/color][/b]
  64.      [b][color=#a52a2a]";"[/color][/b]
  65.    [b][color=RED])[/color][/b]
  66.  [b][color=RED])[/color][/b]
  67.  lst
  68. [b][color=RED])[/color][/b]
  70. [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]
  71.  [i][color=#990099];; © Lee Mac  ~  14.06.10[/color][/i]
  72.  [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]
  73.    [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]
  74.    [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] lst[b][color=RED])[/color][/b]
  75.  [b][color=RED])[/color][/b]
  76. [b][color=RED])[/color][/b]
  78. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:StringParser [b][color=RED]([/color][/b] str del [color=Blue][b]/[/b][/color] pos [b][color=RED])[/color][/b]
  79.  [i][color=#990099];; © Lee Mac  ~  14.06.10[/color][/i]
  80.  [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][b][color=RED])[/color][/b]
  81.    [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]
  82.          [b][color=RED]([/color][/b]LM:StringParser [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][b][color=RED])[/color][/b][b][color=RED])[/color][/b] del[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  83.    [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] str[b][color=RED])[/color][/b]
  84.  [b][color=RED])[/color][/b]
  85. [b][color=RED])[/color][/b]

 
创建目录结构：
  1. 5
回复

使用道具 举报

mitchellrodhous

10

主题

56

帖子

46

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-6 11:58:24 | 显示全部楼层
是的，这就是我需要的。谢谢你，李
尊敬的先生
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:02:25 | 显示全部楼层
不客气。
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 11:13 , Processed in 0.640671 second(s), 60 queries .

© 2020-2025 乐筑天下

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