做个跟贱人工具箱继承填充一样的插件，点选的，谢谢了

yoyrtweq

做个跟贱人工具箱继承填充一样的插件，点选的。.谢谢了

xudongchu

(defun c:tc ()
  (setvar "cmdecho" 0)
  (princ "\n★功能：快速填充多段线.\n")
  (setvar "osmode" 15359)
  (command "undo" "be")
  (setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE"))))
  (if (null ss)
    (progn (princ "\n提示：未选取多段线或圆!") (exit))
  )
  (vl-load-com)
  (setq        i 0
        j 0
  )
  (setvar "HPNAME" "SOLID")
  (setq num (sslength ss))
  (repeat num
(setq entnam (ssname ss i))
    (setq obj (vlax-ename->vla-object entnam))
    (if        (vlax-curve-isclosed obj)
      (progn
        (setq j (1+ j))
        (setq lay (vla-get-layer obj))
        (setq col (vla-get-color obj))
        (setq col (itoa col))
        (setvar "clayer" lay)
        (setvar "cecolor" col)
        (command "HATCH" "SOLID" entnam "")
      )
    )
    (setq i (1+ i))
  )
  (alert (strcat "提示：\n共选取 "
                 (itoa num)
                 " 个图元，其中：\n有 "
                 (itoa j)
                 " 个图元填充成功\n有 "
                 (itoa (- i j))
                 " 个图元填充失败！\n"
         )
  )
  (command "undo" "e")
  (setvar "osmode" 15359)
  (princ "\n")
  (princ)
)

yoyrtweq

没人帮助，估计是奖励给少了

依然小小鸟

yoyrtweq 发表于 2018-10-6 14:16
没人帮助，估计是奖励给少了

论坛有啊 既可以点选也可以框选

ZMB7211

直接给你贱人源码和DCL不就好了

ZMB7211

直接给你贱人源码和DCL不就好了

ZMB7211

直接给你贱人的源码和DCL不就好了改改就行

yoyrtweq

xudongchu 发表于 2018-9-29 21:51
(defun c:tc ()
  (setvar "cmdecho" 0)
  (princ "\n★功能：快速填充多段线.\n")

送你了   没试过这代码

paulpipi

yoyrtweq

ZMB7211 发表于 2018-11-7 13:33
直接给你贱人的源码和DCL不就好了改改就行

有贱人工具箱里的继承填充的源码嘛  有给我个呗，谢谢了  需要明经币我也可以给你