Topic: [XDrX-PlugIn(88)] SOLID to HATCH

[xdcad]

Code: [Select]

(defun c:XDTB_SOLID2HA (/ verts ss)
  (if (setq ss (xdrx-ssget
(xdrx-string-multilanguage
   "\n选择SOLID<退出>:"
   "\nSelect Solid<Exit>:"
)
'((0 . "SOLID"))
       )
      )
    (progn
      (xdrx-begin)
      (mapcar
'(lambda (x)
   (setq verts (xdrx-getpropertyvalue x "vertices")
verts (list (nth 0 verts)
     (nth 1 verts)
     (nth 3 verts)
     (nth 2 verts)
       )
   )
   (setq ss (xdrx-hatch-make verts))
   (xdrx-entity-matchprop x ss)
   (xdrx-entity-delete x)
)
(xdrx-ss->ents ss)
      )
      (xdrx-end)
    )
  )
  (princ)
)