乐筑天下

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

[编程交流] Lisp程序

[复制链接]
kingisland99762

4

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 12:13:03 | 显示全部楼层 |阅读模式
下面是我想通过使用lisp例程实现的功能：
将所有线条和线型放置在图层“0”上
检查所有文本是否位于层“0”上，如果不是，则放置在层“0”上
将所有文字样式更改为Arial
删除tiff图像，无论其位于哪一层
删除层名称Tiff\U图像
清除所有文件至少3次，以确保文件中没有任何内容
最大化显示
快速保存
关
有人能帮我完成这项任务吗？
回复

使用道具 举报

JohnM

4

主题

327

帖子

324

银币

初来乍到

Rank: 1

铜币
19
发表于 2022-7-6 12:23:46 | 显示全部楼层
将所有线条和线型放置在层“0”上（这是什么意思？）
检查所有文本是否位于层“0”上，如果不是，则放置在层“0”上（完成）
将所有文本样式更改为Arial（您有一种名为Arial的样式，还是您指的是字体？）
删除tiff图像，无论其位于哪一层（完成）
删除层名称Tiff_图像（如果该层上没有其他对象，则清除将解决此问题）
清除所有文件至少3次，以确保文件中没有任何内容
（完成）
最大化显示（完成）
快速保存（完成）
关闭（完成）
 
  1.  
  2. (defun c:tip (/ ss ss1 en1 cnt en pth)
  4. ;;; change all text not on layer 0 to layer 0
  5.   (setq ss1(ssget "X"
  6.        '((0 . "MTEXT,TEXT")(410 . "Model")
  7.        (-4 . "<NOT")(8 . "0")(-4 . "NOT>"))
  8.        );_ssget
  9.        );_setq
  10.   (if ss1
  11.        (progn
  12. (setq cnt 0)
  13.        (while (< cnt (sslength ss1))
  14. (setq en1(vlax-ename->vla-object(ssname ss1 cnt)))
  15.        (vla-put-layer en1 "0")
  16.        (setq cnt (1+ cnt))
  17.        );_while
  18.        );_progn
  19.        );_if
  20.   ;;;***delete all TIFF files in model space
  21. (setq ss (ssget "_X" '((0 . "IMAGE")(410 . "Model"))))
  22.   (if ss
  23.        (progn
  24. (setq cnt 0)       
  25. (while (< cnt (sslength ss))
  26.       (setq en(vlax-ename->vla-object(ssname ss cnt)))                 
  27. (setq pth(vla-get-imagefile en))
  28.        (if(=(strcase(vl-filename-extension pth))".TIFF")
  29. (command "-image" "detach" (vl-filename-base pth))
  30.        );_if
  31. (setq cnt (1+ cnt))
  32.        );_while
  33.        );_progn
  34.        );_if
  35.   ;;;*** purge 3 times***
  36.   (command "-purge" "ALL" "" "NO")
  37.   (command "-purge" "ALL" "" "NO")
  38.   (command "-purge" "ALL" "" "NO")
  40.   ;;;*** zoom extence
  41.   (command "zoom" "extents")
  43.   ;;;*** quick save
  44.   (command "qsave")
  46.   ;;;*** close
  47.   (command "close")
  48.   (princ)
  49.  );_defun

 
因为我只做了一半的工作，所以我只收50万美元
请记入我的paypal帐户。
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 12:29:45 | 显示全部楼层
该死！我想要一块。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:34:15 | 显示全部楼层
我找了，但没找到。如何在纯Autolisp中找到图像文件名-大卫
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 12:39:42 | 显示全部楼层
它在字典里。。。。。。我很确定这是真的。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:48:05 | 显示全部楼层
谢谢我去看看-大卫
回复

使用道具 举报

fixo

1

主题

1069

帖子

1050

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
69
发表于 2022-7-6 12:50:21 | 显示全部楼层
当然是的
  2. (setq imagename (cdr (assoc 1
  3.        (entget (cdr (assoc 340 (entget en))))))

 
~'J'~
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 12:58:44 | 显示全部楼层
 
谢谢
 
那么，我会尝试这样的方式：
 
  1. [b][color=BLACK]([/color][/b]defun c:cande [b][color=FUCHSIA]([/color][/b]/ ss i en ed im[b][color=FUCHSIA])[/color][/b]
  3.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"*LINE,*TEXT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  4.       [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.CHANGE"[/color] ss [color=#2f4f4f]""[/color] [color=#2f4f4f]"_P"[/color] [color=#2f4f4f]"_LA"[/color] [color=#2f4f4f]"0"[/color] [color=#2f4f4f]""[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  6.  [b][color=FUCHSIA]([/color][/b]cond [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"STYLE"[/color] [color=#2f4f4f]"ARIAL"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  7.        [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]or [b][color=GREEN]([/color][/b]findfile [color=#2f4f4f]"ARIAL.SHX"[/color][b][color=GREEN])[/color][/b]
  8.             [b][color=GREEN]([/color][/b]findfile [color=#2f4f4f]"ARIAL.PFB"[/color][b][color=GREEN])[/color][/b]
  9.             [b][color=GREEN]([/color][/b]findfile [color=#2f4f4f]"ARIAL.TTF"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  10.         [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_.STYLE"[/color] [color=#2f4f4f]"ARIAL"[/color] [color=#2f4f4f]"ARIAL"[/color][b][color=MAROON])[/color][/b]
  11.         [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]
  12.                [b][color=GREEN]([/color][/b]command [color=#2f4f4f]""[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  13.        [b][color=NAVY]([/color][/b]T
  14.         [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_.STYLE"[/color] [color=#2f4f4f]"ARIAL"[/color] [color=#2f4f4f]"TXT"[/color][b][color=MAROON])[/color][/b]
  15.         [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]
  16.                [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]
  18.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"*TEXT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  19.       [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]sslength ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  20.       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1- i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  21.              [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b]
  22.                    ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  23.              [b][color=MAROON]([/color][/b]entmod [b][color=GREEN]([/color][/b]subst [b][color=BLUE]([/color][/b]cons 7 [color=#2f4f4f]"ARIAL"[/color][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc 7 ed[b][color=BLUE])[/color][/b] ed[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  25.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"IMAGE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  26.       [b][color=NAVY]([/color][/b]setq i [b][color=MAROON]([/color][/b]sslength ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  27.       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]minusp [b][color=BLUE]([/color][/b]setq i [b][color=RED]([/color][/b]1- i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  28.              [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b]
  29.                    im [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 1 [b][color=RED]([/color][/b]entget [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 340 [b][color=OLIVE]([/color][/b]entget en[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  30.              [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]= [color=#2f4f4f]".TIF"[/color] [b][color=BLUE]([/color][/b]substr im [b][color=RED]([/color][/b]- [b][color=PURPLE]([/color][/b]strlen im[b][color=PURPLE])[/color][/b] 4[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  31.                  [b][color=GREEN]([/color][/b]entdel en[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  33.  [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]> [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"DBMOD"[/color][b][color=MAROON])[/color][/b] 0[b][color=NAVY])[/color][/b]
  34.         [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.PURGE"[/color] [color=#2f4f4f]"_All"[/color] [color=#2f4f4f]"_No"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  36.  [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.ZOOM"[/color] [color=#2f4f4f]"_E"[/color]
  37.           [color=#2f4f4f]"_.QSAVE"[/color]
  38.           [color=#2f4f4f]"_.CLOSE"[/color][b][color=FUCHSIA])[/color][/b]
  40.  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
未经测试-David
回复

使用道具 举报

kingisland99762

4

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 13:02:10 | 显示全部楼层
嘿，非常感谢，付款将由阿拉斯加的狗队发送，到达后请告诉我。。。。。。
 
吉米
回复

使用道具 举报

mdbdesign

22

主题

272

帖子

254

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2022-7-6 13:12:09 | 显示全部楼层
 
犬因H1N1在加拿大边境被拦下
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 10:32 , Processed in 0.435832 second(s), 72 queries .

© 2020-2025 乐筑天下

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