相对连续拷贝---重写

xiaoyingzi

网上淘来的，不知道原作者，自用还不错，源码如下：
(defun c:mycm ()
(defun ss:get_after (ent / ss sub_ent)
(setq sub_ent '("VERTEX" "SEQEND" "ATTRIB"))
(setq ss (ssadd))
(while (setq ent (entnext ent))
(if (member (cdr (assoc 0 (entget ent))) sub_ent)
()
(setq ss (ssadd ent ss))
)
)
ss
)
(setq ss (ssget))
(setq p1 (getpoint))
(while (not (equal p1 pt 1e-4))
(setq last-ob (entlast))
(setq pt p1)
(vl-cmdf "._copy" ss "" "non" pt)
(while
(/= 0 (getvar "cmdactive"))
(vl-cmdf PAUSE)
)
(setq ss (ss:get_after last-ob))
(setq p1 (getvar "lastpoint"))
)
(command "._erase" ss "") (princ)
)

VBALISPER

都厉害呀,我来学习了

hhh454

很多精彩的代码，学习

1993063

好东东，顶了

1993063

自贡黄明儒 发表于 2011-12-29 17:05
还是网格没有关闭

这个LSP和网络有关吗？

自贡黄明儒

1993063 发表于 2011-12-31 14:50
这个LSP和网络有关吗？

同move一样
snap要关，我说错了，不是网格grip

qyming

支持一下,i不下

xjf

  顶楼主，正要用

革天明

谢谢楼主分享

cig

对我应该很有用，谢谢！