我晕~~~看来要用用高版的啦，不然一天到晚还在那里自娱自乐哈
哎，可惜，因为要配套专业软件，只能用低版本啊
因为要配套专业软件，只能用低版本啊，只能用06版本的
GU版主，我不会编程
本帖最后由 Gu_xl 于 2011-12-17 16:44 编辑
无需TRiM，直接编辑图案，通过添加,删除边界即可实现！
本帖最后由 caoyin 于 2011-12-17 13:25 编辑
;;;根据三楼的动画写一个-----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)
)
谢谢各位大侠，不过好像只能一个一个点啊，能否一起裁剪？哪位大侠能否帮我调用下CAD的tr命令，按照以下步骤搞一个？
提前祝各位圣诞快乐！谢谢！！！
caoyin 发表于 2011-12-17 13:19 static/image/common/back.gif
;;;根据三楼的动画写一个-----caoyin
;;;添加边界到当前填充图案
(defun C:HTCH-CUT (/ P1 P2 SS P3 P4 O ...
曹版主，你的这个是自己画一个矩形的范围再删除，而不是根据原有的裁剪边界（不规则）来裁剪的呀
呵呵。你这个我经常在用。07
还没接触过的功能！