请大佬帮忙修改一下，造福各位设计，取之群，还之群。源码奉上

yoyrtweq 发表于 2020-10-10 10:49:31

本帖最后由 yoyrtweq 于 2020-10-10 10:53 编辑

我这里有一份快速填充，也是在社区内一个大佬写的代码。用着十分不错，特别拿出来给大家，但有个问题，在2014版中可以直接点击就能填充进方框内，但是到了2020版以后，直接点击以后，还会出现两个选择，如何去掉后面这两个选择，跟2014版同样。这样效率就很高了。谢谢大佬修改一些

;;快捷填充
(defun c:se (/ amode)
(initget 128 "q a w s e d r f z x c v qq aa")
(setq amode (getkword
"\n多层Q/木皮A/混凝W/实木S/理石E/玻璃D/布艺R/皮革F/海绵Z/藤编X/密度板C/金属V:")
)
(if (not amode)
(setq amode "q")
)
(setq amode(strcase amode T))
(setq d "T")
(cond ((= amode "q")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "cork" 40 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "a")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "Mupi" 350 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "w")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "Hunlingtu" 10 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "s")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "Shimu" 50 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "e")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "Dalishi" 1 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "d")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "ar-rroof" 50 45 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "r")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "cross" 200 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "f")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "hound" 300 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "z")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn (vl-cmdf ".bhatch" "p" "honey" 40 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "x")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
(progn (vl-cmdf ".bhatch" "p" "earth" 200 0 Pt "y" ""))
            )
            (princ)
            )
      ))
      ((= amode "c")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
            (progn (setq d "F"))
   (progn(vl-cmdf ".bhatch" "p" "ar-sand" 5 0 Pt "y" ""))
            )
            (princ)
            )
      ))
      ((= amode "v")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn(vl-cmdf ".bhatch" "p" "ANSI36" 30 0 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "qq")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn(vl-cmdf ".bhatch" "p" "cork" 40 90 Pt "y" ""))
            )
            (princ)
            )
      ))
   ((= amode "aa")
      (progn
         (while (= d "T")
            (setq pt (getpoint "请选择填充点:\r"))

            (if (= nil pt)
               (progn(setq d "F"))
   (progn(vl-cmdf ".bhatch" "p" "Mupi" 350 90 Pt "y" ""))
            )
            (princ)
            )
      ))
)

(princ)
)

yoyrtweq 发表于 2020-10-11 18:49:26

烟盒迷唇发表于 2020-10-11 08:55
图片看不到，不知道有什么区别。

有区别，2014中直接填充，2020中填充后需要再点2次空格

yoyrtweq 发表于 2020-10-11 20:23:24

烟盒迷唇发表于 2020-10-11 19:33
那就版本判断，高版本的添加2个空格进去啊。

就是不知道怎么添加，

yoyrtweq 发表于 2020-10-12 09:35:49

烟盒迷唇发表于 2020-10-12 09:20
把每个里面的“Y”去掉就可以了。

解决了3Q

yoyrtweq 发表于 2020-10-10 10:53:59

支持一个！！！！！顶上去

烟盒迷唇 发表于 2020-10-11 08:55:14

图片看不到，不知道有什么区别。

烟盒迷唇 发表于 2020-10-11 19:33:27

那就版本判断，高版本的添加2个空格进去啊。

烟盒迷唇 发表于 2020-10-12 09:20:51

yoyrtweq 发表于 2020-10-11 20:23
就是不知道怎么添加，

把每个里面的“Y”去掉就可以了。

趣意人生 发表于 2021-1-22 21:16:15

支持一个！！

sunny_8848 发表于 2021-1-22 21:56:05

实用的功能，谢谢分享

页: [1] 2

明经CAD社区's Archiver

请大佬帮忙修改一下，造福各位设计，取之群，还之群。源码奉上