请教这个超级好用的修剪命令是怎么做的

mcxiangxin · 发表于 2008-5-3 23:20:00

请教:下面这个超级好用的修剪命令是怎么做的?我想了好久都想不出来呀

董堃 · 发表于 2008-5-4 06:57:00

(defun c:super (/ 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)
)

sunny_8848 · 发表于 2019-10-29 11:29:19

多谢分享，很好用的修剪程序

happy336 · 发表于 2019-10-28 23:22:06

谢谢分享，学习了

mcxiangxin · 发表于 2008-5-4 21:37:00

大哥,谢了

董堃 · 发表于 2008-5-5 06:45:00

不用谢，你有什么好东西也要让我们学习下哟！

yoyoho · 发表于 2008-5-5 07:24:00

感谢楼主,不错的修剪程序阿!

赞!赞!赞!

好构想!

用于延伸线段应该也不错吧!

yewuqiang · 发表于 2008-7-4 00:11:00

这个好像在图形比较复杂的时候就没这么好用了

zcenc · 发表于 2009-10-3 20:12:00

太赞了，不顶对不起良心！

明经网友 *发表于 2009-10-5 20:35:00* · 发表于 2009-10-5 20:35:00

顶一下，的确好构思，有点像PROE里的修剪！高手啊！！！

ghgh0130 · 发表于 2009-12-2 10:23:00

不错的修剪程序阿!

liu_kunlun · 发表于 2009-12-2 10:56:00

好程序

账号		自动登录	找回密码
密码			注册

请教这个超级好用的修剪命令是怎么做的

本帖子中包含更多资源

浏览过的版块