乐筑天下

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

[编程交流] lisp preform se存在问题

[复制链接]
Bhull1985

15

主题

243

帖子

228

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-6 06:57:39 | 显示全部楼层
非常感谢大家帮助我们解决这个问题。
我们发现有效的方法是在break命令中添加if语句：
  2.      (action_tile "Slide12" 
  3.       "(progn
  4.           (setq Return$ Slide12$)(setq doAction 'T)
  5.           (done_dialog)
  6.        )"
  7.     )
  9. (action_tile
  10.    "cancel"
  11.      "(done_dialog) (setq doAction nil)")
  13.   (start_dialog)
  14.   (unload_dialog Dcl_Id%)
  16. (if doAction (SmallVLVInsert))
  18. (princ)
  19. );defun c:Smallvalves
  21. ;---------------------------------------------------------------------------------
  22. (done_dialog)
  24. (defun SmallVLVInsert ( / ss p2 p3)
  25. (done_dialog)
  26. (command "attreq" "0")
  27. (if (eq 16384 (logand 16384 (getvar "osmode")))
  28. (setvar "OSMODE" (boole 6 (getvar "OSMODE") 16384)))
  29. (command "snap" "0.0625")
  30. (setq insertpt1 (getpoint "\nPick Insertion Point on line: "))
  31. (if (not (tblsearch "layer" "pid"))
  32.  (entmake
  33.    (list
  34.      (cons 0 "Layer")
  35.      (cons 100 "AcDbSymbolTableRecord")
  36.      (cons 100 "AcDbLayerTableRecord") 
  37.      (cons 2 "pid")
  38.      (cons 70 0)
  39.      (cons 62 3)
  40.     (cons 6 "Continuous")
  41. )))
  42. (setq Snap (getvar "osmode"))     
  43. (setvar "clayer" "pid")
  44. (command "_insert" Return$ insertpt1 "" "" "")
  45. (while (not ss)
  46.  (setq ss (entsel "\nSelect line to break: "))
  47.  );while
  48.   (setvar 'osmode 613)
  49.   (setq p3 (getpoint "\nPick valve center:")
  50.         p2 (angle p3 (cadr ss)))
  51. (if ( = slide1$ slide2$ slide3$ slide4$ slide5$ slide6$)
  52.   (progn
  53.       (command "break" ss "f" (polar p3 p2 0.09375)
  54.                               (polar p3 p2 -0.09375))
  55.    )
  56.   (progn 
  57.       (command "break" ss "f" (polar p3 p2 0.1172)
  58.                               (polar p3 p2 -0.1172))
  59.    )
  60. )
  61.  (setvar "cmdecho" 1)
  62.  (princ)
  63.  (setvar "osmode" Snap)
  64. );if

 
 
这允许我们只保留一个可变doAction，但如果选择了幻灯片1到6，则允许例程中断较短的长度，并中断另一个较长的长度“ELSE”（在我们的情况下，是幻灯片7到幻灯片12）
 
我将尝试Henrique的第二个变量，以防需要传递两个以上的函数，即this或this，因为它在这里。lsp，但有时我们可能需要让lisp做这个、这个、这个、这个或那个。
在后一种情况下，我认为设置更多的变量会很有用。
 
我会附上lsp和dcl文件，这样如果你们中有人想让我知道如何改进我们的代码，因为这都是自学的，已经让我和其他人的眼睛检查过了。也许更多的人会提供建议。
再次感谢。
 
*附件对我不起作用，我将用代码括号括起来*
 
  2. (defun c:smallvalves (/ Dcl_Id% Folder$ Slides@ Slide1$ Slide2$ Slide3$ Slide4$ Slide5$ Slide6$ Slide7$ Slide8$ Slide9$ Slide10$ Slide11$ Slide12$  
  3. Return$ X# Y#)
  4.  
  5. (princ "\nSmall Manually Operated Valves")(princ)
  6.    ; Set Default Variables
  7.   (setq Slides@ (list nil "SMALL GATE VALVE" "SMALL BALL VALVE" "SMALL GLOBE VALVE" "SMALL CHECK VALVE" "SMALL BUTTERFLY VALVE" "SMALL NEEDLE VALVE" 
  8. "FLANGED SMALL GATE VALVE" "FLANGED SMALL BALL VALVE" "FLANGED SMALL GLOBE VALVE" "FLANGED SMALL CHECK VALVE" "FLANGED SMALL BUTTERFLY VALVE" "FLANGED 
  9. SMALL NEEDLE VALVE")
  10.         Slide1$ (nth 1 Slides@)
  11.         Slide2$ (nth 2 Slides@)
  12.         Slide3$ (nth 3 Slides@)
  13.         Slide4$ (nth 4 Slides@)
  14.         Slide5$ (nth 5 Slides@)
  15.         Slide6$ (nth 6 Slides@)
  16.         Slide7$ (nth 7 Slides@)
  17.         Slide8$ (nth 8 Slides@)
  18.         Slide9$ (nth 9 Slides@)
  19.         Slide10$ (nth 10 Slides@)
  20.         Slide11$ (nth 11 Slides@)
  21.         Slide12$ (nth 12 Slides@)
  22.         Folder$ ""
  23.         Return$ ""
  24.   );setq
  25.    ; Load Dialog
  26.   (setq Dcl_Id% (load_dialog "smallvalves.dcl"))
  27.   (new_dialog "smallvalves" Dcl_Id%)
  29.    ; Set Dialog Initial Settings
  30.   (set_tile "Title" "EQUIPMENT - DRUMS AND TANKS")
  31.   (set_tile "SMALL GATE VALVE" Slide1$)
  32.   (set_tile "SMALL BALL VALVE" Slide2$)
  33.   (set_tile "SMALL GLOBE VALVE" Slide3$)
  34.   (set_tile "SMALL CHECK VALVE" Slide4$)
  35.   (set_tile "SMALL BUTTERFLY VALVE" Slide5$)
  36.   (set_tile "SMALL NEEDLE VALVE" Slide6$)
  37.   (set_tile "FLANGED SMALL GATE VALVE" Slide7$)
  38.   (set_tile "FLANGED SMALL BALL VALVE" Slide8$)
  39.   (set_tile "FLANGED SMALL GLOBE VALVE" Slide9$)
  40.   (set_tile "FLANGED SMALL CHECK VALVE" Slide10$)
  41.   (set_tile "FLANGED SMALL BUTTERFLY VALVE" Slide11$)
  42.   (set_tile "FLANGED SMALL NEEDLE VALVE" Slide12$)
  44.    ; Adjust X# and Y# per image_buttom outline to fit slide_image
  45.   (start_image "Slide1")
  46.   (setq X# (- (dimx_tile "Slide1") 2))
  47.   (setq Y# (- (dimy_tile "Slide1") 2))
  48.   (end_image)
  49.   (start_image "Slide1")(slide_image 1 1 X# Y# (strcat Folder$ Slide1$))(end_image)
  50.   (start_image "Slide2")(slide_image 1 1 X# Y# (strcat Folder$ Slide2$))(end_image)
  51.   (start_image "Slide3")(slide_image 1 1 X# Y# (strcat Folder$ Slide3$))(end_image)
  52.   (start_image "Slide4")(slide_image 1 1 X# Y# (strcat Folder$ Slide4$))(end_image)
  53.   (start_image "Slide5")(slide_image 1 1 X# Y# (strcat Folder$ Slide5$))(end_image)
  54.   (start_image "Slide6")(slide_image 1 1 X# Y# (strcat Folder$ Slide6$))(end_image)
  55.   (start_image "Slide7")(slide_image 1 1 X# Y# (strcat Folder$ Slide7$))(end_image)
  56.   (start_image "Slide8")(slide_image 1 1 X# Y# (strcat Folder$ Slide8$))(end_image)
  57.   (start_image "Slide9")(slide_image 1 1 X# Y# (strcat Folder$ Slide9$))(end_image)
  58.   (start_image "Slide10")(slide_image 1 1 X# Y# (strcat Folder$ Slide10$))(end_image)
  59.   (start_image "Slide11")(slide_image 1 1 X# Y# (strcat Folder$ Slide11$))(end_image)
  60.   (start_image "Slide12")(slide_image 1 1 X# Y# (strcat Folder$ Slide12$))(end_image)
  62.     ; Dialog Actions
  64.    (action_tile "Slide1" 
  65.       "(progn
  66.           (setq Return$ Slide1$)(setq doAction 'T)
  67.           (done_dialog)
  68.        )"
  69.     )
  71.      (action_tile "Slide2" 
  72.       "(progn
  73.           (setq Return$ Slide2$)(setq doAction 'T)
  74.           (done_dialog)
  75.        )"
  76.     )
  77.     (action_tile "Slide3" 
  78.       "(progn
  79.           (setq Return$ Slide3$)(setq doAction 'T)
  80.           (done_dialog)
  81.        )"
  82.     )
  83.       (action_tile "Slide4" 
  84.       "(progn
  85.           (setq Return$ Slide4$)(setq doAction 'T)
  86.           (done_dialog)
  87.        )"
  88.     )
  89.      (action_tile "Slide5" 
  90.       "(progn
  91.           (setq Return$ Slide5$)(setq doAction 'T)
  92.           (done_dialog)
  93.        )"
  94.     )
  95.      (action_tile "Slide6" 
  96.       "(progn
  97.           (setq Return$ Slide6$)(setq doAction 'T)
  98.           (done_dialog)
  99.        )"
  100.     )
  101.  
  102.   (action_tile "Slide7" 
  103.       "(progn
  104.           (setq Return$ Slide7$)(setq doAction 'T)
  105.           (done_dialog)
  106.        )"
  107.     )
  109.      (action_tile "Slide8" 
  110.       "(progn
  111.           (setq Return$ Slide8$)(setq doAction 'T)
  112.           (done_dialog)
  113.        )"
  114.     )
  116.      (action_tile "Slide9" 
  117.       "(progn
  118.           (setq Return$ Slide9$)(setq doAction 'T)
  119.           (done_dialog)
  120.        )"
  121.     )
  123.      (action_tile "Slide10" 
  124.       "(progn
  125.           (setq Return$ Slide10$)(setq doAction 'T)
  126.           (done_dialog)
  127.        )"
  128.     )
  130.       (action_tile "Slide11" 
  131.       "(progn
  132.           (setq Return$ Slide11$)(setq doAction 'T)
  133.           (done_dialog)
  134.        )"
  135.     )
  137.      (action_tile "Slide12" 
  138.       "(progn
  139.           (setq Return$ Slide12$)(setq doAction 'T)
  140.           (done_dialog)
  141.        )"
  142.     )
  143.  
  144. (action_tile
  145.    "cancel"
  146.      "(done_dialog) (setq doAction nil)")
  147.          
  148.   (start_dialog)
  149.   (unload_dialog Dcl_Id%)
  151. (if doAction (SmallVLVInsert))
  153. (princ)
  154. );defun c:Smallvalves
  156. ;---------------------------------------------------------------------------------
  157. (done_dialog)
  159. (defun SmallVLVInsert ( / ss p2 p3)
  160. (done_dialog)
  161. (command "attreq" "0")
  162. (if (eq 16384 (logand 16384 (getvar "osmode")))
  163. (setvar "OSMODE" (boole 6 (getvar "OSMODE") 16384)))
  164. (command "snap" "0.0625")
  165. (setq insertpt1 (getpoint "\nPick Insertion Point on line: "))
  166. (if (not (tblsearch "layer" "pid"))
  167.  (entmake
  168.    (list
  169.      (cons 0 "Layer")
  170.      (cons 100 "AcDbSymbolTableRecord")
  171.      (cons 100 "AcDbLayerTableRecord") 
  172.      (cons 2 "pid")
  173.      (cons 70 0)
  174.      (cons 62 3)
  175.     (cons 6 "Continuous")
  176. )))
  177. (setq Snap (getvar "osmode"))     
  178. (setvar "clayer" "pid")
  179. (command "_insert" Return$ insertpt1 "" "" "")
  180. (while (not ss)
  181.  (setq ss (entsel "\nSelect line to break: "))
  182.  );while
  183.   (setvar 'osmode 613)
  184.   (setq p3 (getpoint "\nPick valve center:")
  185.         p2 (angle p3 (cadr ss)))
  186. (if ( = slide1$ slide2$ slide3$ slide4$ slide5$ slide6$)
  187.   (progn
  188.       (command "break" ss "f" (polar p3 p2 0.09375)
  189.                               (polar p3 p2 -0.09375))
  190.    )
  191.   (progn 
  192.       (command "break" ss "f" (polar p3 p2 0.1172)
  193.                               (polar p3 p2 -0.1172))
  194.    )
  195. )
  196.  (setvar "cmdecho" 1)
  197.  (princ)
  198.  (setvar "osmode" Snap)
  199. );if
  200. -------------------------------------------------------------------------------
  201. (defun flansmallInsert ( / ss p4 p5)
  202. (done_dialog)
  203. (command "attreq" "0")
  204. (if (eq 16384 (logand 16384 (getvar "osmode")))
  205. (setvar "OSMODE" (boole 6 (getvar "OSMODE") 16384)))
  206. (command "snap" "0.0625")
  207. (setq insertpt1 (getpoint "\nPick Insertion Point on line: "))
  208. (if (not (tblsearch "layer" "pid"))
  209.  (entmake
  210.    (list
  211.      (cons 0 "Layer")
  212.      (cons 100 "AcDbSymbolTableRecord")
  213.      (cons 100 "AcDbLayerTableRecord") 
  214.      (cons 2 "pid")
  215.      (cons 70 0)
  216.      (cons 62 3)
  217.      (cons 6 "Continuous")
  218. )))
  219. (setq Snap (getvar "osmode"))
  220.      
  221. (setvar "clayer" "pid")
  222. (command "_insert" Return$ insertpt1 "" "" "")
  223. (while (not ss)
  224.  (setq ss (entsel "\nSelect line to break: "))
  225.  );while
  226.   (setvar 'osmode 613)
  227.   (setq p5 (getpoint "\nPick valve center:")
  228.         p4 (angle p5 (cadr ss)))
  229. (command "break" ss "f" (polar p5 p4 0.1172)
  230.                        (polar p5 p4 -0.1172))
  231.  (setvar "cmdecho" 1)
  232.  (princ)
  233.  (setvar "osmode" Snap)
  234. );if
  235. -----------------------------------------------------------------------------

 
 
对于dcl
 
  2.  //---------------------------------------------------------------------------------------------------------
  3. // MySlideImages
  4. //---------------------------------------------------------------------------------------------------------
  5.  smallvalves : dialog {
  6.   key = "Title";
  7.   label = "Small Manually Operated Valves";
  8.   spacer;
  9. : row {
  10.   : column {
  11.     : image_button {
  12.       key = "Slide1";
  13.       height = 3.11;
  14. width = 11.00;
  15. fixed_width = true;
  16. alignment = centered;
  17.       color = -2;
  18. is_cancel = false;
  19.     }
  20.       : text {
  21.         key = "Text1";
  22.         label = "SMALL GATE VLV";
  23. fixed_width = true;
  24. alignment = centered;
  25.       }
  26.  :spacer {height = 1;}
  27.     : image_button {
  28.       key = "Slide2";
  29.       height = 3.11;
  30. width = 11.00;
  31. fixed_width = true;
  32. alignment = centered;
  33.       color = -2;
  34.     }
  35.       : text {
  36.         key = "Text2";
  37.         label = "SMALL BALL VLV";
  38. fixed_width = true;
  39. alignment = centered;
  40.       }
  41.  :spacer {height = 1;}
  42.     : image_button {
  43.       key = "Slide3";
  44.       height = 3.11;
  45. width = 11.00;
  46. fixed_width = true;
  47. alignment = centered;
  48.       color = -2;
  49.     }
  50.       : text {
  51.         key = "Text3";
  52.         label = "SMALL GLOBE VLV";
  53. fixed_width = true;
  54. alignment = centered;
  55.       }
  56.  :spacer {height = 1.2;}
  57.     : image_button {
  58.       key = "Slide4";
  59.       height = 3.11;
  60. width = 11.00;
  61. fixed_width = true;
  62. alignment = centered;
  63.       color = -2;
  64.     }
  65.       : text {
  66.         key = "Text4";
  67.         label = "SMALL CHECK VLV";
  68. fixed_width = true;
  69. alignment = centered;
  70.       }
  71. }
  73.   : column { 
  74.     : image_button {
  75.       key = "Slide5";
  76.       height = 3.11;
  77. width = 11.00;
  78. fixed_width = true;
  79. alignment = centered;
  80.       color = -2;
  81.     }
  82.       : text {
  83.         key = "Text5";
  84.         label = "SMALL BUTTERFLY VLV";
  85. fixed_width = true;
  86. alignment = centered;
  87.       }
  88.  :spacer {height = 1;}
  89.     : image_button {
  90.       key = "Slide6";
  91.       height = 3.11;
  92. width = 11.00;
  93. fixed_width = true;
  94. alignment = centered;
  95.       color = -2;
  96.     }
  97.       : text {
  98.         key = "Text6";
  99.         label = "SMALL NEEDLE VLV";
  100. fixed_width = true;
  101. alignment = centered;
  102.       }
  103.  :spacer {height = 1;}
  104.     : image_button {
  105.       key = "Slide7";
  106.       height = 3.11;
  107. width = 11.00;
  108. fixed_width = true;
  109. alignment = centered;
  110.       color = -2;
  111.     }
  112.       : text {
  113.         key = "Text7";
  114.         label = "FLGD SMALL GATE VLV";
  115. fixed_width = true;
  116. alignment = centered;
  117.       }
  118.  :spacer {height = 1.2;}
  119.     : image_button {
  120.       key = "Slide8";
  121.       height = 3.11;
  122. width = 11.00;
  123. fixed_width = true;
  124. alignment = centered;
  125.       color = -2;
  126.     }
  127.       : text {
  128.         key = "Text8";
  129.         label = "FLGD SMALL BALL VLV";
  130. fixed_width = true;
  131. alignment = centered;
  132.       }
  133. }
  135.   : column {
  136.     : image_button {
  137.       key = "Slide9";
  138.       height = 3.11;
  139. width = 11.00;
  140. fixed_width = true;
  141. alignment = centered;
  142.       color = -2;
  143.     }
  144.       : text {
  145.         key = "Text9";
  146.         label = "FLGD SMALL GLOBE VLV";
  147. fixed_width = true;
  148. alignment = centered;
  149.       }
  150.  :spacer {height = 1;}
  151.     : image_button {
  152.       key = "Slide10";
  153.       height = 3.11;
  154. width = 11.00;
  155. fixed_width = true;
  156. alignment = centered;
  157.       color = -2;
  158.     }
  159.       : text {
  160.         key = "Text10";
  161.         label = "FLGD SMALL CHECK VLV";
  162. fixed_width = true;
  163. alignment = centered;
  164.       }
  165.  :spacer {height = 1;}
  166.     : image_button {
  167.       key = "Slide11";
  168.       height = 3.11;
  169. width = 11.00;
  170. fixed_width = true;
  171. alignment = centered;
  172.       color = -2;
  173.     }
  174. : paragraph {
  175. : text {
  176.         key = "Text11";
  177.         label = "FLGD SMALL";
  178.  width = 14;
  179. alignment = centered;
  180.       }
  181. : text {
  182. label = "BUTTERFLY VLV";
  183. width = 18;
  184. alignment = centered;
  185. }
  186. }
  188.     : image_button {
  189.       key = "Slide12";
  190.       height = 3.11;
  191. width = 11.00;
  192. fixed_width = true;
  193. alignment = centered;
  194.       color = -2;
  195.       }  
  196.         : text {
  197.         key = "Text12";
  198.         label = "FLGD SMALL NEEDLE VLV";
  199. fixed_width = true;
  200. alignment = centered;
  201.       }
  202.  }
  203.    }
  204.  :spacer {height = 2;}
  205.  
  206.   cancel_button;
  207. }//smallvalves

 
 
非常感谢，没有遇到我们（最终）无法完成的事情，感觉很好。
回复

使用道具 举报

hmsilva

1

主题

475

帖子

481

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 07:02:19 | 显示全部楼层
不客气，布勒
很高兴你找到了解决方案
 
亨里克
回复

使用道具 举报

Bhull1985

15

主题

243

帖子

228

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-6 07:08:18 | 显示全部楼层
谢谢你，亨里克。
 
我在前面的另一节中尝试了你不同的变量建议。。
 
其中我添加了（action_tile（setq doAction1'T）
 
然后
 
if（doAction（normalroutine））
if（doAction1（交替例程））
 
 
选择与doAction1关联的动作块仍然会执行normalroutine中的步骤，就好像它根本看不到“aternateroutine”。
 
你知道另一种方法让我的幻灯片根据他们选择的幻灯片进行不同的例程吗？
 
再次感谢！
回复

使用道具 举报

hmsilva

1

主题

475

帖子

481

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 07:09:41 | 显示全部楼层
bhull1985，
我附上了一个示例DCL和LISP，以及一些注释和根据用户选择执行各种操作的方法。
 
希望有帮助
亨里克
示例_LISP\u DCL。拉链
回复

使用道具 举报

Bhull1985

15

主题

243

帖子

228

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-6 07:13:09 | 显示全部楼层
哦，我知道你是怎么做到的了，亨利！在第一个defun中，加上一个条件语句，这就更有意义了！
非常感谢您的持续帮助，这将使我们能够清理需要不同修剪长度的例程。
我知道我今天要忙什么。。。
回复

使用道具 举报

hmsilva

1

主题

475

帖子

481

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 07:16:51 | 显示全部楼层
不客气，布勒
很高兴我能帮忙
 
亨里克
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 18:44 , Processed in 0.541277 second(s), 62 queries .

© 2020-2025 乐筑天下

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