ASSOCIATIVE HATCH SELECT OBJECT

[Anonymous]

(DEFUN C:AS()

(setq

OBJ(CAR(ENTSEL))

VOBJ(VLAX-ENAME->VLA-OBJECT OBJ)

LA(STRCAT(VLA-GET-LAYER VOBJ))

)

(COMMAND "-HATCHEDIT" OBJ "B" "" "" )

(SETQ OBJ1(ENTLAST))

(COMMAND "DRAWORDER" OBJ1 "" "BA")

(COMMAND "CHANGE" OBJ1 "" "P" "LA" LA "")

(ALERT "THE SELECTED HATCH ARE STRETCHABLE")

)