乐筑天下

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

[编程交流] 将图形另存为多属性

[复制链接]
tjsantos

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 10:38:48 | 显示全部楼层 |阅读模式
大家好，
 
我正在寻找一个LISP例程，它将使用由块中的属性组成的文件名保存图形。
 
即。
块名称='标题栏'
属性1='Drg\U No'=12345
属性2=‘Drg\U Rev’=A
属性3='日期发布'=2010年2月1日
 
该例程将图形保存为“12345\u A\u 01022010”，保存在图形当前文件夹中名为“Archive”的sbu文件夹下
 
任何帮助都将不胜感激。
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:47:53 | 显示全部楼层
如果您已经用新信息编辑了文件，那么归档文件有什么好处？
回复

使用道具 举报

tjsantos

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 10:56:21 | 显示全部楼层
这是因为图形仅保存在图形编号下，当我们更新它时，我们使用上述方法将图形手动保存在存档文件夹中。我想自动化这个。
 
干杯
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:05:17 | 显示全部楼层
完全可行。有编程经验吗？
回复

使用道具 举报

dbroada

48

主题

1073

帖子

1043

银币

后起之秀

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

铜币
238
发表于 2022-7-6 11:08:46 | 显示全部楼层
另外，您可能需要重新考虑yyyymmdd的日期格式。当按日期顺序查找文件时，按ddmmyyyy或mmddyyyy进行操作会得到一个非常未排序的列表。
回复

使用道具 举报

tjsantos

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:17:32 | 显示全部楼层
Alanjt公司
 
我用AutoCAD编程的唯一经验是“调整”其他人的lisp例程。这是我第一次努力写作。
 
dbroada公司
 
好主意，我会记住的。谢谢。
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:21:52 | 显示全部楼层
所以你在找人帮你写？
回复

使用道具 举报

tjsantos

1

主题

4

帖子

3

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:26:05 | 显示全部楼层
 
最好是这样。
回复

使用道具 举报

Phiphi

5

主题

45

帖子

40

银币

初来乍到

Rank: 1

铜币
25
发表于 2022-7-6 11:32:48 | 显示全部楼层
 
类似主题：http://www.cadtutor.net/forum/showthread.php?41895-将图形另存为属性值
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:43:59 | 显示全部楼层
试试这个：
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:dwgsave [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] path ss [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]cond[/color][/b]
  7.    [b][color=RED]([/color][/b]
  8.      [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
  9.        [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b]
  10.          [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b]
  11.            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] path
  12.              [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]dwgprefix[b][color=RED])[/color][/b] [b][color=#a52a2a]"Archive"[/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][b][color=BLUE]vl-mkdir[/color][/b] path[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]princ[/color][/b] [b][color=#a52a2a]"\n** Unable to Locate Save Path **"[/color][/b][b][color=RED])[/color][/b]
  20.    [b][color=RED])[/color][/b]
  21.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#a52a2a]"_X"[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#a52a2a]"INSERT"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=#009900]2[/color][/b] . [b][color=#a52a2a]"Title Block"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=#009900]66[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  23.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#a52a2a]"\n** No Title Block Found **"[/color][/b][b][color=RED])[/color][/b]
  24.    [b][color=RED])[/color][/b]
  25.    [b][color=RED]([/color][/b]t
  27.      [b][color=RED]([/color][/b]
  28.        [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] string [b][color=RED])[/color][/b]
  29.          [b][color=RED]([/color][/b][b][color=BLUE]vla-saveas[/color][/b]
  30.            [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]
  31.              [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b]
  32.            [b][color=RED])[/color][/b]
  33.            [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] path [b][color=#a52a2a]"\"[/color][/b] string[b][color=RED])[/color][/b]
  34.          [b][color=RED])[/color][/b]
  35.        [b][color=RED])[/color][/b]
  36.        [b][color=RED]([/color][/b]
  37.          [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] attribs [b][color=RED])[/color][/b]
  38.            [b][color=RED]([/color][/b]LM:lst->str
  39.              [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
  40.                [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  41.                  [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] tag [b][color=BLUE]/[/color][/b] x l [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] x [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] tag attribs[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  42.                    
  43.                    [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  44.                      [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] x [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]"DATE_ISSUE"[/color][/b] tag[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  45.                           
  46.                        [b][color=RED]([/color][/b][b][color=BLUE]apply[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b] [b][color=Blue]strcat[/color][color=RED])[/color][/b]
  47.                          [b][color=RED]([/color][/b][b][color=BLUE]reverse[/color][/b]
  48.                            [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] l [b][color=RED]([/color][/b]LM:StringParser x [b][color=#a52a2a]"/"[/color][/b][b][color=RED])[/color][/b][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] x [b][color=RED])[/color][/b] [b][color=RED]([/color][/b] [b][color=#a52a2a]""[/color][/b] [b][color=RED])[/color][/b]
  53.                    [b][color=RED])[/color][/b]
  54.                  [b][color=RED])[/color][/b]
  55.                [b][color=RED])[/color][/b]
  56.                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#a52a2a]"DRG_NO"[/color][/b] [b][color=#a52a2a]"DRG_REV"[/color][/b] [b][color=#a52a2a]"DATE_ISSUE"[/color][/b][b][color=RED])[/color][/b]
  57.              [b][color=RED])[/color][/b]
  58.              [b][color=#a52a2a]"_"[/color][/b]
  59.            [b][color=RED])[/color][/b]
  60.          [b][color=RED])[/color][/b]
  61.          [b][color=RED]([/color][/b]
  62.            [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] object [b][color=RED])[/color][/b]
  63.              [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
  64.                [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  65.                  [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] x [b][color=RED])[/color][/b]
  66.                    [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b]
  67.                      [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TagString[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-TextString[/color][/b] x[b][color=RED])[/color][/b]
  68.                    [b][color=RED])[/color][/b]
  69.                  [b][color=RED])[/color][/b]
  70.                [b][color=RED])[/color][/b]
  71.                [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b]
  72.                  [b][color=RED]([/color][/b][b][color=BLUE]vlax-safearray->list[/color][/b]
  73.                    [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
  74.                      [b][color=RED]([/color][/b][b][color=BLUE]vla-getAttributes[/color][/b] object[b][color=RED])[/color][/b]
  75.                    [b][color=RED])[/color][/b]
  76.                  [b][color=RED])[/color][/b]
  77.                  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b]
  78.                    [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
  79.                      [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-error-p[/color][/b]
  80.                        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] x
  81.                          [b][color=RED]([/color][/b][b][color=BLUE]vl-catch-all-apply[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b] [b][color=Blue]vlax-safearray->list[/color][color=RED])[/color][/b]
  82.                            [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  83.                              [b][color=RED]([/color][/b][b][color=BLUE]vlax-variant-value[/color][/b]
  84.                                [b][color=RED]([/color][/b][b][color=BLUE]vla-getConstantAttributes[/color][/b] object[b][color=RED])[/color][/b]
  85.                              [b][color=RED])[/color][/b]
  86.                            [b][color=RED])[/color][/b]
  87.                          [b][color=RED])[/color][/b]
  88.                        [b][color=RED])[/color][/b]
  89.                      [b][color=RED])[/color][/b]
  90.                    [b][color=RED])[/color][/b]
  91.                    x
  92.                  [b][color=RED])[/color][/b]
  93.                [b][color=RED])[/color][/b]
  94.              [b][color=RED])[/color][/b]
  95.            [b][color=RED])[/color][/b]
  96.            [b][color=RED]([/color][/b][b][color=BLUE]vlax-ename->vla-object[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  97.          [b][color=RED])[/color][/b]
  98.        [b][color=RED])[/color][/b]
  99.      [b][color=RED])[/color][/b]
  100.    [b][color=RED])[/color][/b]
  101.  [b][color=RED])[/color][/b]
  102.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  103. [b][color=RED])[/color][/b]
  105. [i][color=#990099];;--------------------=={ String Parser }==-------------------;;[/color][/i]
  106. [i][color=#990099];;                                                            ;;[/color][/i]
  107. [i][color=#990099];;  Separates a string into a list of strings using a         ;;[/color][/i]
  108. [i][color=#990099];;  specified delimiter string                                ;;[/color][/i]
  109. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  110. [i][color=#990099];;  Author: Lee McDonnell, 2010                               ;;[/color][/i]
  111. [i][color=#990099];;                                                            ;;[/color][/i]
  112. [i][color=#990099];;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;[/color][/i]
  113. [i][color=#990099];;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;[/color][/i]
  114. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  115. [i][color=#990099];;  Arguments:                                                ;;[/color][/i]
  116. [i][color=#990099];;  str - string to process                                   ;;[/color][/i]
  117. [i][color=#990099];;  del - delimiter by which to separate the string           ;;[/color][/i]
  118. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  119. [i][color=#990099];;  Returns:  A list of strings                               ;;[/color][/i]
  120. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  122. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:StringParser [b][color=RED]([/color][/b] str del [b][color=RED])[/color][/b]
  123.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  124.  [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]
  125.    [b][color=RED]([/color][/b][b][color=BLUE]vl-remove[/color][/b] [b][color=#a52a2a]""[/color][/b]
  126.      [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]
  127.        [b][color=RED]([/color][/b]LM:StringParser
  128.          [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
  129.        [b][color=RED])[/color][/b]
  130.      [b][color=RED])[/color][/b]
  131.    [b][color=RED])[/color][/b]
  132.    [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] str[b][color=RED])[/color][/b]
  133.  [b][color=RED])[/color][/b]
  134. [b][color=RED])[/color][/b]
  136. [i][color=#990099];;-------------------=={ List to String }==-------------------;;[/color][/i]
  137. [i][color=#990099];;                                                            ;;[/color][/i]
  138. [i][color=#990099];;  Constructs a string from a list of strings separating     ;;[/color][/i]
  139. [i][color=#990099];;  each element by a specified delimiter                     ;;[/color][/i]
  140. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  141. [i][color=#990099];;  Author: Lee McDonnell, 2010                               ;;[/color][/i]
  142. [i][color=#990099];;                                                            ;;[/color][/i]
  143. [i][color=#990099];;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;[/color][/i]
  144. [i][color=#990099];;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;[/color][/i]
  145. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  146. [i][color=#990099];;  Arguments:                                                ;;[/color][/i]
  147. [i][color=#990099];;  lst - a list of strings to process                        ;;[/color][/i]
  148. [i][color=#990099];;  del - delimiter by which to separate each list element    ;;[/color][/i]
  149. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  150. [i][color=#990099];;  Returns:  String containing each string in the list       ;;[/color][/i]
  151. [i][color=#990099];;------------------------------------------------------------;;[/color][/i]
  153. [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]
  154.  [i][color=#990099];; © Lee Mac 2010[/color][/i]
  155.  [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]
  156.    [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]
  157.    [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] lst[b][color=RED])[/color][/b]
  158.  [b][color=RED])[/color][/b]
  159. [b][color=RED])[/color][/b]
  161.    
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

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

© 2020-2025 乐筑天下

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