乐筑天下

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

[编程交流] 代码错误

[复制链接]
jhune

1

主题

8

帖子

7

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 21:22:47 | 显示全部楼层
嗨，塔瓦，
 
非常感谢，它现在正在工作，但如果我需要添加另一个字段
 
dcl代码中的“radio 3”
 
DCL的附加代码：
  1. :column{
  2. :radio_column {
  3. key="radio3";
  4. label="LAYER";
  6. :radio_button{
  7. label= "Layer1";
  8. key="L1";
  9. value="1";
  10. }
  11. :radio_button{
  12. label= "Layer2";
  13. key="L2";
  14. }

 
这将为每种块类型创建和设置所需的层。
回复

使用道具 举报

jhune

1

主题

8

帖子

7

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 21:26:51 | 显示全部楼层
嗨，塔瓦，
 
如果我想在dcl代码上添加另一个字段“Rado3”，非常感谢。
 
DCL中要添加的代码：
 
  1. :column{
  2. :radio_column {
  3. key="radio3";
  4. label="LAYER";
  6. :radio_button{
  7. label= "Layer1";
  8. key="L1";
  9. value="1";
  10. }
  11. :radio_button{
  12. label= "Layer2";
  13. key="L2";
  14. }

 
这将为每个块类型创建和设置所需的层，是否可以将其添加到Lisp程序中？
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 21:32:05 | 显示全部楼层
 
是的，从dcl代码中取下以下键，并在上述dcl代码末尾再取一个括号。
 
  2. key="radio3";
回复

使用道具 举报

jhune

1

主题

8

帖子

7

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 21:39:29 | 显示全部楼层
嗨，塔瓦，
 
我现在更新了dcl及其工作状态。
 
  1. IBlock:dialog{
  2. label="BLOCK SELECTION";
  3. :column {
  4. :row{
  5. :row{
  7. :radio_column {
  8. key="radio";
  9. label="VIEW";
  11. :radio_button{
  12. key="plan";
  13. label=" PLAN";
  14. value="1";
  15. }
  16. :radio_button{
  17. key="side";
  18. label=" SIDE";
  19. }
  20. :radio_button{
  21. key="front";
  22. label=" FRONT";
  23. }
  25. }
  27. :column{
  28. :radio_column {
  29. key="radio2";
  30. label="BLOCK TYPE";
  32. :radio_button{
  33. label= "Block1";
  34. key="B1";
  35. value="1";
  36. }
  37. :radio_button{
  38. label= "Block2";
  39. key="B2";
  40. }
  41. }
  43. :column{
  44. :radio_column {
  46. label="Layer";
  48. :radio_button{
  49. label= "Layer1";
  50. key="L1";
  51. value="1";
  52. }
  53. :radio_button{
  54. label= "layer2";
  55. key="L2";
  56. }
  60. }
  61. }
  63. }
  64. }
  65. }
  67. :row{
  68. :button{
  69. key="accept";
  70. label=" OK ";
  71. is_default=true;
  72. height=3.5;
  74. }
  75. :button{
  76. key="cancel";
  77. label=" CANCEL ";
  78. is_default=false;
  79. is_cancel=true;
  80. height=3.5;
  81. }
  82. }
  83. }
  84. }

 
我应该在程序中的何处插入下面的代码？
 
  1. (setvar "clayer" "plywood")

 
如果层存在，则可以使用此代码，如果代码不在下面
在那里，我复制了它从其他论坛在创建一个层。
 
  1.  (command "linetype" "S" "Continuous" "")
  2.          (setq ts (tblsearch "LAYER" "Layer1"))
  3.          (if (null ts) 
  4.            (prompt "\nCreating new layer - Layer1 ") 
  5.            (progn
  6.              (if (= (logand 1 (cdr (assoc 70 ts))) 1) 
  7.                (progn
  8.                  (prompt "\nLayer Layer1 is frozen. ")
  9.             (initget "Yes No") 
  10.                  (setq xx (getkword "\nProceed? <Yes/No>: "))
  11.                  (if (= xx "Yes") 
  12.                    (command "LAYER" "T" "Layer1" "")
  13.                  )
  14.                )
  15.              )
  16.            )
  17.          )        
  18.   (if (null ts)
  19.     (command "layer" "make" "Layer1" "c" "red" "Layer1" "l" "Continuous" "Layer1" ^m)

 
 
我应该在哪里插入这个？
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 09:27 , Processed in 0.480879 second(s), 58 queries .

© 2020-2025 乐筑天下

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