乐筑天下

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

[编程交流] 几个简单的lisp routin

[复制链接]

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 19:41:32 | 显示全部楼层 |阅读模式
我不是一个Lisp程序的大师,但偶尔我也会写一些
简单的例行程序可以提高我的工作效率。我一直在用这些所以
这些已经过测试。
 
这是层隔离:lai型
 
(defun C:lai()(命令“layiso”PAUSE““P”)
(提示“nlayer已隔离。”)
 
 
这是用于层单选的:类型lau
 
 
(defun C:lau()(命令“layunso”PAUSE““P”)
)
 
 
最后一个是针对我们这些使用autocadclassic工作区的人
它将打开阵列对话框。类型acl
 
 
(defun c:acl()(命令“arrayclassic”)
)
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 19:54:38 | 显示全部楼层
1.当你发布代码时,一定要把它放在括号里,否则mods会对你大喊大叫。
 
2.你为什么不更新acad。pgp添加命令?似乎您的代码只是在更改普通命令的命令调用。只有我的2美分
回复

使用道具 举报

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 19:59:54 | 显示全部楼层
谢谢你的提醒。我不确定括号是什么。
我写了一些类似lisp的小东西来执行命令击键
我会记住一些简短的事情。我有自己的lisp文件
在过去的20年里,我一直在添加。
我不会弄乱pgp文件。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 20:08:40 | 显示全部楼层
发布时,在开始处使用#选项或[c o d e],在结束处使用[c o d e](没有空格仅用于显示)
回复

使用道具 举报

5

主题

1074

帖子

1088

银币

初来乍到

Rank: 1

铜币
9
发表于 2022-7-5 20:16:06 | 显示全部楼层
 
我对这一点很陌生(7年了),也许有一段时间我是个新手。pgp有点让人望而却步,但现在,不要害怕。
如果你敢打开你的门。pgp文件,工具(在菜单栏中)在列表底部附近向下自定义,然后单击编辑pgp,
还有你的。pgp将在记事本中打开。如果你一直滚动到那一长串东西的底部,你会来到一个想要个性化的区域,如屏幕截图所示。在新安装中,它将是空的,等待您添加任何自定义缺点。不需要编辑此节期间以上的任何内容。稍后,在输入任何个性化设置后,您需要以所示的格式保存。pgp。添加一些内容后,使用REINIT命令将其立即投入使用,而无需重新启动。
 
下次您迁移到新版本时,所有这些自定义项都将自动随车提供,如果有任何冲突,它们将超越本节上面的默认别名。这意味着,如果您使用默认ootb列表中使用的别名,则它将被接受并更改为您的规范。
 
还是害怕吗?
还有一种更简单的方法,ALIASEDIT命令,它将为您执行完全相同的操作,但不需要打开可怕的。这一切都将在屏幕上的一个小对话框中完成。只需在关闭对话框之前确认任何更改。这个命令将把它们写入同一个用户定义的别名部分,没有混乱,没有混乱。
 
我也使用工具栏,在我看来,你可能不熟悉LAYERS 2工具栏上的所有优秀工具。看看他们,你会很高兴你做到了。你可能只是遇到了几个老朋友,以及一些新的(层走很酷)之一。
204136ob69bn9l6y6lyz5j.jpg
204139zfopu5z5pfummxno.jpg
204140kzzlvs6ukxputlz6.jpg
204142enr55n52k5wb11e1.jpg
回复

使用道具 举报

12

主题

152

帖子

140

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 20:20:43 | 显示全部楼层
这很有趣,因为pgp是我第一次被教如何编辑以自定义autocad。。。
回复

使用道具 举报

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 20:28:14 | 显示全部楼层
很少有人不使用lisp来做任何事情,但在本例中,您使用的是具有某些功能的命令,在本例中,这些功能是您自己掌握的。也就是说,不要停止使用LISP让你的生活变得更轻松。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 20:40:16 | 显示全部楼层
我们有自动加载。lsp只在启动时加载,所以我们的所有别名都在其中,更新到新版本时只需少一步。它甚至在其快照设置中有4种方式的首选项,以适合人们喜欢的工作方式。
 
Re toolbars考虑从许多工具栏中窃取一些信息,以使其变得更易于使用。将其另存为MNU文件,只需菜单加载即可。我只是用崔和笔记本打开的同时,复制和粘贴之间的两个得到正确的代码。
 
  1. ***MENUGROUP=ALANSTOOLBAR
  2. ***TOOLBARS
  3. **ALANSTOOLS
  4. ID_ALAN_0    [_Toolbar("Alans1", _Right, _Show, 0, 0, 1)]
  5. AECC_ShowTS  [_Button("Show Toolspace", RCDATA_16_IMAGE, RCDATA_16_IMAGE)]^C^C^C^P_ShowTS
  6. ID_Matchprop [_Button("Match Properties", RCDATA_16_MATCH, RCDATA_16_MATCH)]^C^C_matchprop
  7. ID_Erase     [_Button("Erase", RCDATA_16_ERASE, RCDATA_32_ERASE)]^C^C_erase
  8. ID_Copy      [_Button("Copy", RCDATA_16_COPYOB, RCDATA_32_COPYOB)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
  9. ID_Mirror    [_Button("Mirror", RCDATA_16_MIRROR, RCDATA_32_MIRROR)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_mirror)
  10. ID_Offset    [_Button("Offset", RCDATA_16_OFFSET, RCDATA_32_OFFSET)]^C^C_offset
  11. ID_Array     [_Button("Array...", RCDATA_16_ARRREC, RCDATA_32_ARRREC)]^C^C_array
  12. ID_Move      [_Button("Move", RCDATA_16_MOVE, RCDATA_32_MOVE)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
  13. ID_Rotate    [_Button("Rotate", RCDATA_16_ROTATE, RCDATA_32_ROTATE)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)
  14. ID_Scale     [_Button("Scale", RCDATA_16_SCALE, RCDATA_32_SCALE)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_scale,^C^C_scale)
  15. ID_Stretch   [_Button("Stretch", RCDATA_16_STRETC, RCDATA_32_STRETC)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_stretch,^C^C_stretch)
  16. ID_Trim      [_Button("Trim", RCDATA_16_TRIM, RCDATA_32_TRIM)]^C^C_trim
  17. ID_Extend    [_Button("Extend", RCDATA_16_EXTEND, RCDATA_32_EXTEND)]^C^C_extend
  18. ID_BreakSele [_Button("Break at Point", RCDATA_16_BREAKATPT, RCDATA_32_BREAKATPT)]^C^C_break \_f \@
  19. ID_Break     [_Button("Break", RCDATA_16_BRE2PT, RCDATA_32_BRE2PT)]^C^C_break
  20. ID_Join      [_Button("Join", RCDATA_16_JOIN, RCDATA_32_JOIN)]^C^C_join
  21. ID_Chamfer   [_Button("Chamfer", RCDATA_16_CHAMFE, RCDATA_32_CHAMFE)]^C^C_chamfer
  22. ID_Fillet    [_Button("Fillet", RCDATA_16_FILLET, RCDATA_32_FILLET)]^C^C_fillet
  23. ID_Explode   [_Button("Explode", RCDATA_16_EXPLODE, RCDATA_32_EXPLODE)]^C^C_explode
  24. ID_LAYFRZ    [_Button("Layer, Layer Freeze", RCDATA_16_FRZLAY, RCDATA_32_FRZLAY)]^C^C_layfrz
  25. ID_LAYOFF    [_Button("Layer Off", RCDATA_16_OFFLAY, RCDATA_32_OFFLAY)]^C^C_layoff
  26. ID_LAYISO    [_Button("Layer Isolate", RCDATA_16_LAYISO,RCDATA_32_LAYISO)]^C^C_layiso
  27. MM_LAYUNISO  [_Button("Layer Unisolate", RCDATA_16_LAYUNISO, RCDATA_32_LAYUNISO)]^C^C_Layuniso
  28. ID_LAYDEL    [_Button("Layer, Layer Delete", RCDATA_16_LAYER_DELETE,RCDATA_32_LAYER_DELETE)]^C^C_laydel
  29. ID_Line      [_Button("Line", RCDATA_16_LINE,RCDATA_32_LINE)]^C^C_line
  30. MM_1608      [_Button("Circle", RCDATA_16_CIRRAD,RCDATA_32_CIRRAD)]^C^C_circle
  31. MM_1607      [_Button("Arc", RCDATA_16_ARC3PT,RCDATA_32_ARC3PT)]^C^C_arc
  32. ID_Pline     [_Button("Polyline", RCDATA_16_PLINE,RCDATA_32_PLINE)]^C^C_pline
  33. ID_Pedit     [_Button("Polyline Edit", RCDATA_16_PEDIT, RCDATA_32_PEDIT)]^C^C_pedit
  34. ID_DrawordeB [_Button("Draw Order, Send to Back", RCDATA_16_SN2BCK,RCDATA_32_SN2BCK)]^C^C^P_ai_draworder _Back ^P
  35. ID_Appload   [_Button("Load Application...", RCDATA_16_LOAD_APPLICATIONS,RCDATA_16_LOAD_APPLICATIONS)]^C^C_appload
  36. **ALANSTOOLS2
  37. ID_ALAN_1    [_Toolbar("Alans2", _LEFT, _Show, 50,50, 1)]
  38. CL           [_Button("Draw Cl", COGGCL.BMP, COGGCL.BMP)]^C^C^C-la s Design-Cl  line;
  39. Lip          [_Button("Draw Lip", COGGLIP.BMP, COGGLIP.BMP)]^C^C^C-la s Design-Lip  line;
  40. Bok          [_Button("Draw Bok", COGGBOK.BMP, COGGBOK.BMP)]^C^C^C-la s Design-Bok  line;
  41. Conc         [_Button("Draw Design Line", "S:\AutoDESK\ICONS\COGGCONC.BMP", "S:\AutoDESK\ICONS\COGGCONC.BMP")]^C^C^C-la s Design-General  line;
  42. Drive        [_Button("Draw Driveway", RCDATA_16_THICKEN, RCDATA_32_THICKEN)]^C^C^C-la s Design-Driveway  line;
  43. Draincl      [_Button("Draw Drain Cl", RCDATA_16_LINE, RCDATA_32_LINE)]^C^C^C-la s Design-Drainage-Cl  line;
  44. Draininv     [_Button("Draw Drain Inv", RCDATA_16_OSNPAR, RCDATA_32_OSNPAR)]^C^C^C-la s Design-Drainage-Invert  line;
  45. Drainpit     [_Button("Draw Drain Pit", RCDATA_16_EXTRACT_EDGES, RCDATA_32_EXTRACT_EDGES)]^C^C^C-la s Design-Drainage-Pits  line;
  46. Housedrain   [_Button("Draw House Drain", RCDATA_16_OSNNEA, RCDATA_32_OSNNEA)]^C^C^C-la s Design-Drainage-House-drain  line;
  47. Linemark     [_Button("Draw Linemarking", RCDATA_16_DIMARC, RCDATA_32_DIMARC)]^C^C^C-la s Design-Linemarkings  line;
  48. Hatch        [_Button("Draw Road hatch", RCDATA_16_MYWORKSPACE, RCDATA_32_MYWORKSPACE)]^C^C^C-la s Design-Hatch  hatch;
  49. Pathatch     [_Button("Draw Path hatch", RCDATA_16_WALK-THROUGH_SAVE, RCDATA_32_WALK-THROUGH_SAVE)]^C^C^C-la s Design-Hatch-path  hatch;
  50. Nathatch     [_Button("Draw Nature hatch", RCDATA_16_RECTAN, RCDATA_32_RECTAN)]^C^C^C-la s Design-Hatch-naturestrip  hatch;
  51. Text         [_Button("Draw Text 1", RCDATA_16_MTEXT, RCDATA_32_MTEXT)]^C^C^C-la s Text  text;
  52. Text2        [_Button("Draw Text 2", RCDATA_16_SINGLE_DTEXT, RCDATA_32_SINGLE_DTEXT)]^C^C^C-la s Text  text;
  53. MiddlePt     [_Button("Middle 2 pts","COGGMTP.BMP","COGGMTP.BMP")]MTP;
  54. ZZZ          [_Button("Command","COGGZZZ.BMP","COGGZZZ.BMP")]^c^cZZZ;
  55. Alloff       [_Button("All Off","Alloff.BMP","alloff.BMP")]^c^c^c(setq surface "_COGG All Off")(load "vercheck")(load "listselect")(load "changecontours6")
  56. 50mm         [_Button("50mm cont","50mm.bmp","50mm.bmp")]^c^c^c(setq surface "_COGG NS 0.05 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
  57. 100mm        [_Button("100mm cont","100mm.BMP","100mm.BMP")]^c^c^c(setq surface "_COGG NS 0.1 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
  58. 200mm        [_Button("200mm cont","200mm.BMP","200mm.BMP")]^c^c^c(setq surface "_COGG NS 0.2 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
  59. 500mm        [_Button("0.50m cont","500mm.BMP","500mm.BMP")]^c^c^c(setq surface "_COGG NS 0.5m Contours")(load "vercheck")(load "listselect")(load "changecontours6")
  60. 1m           [_Button("1m cont","1m.BMP","1m.BMP")]^c^c^c(setq surface "_COGG NS 1m Contours" )(load "vercheck")(load "listselect")(load "changecontours6")
  61. Triangles    [_Button("Triangles","TRI.BMP","TRI.BMP")]^c^c^c(setq surface "_COGG NS Triangles" )(load "vercheck")(load "listselect")(load "changecontours6")
  62. Slope        [_Button("Slope","RCDATA_16_SM_EXTEND","RCDATA_32_SM_EXTEND")]^c^c^c(setq surface "_COGG Slope Arrows & Catchments" )(if (not AH:Vercheck)(load "vercheck"))(if (not AT:ListSelect)(load "listselect"))(if (not AH:Changecont)(load "changecontours6"))
  63. Delard       [_Button("Delard","RCDATA_16_MAPRSREMOVE","RCDATA_32_MAPRSREMOVE")]^c^c^c(if (not XXX)(LOAD "del-ard") ) xxx
  64. ID_Ddim      [_Button("Dim Style",RCDATA_16_DIMSTY,RCDATA_32_DIMSTY)]^c^c_dimstyle
  65. ID_Dimaligned[_Button("Dim align",RCDATA_16_DIMALI,RCDATA_32_DIMALI)]^c^c_dimaligned
  66. ID_Dimlinear [_Button("Dim Lin",RCDATA_16_DIMLIN,RCDATA_32_DIMLIN)]^C^C_dimlinear
  67. ID_Mleader_Style[_button("MLEADERSTYLE",RCDATA_16_ML_STYLE,RCDATA_32_ML_STYLE)]^c^c_mleaderst
  68. M2P          [_Button("M2P","M2P.BMP","M2P.BMP")](command "M2P")
回复

使用道具 举报

2

主题

15

帖子

13

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 20:42:00 | 显示全部楼层
谢谢各位,
你可以教老狗新把戏。我知道当我发现这个地方的时候
是一个有丰富知识和知识的人里面。
我有很多事情要做。我一直相信虽然下拉菜单
工具栏很棒,我花在找东西上的时间不是花在找东西上的时间
绘画这就是我Lisp程序的原因。我编译了一个大型lisp例程,我已经
加上90年代以来我记得的所有短击键命令
所以我可以让打字的手和鼠标的手保持一致。用这些新把戏
我也许可以删掉我的lisp文件。
再次感谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 01:12 , Processed in 0.755548 second(s), 83 queries .

© 2020-2025 乐筑天下

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