预设常用填充V1.2——用LISP来快速完成常用填充

LIULISHENG

有源必须顶一下

chaozhong116

一般墙体.玻璃.300x300,600x600,实体.梁.地板.木纹这类填充用得最多

生活丨好无奈

软件真的不错 试试看

JHX948954875

谢谢楼主分享

小毛草

chaozhong116 发表于 2020-4-10 10:49
一般墙体.玻璃.300x300,600x600,实体.梁.地板.木纹这类填充用得最多

用我改的那一版本基本可以达到了！有20个常用材质！

哆啦A梦_oELxg

谢谢楼主，厉害 了

vista228

感谢分享，大佬厉害

ferious

小毛草 发表于 2020-7-1 11:30
用我改的那一版本基本可以达到了！有20个常用材质！

图层一直改不过来？一直是t填充？

ferious

2. ;;预设常用 -------------------- TC
   
3. ;;V1.2      
   
4. ;;优化代码,去掉拼凑代码重新设计
   
5. ;;增加记忆功能，提高填充的使用方便性
   
6. ;;在V1.1的基础上实现点选，与对象选择并存，并且都可以多选。
   
7. 
   
8. ;;----------------------------------
   
9. (defun c:TC (/ opt oldcolor num_HType *num_HType* ss )
   
10. (setvar "measurement" 1)     ; 设置公制单位
    
11. (setvar "cmdecho" 0)         ; 关闭命令响应
    
12. (setq oldcolor (getvar "cecolor"))
    
13. (command "_layer"   "m"   "4BD-METAL"    "c" "201" ""    "l" "c" ""   "")
    
14. (setvar "clayer" "4BD-METAL")
    
15. (if *num_HType*
    
16.   (setq num_HType (getint (strcat "\n选择填充样式  ①BD玻璃实体 ②BD金属实体 ③拉丝80 ④地砖300 ⑤地砖800 ⑥木地板 ⑦木夹板 ⑧木纹 ⑨钢砼: <" (rtos *num_HType* 2 0) ">")))
    
17.   (setq num_HType (getint "\n选择填充样式  ①BD玻璃实体 ②BD金属实体 ③拉丝80 ④地砖300 ⑤地砖800 ⑥木地板 ⑦木夹板 ⑧木纹 ⑨钢砼: " ))
    
18. )
    
19. (if (not num_HType)
    
20.   (setq num_HType *num_HType*)
    
21.   (setq *num_HType* num_HType)
    
22. )
    
23. (setq opt num_HType)
    
24. 
    
25. (if (< 0 opt 10) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式
    
26. 
    
27. (if (setq ss (ssget))
    
28.   (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
    
29. (progn  ;如果选择集为空，则执行点选命令
    
30.   (prompt "\n请拾取填充内部点：\n")
    
31.   (command "bhatch" pause)
    
32.   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
33. ))
    
34. 
    
35. (command "color" oldcolor)
    
36. (princ)
    
37. )
    
38. 
    
39. 
    
40. (defun tianchong1 ()
    
41. (prompt "\n当前样式: ①BD玻璃实体填充\n")
    
42. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
43. (command "color" "131")
    
44.   (command "bhatch" "p" "solid" "")
    
45. )
    
46. (defun tianchong2 (/ ss)
    
47. (command "_layer"   "m"   "4BD-METAL"    "c" "201" ""    "l" "c" ""   "")
    
48. 
    
49. (prompt "\n当前样式: ②BD金属实体填充\n")
    
50. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
51. (command "color" "201")
    
52. (setvar "clayer" "4BD-METAL")
    
53. (command "bhatch" "p" "solid" "")
    
54. (setq ss (entlast))
    
55. (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "4BD-METAL" "")
    
56. 
    
57. )
    
58. (defun tianchong3 ()
    
59. (prompt "\n当前样式: ③拉丝间距80\n")
    
60. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
61. (command "color" "8")
    
62. (command "bhatch" "p" "U" "0" "80" "N" "")
    
63. )
    
64. (defun tianchong4 ()
    
65. (prompt "\n当前样式: ④300x300地砖\n")
    
66. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
67. (command "color" "8")
    
68. (command "bhatch" "p" "U" "0" "300" "Y" "")
    
69. )
    
70. (defun tianchong5 ()
    
71. (prompt "\n当前样式: ⑤800x800地砖\n")
    
72. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
73. (command "color" "8")
    
74. (command "bhatch" "p" "U" "0" "800" "Y" "")
    
75. )
    
76. (defun tianchong6 ()
    
77. (prompt "\n当前样式: ⑥灰色木地板\n")
    
78. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
79. (command "color" "8")
    
80. (command "bhatch" "p" "木地板" "80" "0" "")
    
81. )
    
82. (defun tianchong7 ()
    
83. (prompt "\n当前样式: ⑦暗色木夹板\n")
    
84. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
85. (command "color" "250")
    
86. (command "bhatch" "p" "木夹板" "1" "0" "")
    
87. )
    
88. (defun tianchong8 ()
    
89. (prompt "\n当前样式: ⑧暗色木纹\n")
    
90. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
91. (command "color" "250")
    
92. (command "bhatch" "p" "木纹01" "10" "0" "")
    
93. )
    
94. (defun tianchong9 ()
    
95. (prompt "\n当前样式:  ⑨暗色钢砼\n")
    
96. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
97. (command "color" "250")
    
98. (command "bhatch" "p" "钢筋混凝土" "20" "0" "")
    
99. )
    

;;预设常用 -------------------- TC<br /> ;;V1.2      <br /> ;;优化代码,去掉拼凑代码重新设计<br /> ;;增加记忆功能，提高填充的使用方便性<br /> ;;在V1.1的基础上实现点选，与对象选择并存，并且都可以多选。<br /> <br /> ;;----------------------------------<br /> (defun c:TC (/ opt oldcolor num_HType *num_HType* ss )<br /> (setvar "measurement" 1)     ; 设置公制单位<br /> (setvar "cmdecho" 0)         ; 关闭命令响应<br /> (setq oldcolor (getvar "cecolor"))<br /> (command "_layer"   "m"   "4BD-METAL"    "c" "201" ""    "l" "c" ""   "")<br /> (setvar "clayer" "4BD-METAL")<br /> (if *num_HType*<br />   (setq num_HType (getint (strcat "\n选择填充样式  ①BD玻璃实体 ②BD金属实体 ③拉丝80 ④地砖300 ⑤地砖800 ⑥木地板 ⑦木夹板 ⑧木纹 ⑨钢砼: <" (rtos *num_HType* 2 0) ">")))<br />   (setq num_HType (getint "\n选择填充样式  ①BD玻璃实体 ②BD金属实体 ③拉丝80 ④地砖300 ⑤地砖800 ⑥木地板 ⑦木夹板 ⑧木纹 ⑨钢砼: " ))<br /> )<br /> (if (not num_HType)<br />   (setq num_HType *num_HType*)<br />   (setq *num_HType* num_HType)<br /> )<br /> (setq opt num_HType)<br /> <br /> (if (< 0 opt 10) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式<br /> <br /> (if (setq ss (ssget))<br />   (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充<br /> (progn  ;如果选择集为空，则执行点选命令<br />   (prompt "\n请拾取填充内部点：\n")<br />   (command "bhatch" pause)<br />   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br /> ))<br /> <br /> (command "color" oldcolor)<br /> (princ)<br /> )<br /> <br /> <br /> (defun tianchong1 ()<br /> (prompt "\n当前样式: ①BD玻璃实体填充\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "131")<br />   (command "bhatch" "p" "solid" "")<br /> )<br /> (defun tianchong2 (/ ss)<br /> (command "_layer"   "m"   "4BD-METAL"    "c" "201" ""    "l" "c" ""   "")<br /> <br /> (prompt "\n当前样式: ②BD金属实体填充\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "201")<br /> (setvar "clayer" "4BD-METAL")<br /> (command "bhatch" "p" "solid" "")<br /> (setq ss (entlast))<br /> (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "4BD-METAL" "")<br /> <br /> )<br /> (defun tianchong3 ()<br /> (prompt "\n当前样式: ③拉丝间距80\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "8")<br /> (command "bhatch" "p" "U" "0" "80" "N" "")<br /> )<br /> (defun tianchong4 ()<br /> (prompt "\n当前样式: ④300x300地砖\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "8")<br /> (command "bhatch" "p" "U" "0" "300" "Y" "")<br /> )<br /> (defun tianchong5 ()<br /> (prompt "\n当前样式: ⑤800x800地砖\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "8")<br /> (command "bhatch" "p" "U" "0" "800" "Y" "")<br /> )<br /> (defun tianchong6 ()<br /> (prompt "\n当前样式: ⑥灰色木地板\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "8")<br /> (command "bhatch" "p" "木地板" "80" "0" "")<br /> )<br /> (defun tianchong7 ()<br /> (prompt "\n当前样式: ⑦暗色木夹板\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "250")<br /> (command "bhatch" "p" "木夹板" "1" "0" "")<br /> )<br /> (defun tianchong8 ()<br /> (prompt "\n当前样式: ⑧暗色木纹\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "250")<br /> (command "bhatch" "p" "木纹01" "10" "0" "")<br /> )<br /> (defun tianchong9 ()<br /> (prompt "\n当前样式:  ⑨暗色钢砼\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "250")<br /> (command "bhatch" "p" "钢筋混凝土" "20" "0" "")<br /> )<br />

gwar

谢谢楼主，感谢分享！