lijiao 发表于 2005-2-28 18:17:00

别开生面的TRIM

<FONT face=宋体 size=2>加载后用XX命令。<BR>命令开始后，鼠标输入一点，然后移动鼠标，会出现一条红色的曲线，凡是与红色曲线相交的线均会被TRIM掉。<BR>我的嘴笨，说不清楚，自己去体验吧。</FONT>


;;;BY LIJIAO<BR>(defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE)<BR>       (setq        cmdecho        (getvar "cmdecho")<BR>        osmode        (getvar "osmode")<BR>       )<BR>       (while (and (setq ptlist0 (getpoint_list))<BR>                                               (&gt; (length ptlist0) 1)<BR>       )<BR>                       (setvar "cmdecho" 0)<BR>                       (setvar "osmode" 0)<BR>                       (setq pt0       (car ptlist0)<BR>               ptlist (cdr ptlist0)<BR>                       )<BR>                       (command "trim" "")<BR>                       (foreach pt        ptlist<BR>                                       (command "f" pt0 pt "")<BR>                                       (setq pt0 pt)<BR>                       )<BR>                       (command "")<BR>                       (if        (setq ss (ssget "f" ptlist0))<BR>                                       (command "erase" ss "")<BR>                       )<BR>                       (setvar "osmode" osmode)<BR>                       (setvar "cmdecho" cmdecho)<BR>       )<BR>       (princ)<BR>)<BR>(defun getpoint_list ( / DIS OUT PT)<BR>       (setq pt (getpoint "\n开始："))<BR>       (princ "\n按任意键完成:")<BR>       (if (= (type pt) 'LIST)<BR>                       (progn<BR>                                       (setq out (list pt)<BR>                               dis (* 0.01 (getvar "viewsize")))<BR>                                       (while (= 5 (car (setq pt (grread t 4 0))))<BR>        (setq pt (cadr pt))<BR>                                                               (if (&gt; (distance pt (car out)) dis)<BR>                       (progn<BR>                                       (grdraw pt (car out) 1)<BR>                                       (setq out (cons pt out))<BR>                                       )<BR>                       )<BR>        )<BR>                                       )<BR>                       )<BR>       (redraw)<BR>       (reverse out)<BR>       )

BDYCAD 发表于 2005-2-28 18:27:00

应该是别开生面的erase吧,


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

zpsheng 发表于 2005-2-28 21:10:00

好玩

ljpnb 发表于 2005-2-28 22:18:00

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

lijiao 发表于 2005-3-1 08:54:00

最近学习PROE，跟PROE学的。

yaopx0782 发表于 2005-3-1 09:21:00

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

andyding 发表于 2005-3-2 12:11:00

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

abula601 发表于 2005-3-2 12:39:00

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

leeyuan 发表于 2005-3-4 11:39:00

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

daanff 发表于 2005-3-4 13:44:00

好玩，不错，谢谢！


学习一下
页: [1]
查看完整版本: 别开生面的TRIM