50币求高手帮忙“填充裁剪”

yjr111

我晕~~~看来要用用高版的啦，不然一天到晚还在那里自娱自乐哈

chenjian2159

哎，可惜，因为要配套专业软件，只能用低版本啊

chenjian2159

因为要配套专业软件，只能用低版本啊，只能用06版本的

chenjian2159

GU版主，我不会编程

Gu_xl

无需TRiM，直接编辑图案，通过添加,删除边界即可实现！

caoyin

;;;根据三楼的动画写一个-----caoyin
;;;添加边界到当前填充图案
(defun C:HTCH-CUT (/ P1 P2 SS P3 P4 OBJ I HTCH SRRY)
  (if (and (setq P1 (getpoint "\n指定第一个角点: "))
           (setq P2 (getcorner P1 "\n指定第二个角点: "))
           (setq SS (ssget "C" P1 P2 '((0 . "HATCH"))))
      )
    (progn
      (setq P1  (mapcar '+ P1 '(0 0))
            P2  (mapcar '+ P2 '(0 0))
            P3  (cons (car P1) (cdr P2))
            P4  (cons (car P2) (cdr P1))
            OBJ (vla-AddLightweightPolyline
                  (vlax-get
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                    (if (> (getvar 'CVPORT) 1)
                      'ModelSpace
                      'PaperSpace
                    )
                  )
                  (vlax-make-variant
                    (vlax-safearray-fill
                      (vlax-make-safearray 5 '(0 . 7))
                      (append P1 P3 P2 P4)
                    )
                  )
                )
      )
      (vla-put-Closed OBJ :VLAX-TRUE)
      (repeat (setq I (sslength SS))
        (setq HTCH (vlax-ename->vla-object (ssname SS (setq I (1- I))))
              SRRY (vlax-make-safearray 9 '(0 . 0))
        )
        (vlax-safearray-put-element SRRY 0 OBJ)
        (vla-AppendOuterLoop HTCH SRRY)
        (vla-Evaluate HTCH)
      )
      (vla-delete OBJ)
    )
  )
  (princ)
)

chenjian2159

谢谢各位大侠，不过好像只能一个一个点啊，能否一起裁剪？哪位大侠能否帮我调用下CAD的tr命令，按照以下步骤搞一个？
提前祝各位圣诞快乐！谢谢！！！

chenjian2159

caoyin 发表于 2011-12-17 13:19
;;;根据三楼的动画写一个-----caoyin
;;;添加边界到当前填充图案
(defun C:HTCH-CUT (/ P1 P2 SS P3 P4 O ...

曹版主，你的这个是自己画一个矩形的范围再删除，而不是根据原有的裁剪边界（不规则）来裁剪的呀

qq229918602

呵呵。你这个我经常在用。07

328302216

还没接触过的功能！