[求助]高手赐教（关于BHATCH的）

jfh1

请门这位路过的高手，如何在程序执行过程中获得由程序（BHATCH）才生成的“HATCH”和“LWPOLYLINE”（生成的边界），由（ENTLAST）只能获得HATCH！急！急！！急！！！

ljpnb

可以用BOUNDARY再重新生成一次边界

jfh1

我最先用的是BOUNDARY可BOUNDARY有BUG所以只有改用BHATCH

ljpnb

这个我倒很少用，所以也不知道BUG是怎么的情况了。

jfh1

怎么没有高手指教呀？

xiaojinwen

(DEFUN XET-ADD-HACTH (PNAME PSCALE PANGLE PLAYER OUTERLOOP / POBJ) ;定义填充对象，并填充指定对象
      (IF (/= NIL (SETQ POBJ (VLA-ADDHATCH MSPACE 0 PNAME ACTRUE)))
     (PROGN
    (VLA-PUT-LAYER POBJ PLAYER)
    (VLA-PUT-PATTERNSCALE POBJ PSCALE)
    (VLA-PUT-PATTERNANGLE POBJ PANGLE)
    (VLA-APPENDOUTERLOOP POBJ OUTERLOOP)
    (VLA-PUT-HATCHSTYLE POBJ ACHATCHSTYLENORMAL)
    (VLA-EVALUATE POBJ)
     ) ;_ 结束PROGN
      ) ;_ 结束IF
) ;_ 结束DEFUN

调用方法：

（XET-ADD-HACTH 填充图案名 比例 角度 图层名称 边界对象）

填充图案名：如“ANSI37";

比例：正整数

 角度：弧度；

图层名称：字符如“0"

边界对象 ：VLA对象：如（VLA-ADDCIRCLE MSPACE (VLAX-3D-POINT(SETQ P1(GETPOINT"\n圆心：")))(GETDIST P1 "\n半径："))