别开生面的TRIM

lijiao

加载后用XX命令。
命令开始后，鼠标输入一点，然后移动鼠标，会出现一条红色的曲线，凡是与红色曲线相交的线均会被TRIM掉。
我的嘴笨，说不清楚，自己去体验吧。 ;;;BY LIJIAO
(defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE)
(setq cmdecho (getvar "cmdecho")
osmode (getvar "osmode")
)
(while (and (setq ptlist0 (getpoint_list))
(> (length ptlist0) 1)
)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq pt0 (car ptlist0)
ptlist (cdr ptlist0)
)
(command "trim" "")
(foreach pt ptlist
(command "f" pt0 pt "")
(setq pt0 pt)
)
(command "")
(if (setq ss (ssget "f" ptlist0))
(command "erase" ss "")
)
(setvar "osmode" osmode)
(setvar "cmdecho" cmdecho)
)
(princ)
)
(defun getpoint_list ( / DIS OUT PT)
(setq pt (getpoint "\n开始："))
(princ "\n按任意键完成:")
(if (= (type pt) 'LIST)
(progn
(setq out (list pt)
dis (* 0.01 (getvar "viewsize")))
(while (= 5 (car (setq pt (grread t 4 0))))
(setq pt (cadr pt))
(if (> (distance pt (car out)) dis)
(progn
(grdraw pt (car out) 1)
(setq out (cons pt out))
)
)
)
)
)
(redraw)
(reverse out)
)

BDYCAD

应该是别开生面的erase吧,


你这个发明有点创意哦. 不过有点是删去的. 呵呵.

zpsheng

好玩

ljpnb

不错,有新意,一半是trim的,一半是erase的,好东东先收下了.向你学习!

lijiao

最近学习PROE，跟PROE学的。

yaopx0782

挺好，谢谢。不过如能首先选择裁剪边界更好。

andyding

好东东.跟PRO/E的TRIM差不多.谢谢!!!

abula601

好棒的绘图工具程式!谢谢您的分享.︿︿
~赶快来试试~

leeyuan

好东西，不过用起来感觉不舒服

daanff

好玩，不错，谢谢！


学习一下