龙吟小调 发表于 2015-10-7 09:44:11

希望可以多几种填充图案的筛选

376394482 发表于 2015-11-9 11:21:28

学习了

斌霞琦航 发表于 2016-1-17 12:50:17

谢谢，研究一下！

bai2000 发表于 2018-10-8 21:06:08

999999 发表于 2022-3-19 20:34:12

★飞飛★ 发表于 2012-8-2 10:46
问题已解决。在此粘贴出代码，供童鞋们工作学习使用。
如果不能亮显出对象，出现提示“未知命令PSELECT” ...

感谢大佬分享，我这边试用了一下，您这个插件好像我选中了图案筛选后，按一下空格就又取消了选择呢，您知道是什么问题 吗

半夜星星 发表于 2023-5-22 16:33:18

;;;下面这个可以选择相同图案一起移动到指定点，你们试试吧，
(defun c:sxt () ;按填充图案样式筛选出相同填充图案
        (setvar "cmdecho" 0)
        (princ "\n点选填充样图:")
        (setq sample (ssget(list '(0 . "HATCH"))))       
       
        (while(and(princ "\n框选相同图案范围:")(setq ss (ssget (list '(0 . "HATCH") (assoc 2(entget(ssname sample 0)))))))
          (setq ptz (T-get-object-center-pt (ssname ss 0 )))
                (command "move" ss "" ptz pause)
        )       
        (setvar "cmdecho" 1)
        (princ)
)

(defun T-get-object-center-pt (name)
      (setq obj (vlax-ename->vla-object name))
      (vla-GetBoundingBox obj 't-min 't-max)
      (setq t-min (safearray-value t-min))
      (setq t-max (safearray-value t-max))
      (polar t-min (angle t-min t-max) (/ (distance t-min t-max) 2))
)

页: 1 [2]
查看完整版本: 按填充图案样式筛选出相同填充图案？问题已解决。