 - (defun C:TT ()
- (setq
- *ACAD* (vlax-get-acad-object)
- *DOC* (vla-get-ActiveDocument *ACAD*)
- *DOCS* (vla-get-Documents *ACAD*)
- *MS* (vla-get-modelSpace *DOC*)
- *PS* (vla-get-paperSpace *DOC*)
- )
- (vlax-for each *MS*
- (if (AND (= "AcDbHatch" (vla-get-ObjectName each))
- (= "SCWX1" (vla-get-PatternName each));;;;"SCWX1" 图案不存在改为 solid 才能显示
- )
- (vla-SetPattern each acHatchPatternTypePreDefined "SOLID")
- )
- )
- )
在2023运行,把图案改为solid 就可以显示了
|