[LISP程序]：如何在vlisp中重新设置hatch 的pattern, 如solid?

lsjjm

如何在vlisp中重新设置hatch 的pattern, 如solid?

XDSoft

最初由 lsjjm 发布
[B]如何在vlisp中重新设置hatch 的pattern, 如solid? [/B]

你可以修改实体数据的组码2到需要的样式（修改前，要判断指定的样式必须存在）

2. <normalfont>
   
3. (setq e (car (entsel))
   
4. (setq ed (entget e))
   
5. (setq new (cons 2 "solid"))
   
6. (setq old (assoc 2 ed))
   
7. (setq ed (subst new old ed))
   
8. (entmod ed)
   
9. </normalfont>
   

<normalfont><br /> (setq e (car (entsel))<br /> (setq ed (entget e))<br /> (setq new (cons 2 "solid"))<br /> (setq old (assoc 2 ed))<br /> (setq ed (subst new old ed))<br /> (entmod ed)<br /> </normalfont><br />

同样功能的XDRX_API使用方法：

2. <normalfont>
   
3. (setq e (car (entsel)))
   
4. (xdrx_setenttodb e)
   
5. (xdrx_modent 2 "solid")
   
6. </normalfont>
   

<normalfont><br /> (setq e (car (entsel)))<br /> (xdrx_setenttodb e)<br /> (xdrx_modent 2 "solid")<br /> </normalfont><br />

eachy

最初由 lsjjm 发布
[B]如何在vlisp中重新设置hatch 的pattern, 如solid? [/B]

2. 
   
3. (setq e (vlax-ename->vla-object (car (entsel))))
   
4. (vla-setpattern e acHatchPatternTypePreDefined "solid")

<br /> (setq e (vlax-ename->vla-object (car (entsel))))<br /> (vla-setpattern e acHatchPatternTypePreDefined "solid")

联机帮助部分：

2. 
   
3. Signature
   
4. 
   
5. object.SetPattern PatternType, PatternName
   
6. 
   
7. Object
   
8. 
   
9. Hatch
   
10. The object or objects this method applies to.
    
11. 
    
12. PatternType
    
13. 
    
14. AcPatternType enum; input-only
    
15. 
    
16. acHatchPatternTypePreDefined
    
17. Selects the pattern name from those defined in the acad.pat file.
    
18. 
    
19. acHatchPatternTypeUserDefined
    
20. Defines a pattern of lines using the current linetype.
    
21. 
    
22. acHatchPatternTypeCustomDefined
    
23. Selects the pattern name from a PAT file other than the acad.pat file.
    
24. 
    
25. 
    
26. PatternName
    
27. 
    
28. String; input-only
    
29. The name of the pattern. Sets a default hatch pattern name of up to 34 characters, no spaces
    
30. allowed. Returns "" if there is no default. Enter a period (.) to set no default.
    
31. 
    
32. Remarks
    
33. 
    
34. The hatch pattern can be defined by one of the following options:
    
35. 
    
36. PreDefined: Selects the pattern name from those defined in the acad.pat file.
    
37. 
    
38. UserDefined: Defines a pattern of lines using the current linetype.
    
39. 
    
40. CustomDefined: Selects the pattern name from a PAT file other than the acad.pat file.
    

<br /> Signature <br /> <br /> object.SetPattern PatternType, PatternName <br /> <br /> Object<br /> <br /> Hatch<br /> The object or objects this method applies to. <br /> <br /> PatternType<br /> <br /> AcPatternType enum; input-only<br /> <br /> acHatchPatternTypePreDefined<br /> Selects the pattern name from those defined in the acad.pat file.<br /> <br /> acHatchPatternTypeUserDefined<br /> Defines a pattern of lines using the current linetype.<br /> <br /> acHatchPatternTypeCustomDefined<br /> Selects the pattern name from a PAT file other than the acad.pat file.<br /> <br /> <br /> PatternName<br /> <br /> String; input-only<br /> The name of the pattern. Sets a default hatch pattern name of up to 34 characters, no spaces <br /> allowed. Returns "" if there is no default. Enter a period (.) to set no default. <br /> <br /> Remarks <br /> <br /> The hatch pattern can be defined by one of the following options: <br /> <br /> PreDefined: Selects the pattern name from those defined in the acad.pat file. <br /> <br /> UserDefined: Defines a pattern of lines using the current linetype. <br /> <br /> CustomDefined: Selects the pattern name from a PAT file other than the acad.pat file. <br />

lsjjm

两位都用到了(entsel), 在程序中增加了一个手动操作, 相当修改Hatch的Pattern, 能否在Hatch前
预先设置? 且不需手动?

eachy

命令:
SETVAR 输入变量名或 [?]: hpname

输入 HPNAME 的新值 <"ANSI31">: solid

1. 
   
2. 类型：字符串
   
3. 不保存
   
4. 初始值：“ANSI31”
   
5. 设置默认填充图案，其名称最多可包含 34 个字符，其中不能有空格。如果没有设置默认值，将返回 ""。
   
6. 输入句点 (.)，将 HPNAME 重置为默认值。
   

复制代码

hi71400

(command "setvar" "hpname" "solid")

lsjjm

这回解决了， 谢谢。不过又出现了新问题：HATCH只在我指定的部分区域工作， 如果ZOOM放大就好了， 这是什么问题 ？