请求大大，这个填充是论坛里的改了一下，但是为什么捕捉老要变成这样？

hooboxu

;;预设常用填充H
;;V1.2      
;;增加记忆功能，提高填充的使用方便性
;;----------------------------------
(defun c:TC (/ opt oldcolor *error*)
(defun *error* (msg)
(setvar "cecolor""bylayer") ;_ 恢复颜色随层；
(princ "错误信息: ")
(princ msg)      ;_ 打印错误信息
(princ)         
)
(setvar "measurement" 0)     ; 设置公制单位
(setvar "cmdecho" 0)         ; 关闭命令响应
(setvar "hpassoc" 0)         ;设置填充时不关联
(setq oldcolor (getvar "cecolor"))

(if *num_HType*
  (setq num_HType (getint (strcat "\n选择填充样式  ①墙纸 ②混凝土 ③钢筋混凝土 ④玻璃 ⑤地砖300 ⑥地砖600 ⑦大理石 ⑧木纹 ⑨拉丝间距50 ⑩实体填充 ⑾水平板剖 ⑿垂直板剖⒀磨砂⒁木剖⒂石材剖⒃金属剖: <" (rtos *num_HType* 2 0) ">")))
  (setq num_HType (getint "\n选择填充样式   ①墙纸 ②混凝土 ③钢筋混凝土 ④玻璃 ⑤地砖300 ⑥地砖600 ⑦大理石 ⑧木纹 ⑨拉丝间距50 ⑩实体填充 ⑾水平板剖 ⑿垂直板剖⒀磨砂⒁木剖⒂石材剖⒃金属剖: " ))
)
(if (not num_HType)
  (setq num_HType *num_HType*)
  (setq *num_HType* num_HType)
)
(setq opt num_HType)

(if (< 0 opt 17) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式

(if (setq ss (ssget))
  (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
  (progn  ;如果选择集为空，则执行点选命令
  (prompt "\n请拾取填充内部点：\n")
  (command "bhatch" pause)
  (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))

(command "color" oldcolor)   ;设置为原有颜色
;;(setvar "cecolor""bylayer")  ;设置颜色随层
(princ)
)
(defun tianchong1 ()
(prompt "\n当前样式: ①墙纸\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "CROSS" "150" "0" "")
)
(defun tianchong2 ()
(prompt "\n当前样式: ②混凝土\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "混凝土" "30" "0" "")
)
(defun tianchong3 ()
(prompt "\n当前样式: ③钢筋混凝土\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "钢筋混凝土" "30" "0" "")
)
(defun tianchong4 ()
(prompt "\n当前样式: ④玻璃\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "AR-RROOF" "350" "45" "")
)
(defun tianchong5 ()
(prompt "\n当前样式: ⑤300x300地砖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "300" "Y" "")
)
(defun tianchong6 ()
(prompt "\n当前样式: ⑥600x600地砖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "600" "Y" "")
)
(defun tianchong7 ()
(prompt "\n当前样式: ⑦大理石\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "大理石" "100" "0" "")
)
(defun tianchong8 ()
(prompt "\n当前样式: ⑧木纹\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "木纹02" "80" "90" "")
)
(defun tianchong9 ()
(prompt "\n当前样式: ⑨拉丝间距50\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "50" "N" "")
)
(defun tianchong10 ()
(prompt "\n当前样式:  ⑩实体填充\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "SOLID" "0" "0" "")
)
(defun tianchong11 ()
(prompt "\n当前样式: ⑾水平板剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "cork" "4" "90" "")
)
(defun tianchong12 ()
(prompt "\n当前样式: ⑿垂直板剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "cork" "4" "0" "")
)
(defun tianchong13 ()
(prompt "\n当前样式: ⒀磨砂\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "DOTS" "500" "0" "")
)
(defun tianchong14 ()
(prompt "\n当前样式: ⒁砖剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI31" "40" "0" "")
)
(defun tianchong15 ()
(prompt "\n当前样式: ⒂石材剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI33" "40" "0" "")
)
(defun tianchong16 ()
(prompt "\n当前样式: ⒃金属剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI32" "40" "0" "")
)

ZZXXQQ

事先保存捕捉设置

2. ;;预设常用填充H
   
3. ;;V1.2      
   
4. ;;增加记忆功能，提高填充的使用方便性
   
5. ;;----------------------------------
   
6. (defun c:TC (/ opt oldcolor *error*)
   
7. (defun *error* (msg)
   
8. (setvar "cecolor" "bylayer") ;_ 恢复颜色随层；
   
9. (if oldos (setvar "OSMODE" oldos))
   
10. (princ "错误信息: ")
    
11. (princ msg)      ;_ 打印错误信息
    
12. (princ)         
    
13. )
    
14. (setvar "measurement" 0)     ;设置公制单位
    
15. (setvar "cmdecho" 0)         ;关闭命令响应
    
16. (setvar "hpassoc" 0)         ;设置填充时不关联
    
17. (setq oldcolor (getvar "cecolor"))
    
18. (setq oldos (getvar "OSMODE"))
    
19. (setq tcys "\n选择填充样式:1墙纸/2混凝土/3钢筋混凝土/4玻璃/5地砖300/6地砖600/7大理石/8木纹/9拉丝间距50/10实体填充/11水平板剖/12垂直板剖/13磨砂/14木剖/15石材剖/16金属剖: ")
    
20. (if *num_HType*
    
21. (setq num_HType (getint (strcat tcys "<" (rtos *num_HType* 2 0) ">")))
    
22. (setq num_HType (getint tcys))
    
23. )
    
24. (if (not num_HType)
    
25. (setq num_HType *num_HType*)
    
26. (setq *num_HType* num_HType)
    
27. )
    
28. (setq opt num_HType)
    
29. (command "color" "250")
    
30. (if (< 0 opt 17) (eval(read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式
    
31. 
    
32. (if (setq ss (ssget))
    
33. (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
    
34. (progn  ;如果选择集为空，则执行点选命令
    
35. (prompt "\n请拾取填充内部点：\n")
    
36. (command "bhatch" pause)
    
37. (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
38. ))
    
39. (command "color" oldcolor)   ;设置为原有颜色
    
40. ;;(setvar "cecolor""bylayer")  ;设置颜色随层
    
41. (setvar "OSMODE" oldos)
    
42. (princ)
    
43. )
    
44. (defun tianchong1 ()
    
45. (prompt "\n当前样式: ①墙纸\n请选择对象,跳过则为拾取内部点: ")
    
46. (command "bhatch" "p" "CROSS" "150" "0" "")
    
47. )
    
48. (defun tianchong2 ()
    
49. (prompt "\n当前样式: ②混凝土\n请选择对象,跳过则为拾取内部点:")
    
50. (command "bhatch" "p" "混凝土" "30" "0" "")
    
51. )
    
52. (defun tianchong3 ()
    
53. (prompt "\n当前样式: ③钢筋混凝土\n请选择对象,跳过则为拾取内部点:")
    
54. (command "bhatch" "p" "钢筋混凝土" "30" "0" "")
    
55. )
    
56. (defun tianchong4 ()
    
57. (prompt "\n当前样式: ④玻璃\n请选择对象,跳过则为拾取内部点：\n")
    
58. (command "bhatch" "p" "AR-RROOF" "350" "45" "")
    
59. )
    
60. (defun tianchong5 ()
    
61. (prompt "\n当前样式: ⑤300x300地砖\n请选择对象,跳过则为拾取内部点:")
    
62. (command "bhatch" "p" "U" "0" "300" "Y" "")
    
63. )
    
64. (defun tianchong6 ()
    
65. (prompt "\n当前样式: ⑥600x600地砖\n请选择对象,跳过则为拾取内部点:")
    
66. (command "bhatch" "p" "U" "0" "600" "Y" "")
    
67. )
    
68. (defun tianchong7 ()
    
69. (prompt "\n当前样式: ⑦大理石\n请选择对象,跳过则为拾取内部点:")
    
70. (command "bhatch" "p" "大理石" "100" "0" "")
    
71. )
    
72. (defun tianchong8 ()
    
73. (prompt "\n当前样式: ⑧木纹\n请选择对象,跳过则为拾取内部点:")
    
74. (command "bhatch" "p" "木纹02" "80" "90" "")
    
75. )
    
76. (defun tianchong9 ()
    
77. (prompt "\n当前样式: ⑨拉丝间距50\n请选择对象,跳过则为拾取内部点:")
    
78. (command "bhatch" "p" "U" "0" "50" "N" "")
    
79. )
    
80. (defun tianchong10 ()
    
81. (prompt "\n当前样式:  ⑩实体填充\n请选择对象,跳过则为拾取内部点:")
    
82. (command "bhatch" "p" "SOLID" "0" "0" "")
    
83. )
    
84. (defun tianchong11 ()
    
85. (prompt "\n当前样式: ⑾水平板剖\n请选择对象,跳过则为拾取内部点:")
    
86. (command "bhatch" "p" "cork" "4" "90" "")
    
87. )
    
88. (defun tianchong12 ()
    
89. (prompt "\n当前样式: ⑿垂直板剖\n请选择对象,跳过则为拾取内部点:")
    
90. (command "bhatch" "p" "cork" "4" "0" "")
    
91. )
    
92. (defun tianchong13 ()
    
93. (prompt "\n当前样式: ⒀磨砂\n请选择对象,跳过则为拾取内部点:")
    
94. (command "bhatch" "p" "DOTS" "500" "0" "")
    
95. )
    
96. (defun tianchong14 ()
    
97. (prompt "\n当前样式: ⒁砖剖\n请选择对象,跳过则为拾取内部点:")
    
98. (command "bhatch" "p" "ANSI31" "40" "0" "")
    
99. )
    
100. (defun tianchong15 ()
     
101. (prompt "\n当前样式: ⒂石材剖\n请选择对象,跳过则为拾取内部点:")
     
102. (command "bhatch" "p" "ANSI33" "40" "0" "")
     
103. )
     
104. (defun tianchong16 ()
     
105. (prompt "\n当前样式: ⒃金属剖\n请选择对象,跳过则为拾取内部点:")
     
106. (command "bhatch" "p" "ANSI32" "40" "0" "")
     
107. )

;;预设常用填充H<br /> ;;V1.2      <br /> ;;增加记忆功能，提高填充的使用方便性<br /> ;;----------------------------------<br /> (defun c:TC (/ opt oldcolor *error*)<br /> (defun *error* (msg)<br /> (setvar "cecolor" "bylayer") ;_ 恢复颜色随层；<br /> (if oldos (setvar "OSMODE" oldos))<br /> (princ "错误信息: ")<br /> (princ msg)      ;_ 打印错误信息<br /> (princ)         <br /> )<br /> (setvar "measurement" 0)     ;设置公制单位<br /> (setvar "cmdecho" 0)         ;关闭命令响应<br /> (setvar "hpassoc" 0)         ;设置填充时不关联<br /> (setq oldcolor (getvar "cecolor"))<br /> (setq oldos (getvar "OSMODE"))<br /> (setq tcys "\n选择填充样式:1墙纸/2混凝土/3钢筋混凝土/4玻璃/5地砖300/6地砖600/7大理石/8木纹/9拉丝间距50/10实体填充/11水平板剖/12垂直板剖/13磨砂/14木剖/15石材剖/16金属剖: ")<br /> (if *num_HType*<br /> (setq num_HType (getint (strcat tcys "<" (rtos *num_HType* 2 0) ">")))<br /> (setq num_HType (getint tcys))<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 /> (command "color" "250")<br /> (if (< 0 opt 17) (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 /> (command "color" oldcolor)   ;设置为原有颜色<br /> ;;(setvar "cecolor""bylayer")  ;设置颜色随层<br /> (setvar "OSMODE" oldos)<br /> (princ)<br /> )<br /> (defun tianchong1 ()<br /> (prompt "\n当前样式: ①墙纸\n请选择对象,跳过则为拾取内部点: ")<br /> (command "bhatch" "p" "CROSS" "150" "0" "")<br /> )<br /> (defun tianchong2 ()<br /> (prompt "\n当前样式: ②混凝土\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "混凝土" "30" "0" "")<br /> )<br /> (defun tianchong3 ()<br /> (prompt "\n当前样式: ③钢筋混凝土\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "钢筋混凝土" "30" "0" "")<br /> )<br /> (defun tianchong4 ()<br /> (prompt "\n当前样式: ④玻璃\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "bhatch" "p" "AR-RROOF" "350" "45" "")<br /> )<br /> (defun tianchong5 ()<br /> (prompt "\n当前样式: ⑤300x300地砖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "U" "0" "300" "Y" "")<br /> )<br /> (defun tianchong6 ()<br /> (prompt "\n当前样式: ⑥600x600地砖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "U" "0" "600" "Y" "")<br /> )<br /> (defun tianchong7 ()<br /> (prompt "\n当前样式: ⑦大理石\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "大理石" "100" "0" "")<br /> )<br /> (defun tianchong8 ()<br /> (prompt "\n当前样式: ⑧木纹\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "木纹02" "80" "90" "")<br /> )<br /> (defun tianchong9 ()<br /> (prompt "\n当前样式: ⑨拉丝间距50\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "U" "0" "50" "N" "")<br /> )<br /> (defun tianchong10 ()<br /> (prompt "\n当前样式:  ⑩实体填充\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "SOLID" "0" "0" "")<br /> )<br /> (defun tianchong11 ()<br /> (prompt "\n当前样式: ⑾水平板剖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "cork" "4" "90" "")<br /> )<br /> (defun tianchong12 ()<br /> (prompt "\n当前样式: ⑿垂直板剖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "cork" "4" "0" "")<br /> )<br /> (defun tianchong13 ()<br /> (prompt "\n当前样式: ⒀磨砂\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "DOTS" "500" "0" "")<br /> )<br /> (defun tianchong14 ()<br /> (prompt "\n当前样式: ⒁砖剖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "ANSI31" "40" "0" "")<br /> )<br /> (defun tianchong15 ()<br /> (prompt "\n当前样式: ⒂石材剖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "ANSI33" "40" "0" "")<br /> )<br /> (defun tianchong16 ()<br /> (prompt "\n当前样式: ⒃金属剖\n请选择对象,跳过则为拾取内部点:")<br /> (command "bhatch" "p" "ANSI32" "40" "0" "")<br /> )

vectra

-bhatch会临时禁用捕捉，好像没办法改

hooboxu

唉。不知道哪里出错了，不光是这充填的问题了。现在好多VLX打包的命令都会锁定上面的捕捉，清也不清不了……。

hooboxu

谢谢ZZXXQQ 的再次帮忙 ，成分感谢，在出差，回去试试 ！

hooboxu

谢谢版主大大,打包其它的LSP也检查出了问题.谢谢修正