yoyrtweq 发表于 2018-9-29 21:50:59

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

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

xudongchu 发表于 2018-9-29 21:51:00

(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 发表于 2018-10-6 14:16:19

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

依然小小鸟 发表于 2018-10-15 09:10:51

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

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

ZMB7211 发表于 2018-11-7 13:32:25

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

ZMB7211 发表于 2018-11-7 13:32:26

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

ZMB7211 发表于 2018-11-7 13:33:15

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

yoyrtweq 发表于 2018-11-9 22:32:26

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


送你了   没试过这代码

paulpipi 发表于 2019-8-3 11:37:31

yoyrtweq 发表于 2020-6-12 21:06:49

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

有贱人工具箱里的继承填充的源码嘛有给我个呗，谢谢了需要明经币我也可以给你
页: [1]
查看完整版本: 做个跟贱人工具箱继承填充一样的插件，点选的，谢谢了