关于填充今天发现了一个不错的插件，请教修改！

cheefeel

原帖地址：
http://bbs.mjtd.com/thread-95805-1-1.html

应该已经联系不上作者了，下面举例了一段预设代码，
请教将填充预设为注释性，应该加一行怎样的代码？

2. (defun tianchong1 ()
   
3. (prompt "\n当前样式: ①玻璃 比例400\n")
   
4. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
   
5. (command "color" "8")
   
6. (command "bhatch" "p" "AR-RROOF" "400" "45" "")
   
7. )

(defun tianchong1 ()<br /> (prompt "\n当前样式: ①玻璃 比例400\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "color" "8")<br /> (command "bhatch" "p" "AR-RROOF" "400" "45" "")<br /> )

e2002

(vl-cmdf "_.hatch" "an" "y" "p" "AR-RROOF" "400" "45" "")

cheefeel

(vl-cmdf "_.hatch" "an" "y" "p" "AR-RROOF" "400" "45" "" "LA" "填充图层")
这样子是不是就把填充放到名为 填充图层 的图层里去了？如果不存在次图层的话，是报错还是创建这个层呢？

cheefeel

e2002 发表于 2022-11-9 11:41
(vl-cmdf "_.hatch" "an" "y" "p" "AR-RROOF" "400" "45" "")

另外我问一下为什么是 (vl-cmdf "_.hatch"
而不是 (command "_hatch"

自贡黄明儒

cheefeel 发表于 2022-11-9 13:20
另外我问一下为什么是 (vl-cmdf "_.hatch"
而不是 (command "_hatch"

应该都可以。前者返回T。

e2002

你可以查阅一下 vl-cmdf 函数的说明文档，了解其与传统的 command 函数的差异。

cheefeel

e2002 发表于 2022-11-9 11:41
(vl-cmdf "_.hatch" "an" "y" "p" "AR-RROOF" "400" "45" "")

又来求助大佬了，他这套代码中，别的填充都没问题。
但如果填充是SOLID的话，有的时候未选择任何对象的情况下选择填充样式编号后回车，就会立刻填充一个对象，这个对象往往是鼠标范围附近的。

2. (defun c:DefaultHatch (/ opt )
   
3. (setvar "measurement" 1)     ; 设置公制单位
   
4. (setvar "cmdecho" 0)         ; 关闭命令响应
   
5. (setq oldcolor (getvar "cecolor"))
   
6. (if *num_HType*
   
7.   (setq num_HType (getint (strcat "\n选择填充样式  ①实体 ②钢砼 ③斜线 ④玻璃 ⑤毛面 ⑥60板 ⑦木纹 ⑧填柱 ⑨填墙: <" (rtos *num_HType* 2 0) ">")))
   
8.   (setq num_HType (getint "\n选择填充样式  ①实体 ②钢砼 ③斜线 ④玻璃 ⑤毛面 ⑥60板 ⑦木纹 ⑧填柱 ⑨填墙: " ))
   
9. )
   
10. (if (not num_HType)
    
11.   (setq num_HType *num_HType*)
    
12.   (setq *num_HType* num_HType)
    
13. )
    
14. (setq opt num_HType)
    
15. 
    
16. (if (< 0 opt 10) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式
    
17. 
    
18. (if (setq ss (ssget))
    
19.   (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
    
20. (progn  ;如果选择集为空，则执行点选命令
    
21.   (prompt "\n请拾取填充内部点：\n")
    
22.   (command "bhatch" pause)
    
23.   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
24. ))
    
25. 
    
26. (command "color" oldcolor)
    
27. (princ)
    
28. )
    
29. (defun tianchong1 ()
    
30. (prompt "\n当前样式: ①实体\n")
    
31. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
32. (command "bhatch" "an" "y" "p" "SOLID" "1" "0" "")
    
33. )
    
34. (defun tianchong2 ()
    
35. (prompt "\n当前样式: ②钢砼\n")
    
36. (prompt "\n请选择对象,跳过则为拾取内部点：\n")
    
37. (command "bhatch" "an" "y" "p" "★钢砼" "0.5" "0" "")
    
38. )
    

(defun c:DefaultHatch (/ opt )<br /> (setvar "measurement" 1)     ; 设置公制单位<br /> (setvar "cmdecho" 0)         ; 关闭命令响应<br /> (setq oldcolor (getvar "cecolor"))<br /> (if *num_HType*<br />   (setq num_HType (getint (strcat "\n选择填充样式  ①实体 ②钢砼 ③斜线 ④玻璃 ⑤毛面 ⑥60板 ⑦木纹 ⑧填柱 ⑨填墙: <" (rtos *num_HType* 2 0) ">")))<br />   (setq num_HType (getint "\n选择填充样式  ①实体 ②钢砼 ③斜线 ④玻璃 ⑤毛面 ⑥60板 ⑦木纹 ⑧填柱 ⑨填墙: " ))<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 /> (defun tianchong1 ()<br /> (prompt "\n当前样式: ①实体\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "bhatch" "an" "y" "p" "SOLID" "1" "0" "")<br /> )<br /> (defun tianchong2 ()<br /> (prompt "\n当前样式: ②钢砼\n")<br /> (prompt "\n请选择对象,跳过则为拾取内部点：\n")<br /> (command "bhatch" "an" "y" "p" "★钢砼" "0.5" "0" "")<br /> )<br />