bingshuier 发表于 2014-7-29 08:18:21

全图填充后置问题？

怎么实现框选将填充后置，但是如果框选到块，怎么实现其内填充后置呢？！

kwok 发表于 2014-7-29 14:32:53

本帖最后由 kwok 于 2014-7-29 14:47 编辑

看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675

也可以看看这个也是G版的;;一键所有填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17
(defun c:tt1 (/ sortents dictlst Doc)
(setqdoc
   (vla-get-ActiveDocument
   (vlax-get-acad-object)
   )
)
(vlax-for blockdef (vla-get-blocks doc)
    (cond
      (
       (not
   (VL-CATCH-ALL-ERROR-P
   (setq sortents
      (VL-CATCH-ALL-APPLY
      'vla-item
      (list
          (setq dict
         (vla-GetExtensionDictionary
             blockdef
         )
          )
          "ACAD_SORTENTS"
      )
      )
   )
   )
       )
      )
      ((setq sortents
      (VL-CATCH-ALL-APPLY
    'vla-AddObject
    (list dict "ACAD_SORTENTS" "AcDbSortentsTable")
      )
       )
      )
    )
    (setq lst nil)
    (vlax-for obj blockdef
      (if (= "AcDbHatch" (vla-get-objectname obj))
(setq lst (cons obj lst))
      )
    )
    (iflst
      (progn
(vla-MoveToBottom
    sortents
    (vlax-make-variant
      (vlax-safearray-fill
      (vlax-make-safearray
    vlax-vbobject
    (cons 0 (1- (length lst)))
      )
      lst
      )
    )
)

      )
    )
)
(vla-regen doc :vlax-true)
(princ)
)G版的

bingshuier 发表于 2014-7-30 09:14:19

kwok 发表于 2014-7-29 14:32 static/image/common/back.gif
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675


非常感谢哦！！！

9701519 发表于 2015-4-1 21:40:46

kwok 发表于 2014-7-29 14:32 static/image/common/back.gif
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675


怎么实现框选，而不是一键置后！

ferious 发表于 2023-11-17 17:16:43

kwok 发表于 2014-7-29 14:32
看看这个:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=99675


帮忙看下还是不行？
页: [1]
查看完整版本: 全图填充后置问题？