图案填充继承特性

Dj_T_Rex2002 · 发表于 2022-7-5 15:20:50

您好，我只是想知道是否有一个按钮或命令来设置图案填充继承属性？我不想做整个匹配属性，因为如果你处理很多图案填充，那真的很整洁。提前感谢

rkmcswain · 发表于 2022-7-5 15:27:04

“图案填充”对话框中有一个“继承特性”按钮。
这就是你想要的吗？

Dj_T_Rex2002 · 发表于 2022-7-5 15:31:48

这就是我试图阻止的。我有点想看看我是否能想出一个LISP，当我键入“MHP”时，它与我单击的任何图案填充的图案填充属性相匹配。这样我就不必单击每个图案填充，然后单击“继承属性”，然后单击“图案填充”。

Dadgad · 发表于 2022-7-5 15:42:32

如果您不知道，可以通过配置HPNAME系统变量，将您最喜欢的填充图案指定为与HATCH命令一起使用的默认图案。

根据您正在做的工作，您可能希望经常更改它。也许在你工作一天的开始，当你思考你一整天都在做什么画的时候。

我建议先单击“继承属性”，然后单击要继承其属性的图案填充，然后选择应将其应用到的图案填充，而无需停止或重新选择“继承属性”。

BIGAL · 发表于 2022-7-5 15:46:31

请在运行hatch命令之前尝试此操作，然后拾取现有图案填充。

copy

(defun c:shat ( / obj )
(while (/= chk "True")
(if ( and (setq obj (vlax-ename->vla-object (car (entsel "pick object"))))
         (= (vla-get-objectname obj) "AcDbHatch")
   )  
(progn 
(setvar 'hpname (vla-get-PatternName obj))
(setq chk "True")
)
(alert "You did not pick a hatch")
)
)
(setq chk "false")
)

Dj_T_Rex2002 · 发表于 2022-7-5 15:50:29

谢谢你的帮助比格尔，我尝试了它的代码没有工作。

Dj_T_Rex2002 · 发表于 2022-7-5 15:57:33

问题是，我们有很多具有不同注释比例的图案填充，所以太多了，无法跟踪。我只是点击一个类似“MH”的命令，然后选择图案填充，并将其设置为该图案填充的比例和类型

BIGAL · 发表于 2022-7-5 16:03:00

更改代码以重置chk值，因此运行多次。

Dj_T_Rex2002 · 发表于 2022-7-5 16:07:29

太棒了，谢谢比格尔。。。它工作得很好，但与规模不匹配。剩下1.000

BIGAL · 发表于 2022-7-5 16:10:19

是时候让你们看看上面的代码了，找出它们适合Hpscale和Patternscale的位置了

copy


; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140063f10>
;   Area (RO) = 15363.3
;   AssociativeHatch = 0
;   BackgroundColor = #<VLA-OBJECT IAcadAcCmColor 00000000461cfb70>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002a5d4ee8>
;   Elevation = 0.0
;   EntityTransparency = "ByLayer"
;   GradientAngle = 0.0
;   GradientCentered = -1
;   GradientColor1 = #<VLA-OBJECT IAcadAcCmColor 00000000461d0230>
;   GradientColor2 = #<VLA-OBJECT IAcadAcCmColor 00000000461d2750>
;   GradientName = "LINEAR"
;   Handle (RO) = "12B52"
;   HasExtensionDictionary (RO) = 0
;   HatchObjectType = 0
;   HatchStyle = 1
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 00000000461d1fd8>
;   ISOPenWidth = 100
;   Layer = "DEFAULT"
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   NumberOfLoops (RO) = 1
;   ObjectID (RO) = 42
;   ObjectName (RO) = "AcDbHatch"
;   Origin = (0.0 0.0)
;   OwnerID (RO) = 43
;   PatternAngle = 0.0
;   PatternDouble = 0
;   PatternName (RO) = "ANSI31"
;   PatternScale = 1.0
;   PatternSpace = 1.0
;   PatternType (RO) = 1
;   PlotStyleName = "ByLayer"
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000000461d3050>
;   Visible = -1

[编程交流] 图案填充继承特性

发表回复

精选推荐