Topic: [XDrX-PlugIn(56)] WIPEOUT to Hatch

[xdcad]

Code: [Select]

(defun c:XDTB_WIPEOUT2HA (/ ss verts)
  (if (setq ss (xdrx-ssget
(xdrx-string-multilanguage
   "\n选择WIPEOUT<退出>:"
   "\nSelect Wipeout<Exit>:"
)
'((0 . "wipeout"))
       )
      )
    (progn
      (xdrx-begin)
      (setq verts (xdrx-getpropertyvalue ss "vertices"))
      (mapcar '(lambda (x)
(setq pl (xdrx-polyline-make x t))
(setq ha (xdrx-hatch-make pl))
(xdrx-setpropertyvalue
   (xdrx-entity-filter ha '((0 . "hatch")))
   "color"
   1
)
       )
      verts
      )
      (xdrx-entity-delete ss)
      (xdrx-end)
    )
  )
  (princ)
)