Topic: [XDrX-PlugIn(51)] Merge Hatches

[xdcad]

Code: [Select]

(defun c:XDTB_HaMerge (/ ss ss1 nums)
  (if (and (setq ss
  (xdrx-ssget
    (if (xd::doc:acadischs)
      "\n请选取要合并的HATCH实体[全选(All)]<退出>:"
      "\nPlease select the HATCH entities to be merged<Exit>:"
    )
    '((0 . "HATCH"))
  )
   )
   (> (setq nums (sslength ss)) 1))
    (progn
      (if (xdrx_hatch_merge ss)
(xdrx-prompt
  (xdrx-string-formatex
    (if (xd::doc:acadischs)
      "\n共选取了 %d 个HATCH实体，合并成了"
      "\nA total of %d HATCH entities were selected and merged into 1 ."
    )
    nums
  )
)
      )
    )
    (xdrx-prompt
      (if (xd::doc:acadischs)
"\n没有选到填充或者数量为1，未完成合并。"
"\nNo Hatch is selected or the sums is 1, and the merge is not completed."
      )
    )
  )
  (princ)
)

[reyas1123]

Hi,
Got some error

Command: XDTB_HAMERGE
; error: no function definition: XD::DOC:ACADISCHS

Thanks

[Hugo]

Everything is ok for me and works perfectly

[xdcad]

Hi,
Got some error

Command: XDTB_HAMERGE
; error: no function definition: XD::DOC:ACADISCHS

Thanks

Go here: https://github.com/xdcad/XDrx-API
Download and install the API, then...