按填充图案样式筛选出相同填充图案？问题已解决。

龙吟小调

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

376394482

学习了

斌霞琦航

谢谢，研究一下！

bai2000

999999

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

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

半夜星星

;;;下面这个可以选择相同图案一起移动到指定点，你们试试吧，
(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))
)