killyouldc 发表于 2012-9-4 22:20:57

谢谢楼主分享。

沐春风 发表于 2012-10-27 13:08:17

多谢了哦！！

李青松 发表于 2013-8-28 17:14:31

钻石会员wowan1314 ，麻烦你把程序改成默认选择全部，不要去手动选择1条或多条修剪线就好了，

清风明月名字 发表于 2013-8-28 21:23:42

谢谢楼主代码分享！

小毛草 发表于 2013-8-30 11:42:05

用了一下，不如我手头上的别的兄弟编的好用！

;;TRIM 和 EXTEND 命令（用于cad 2004版，仿照2006的矩形选框）
;;根据 AutoCAD 版本判断是否加载

(if (< (atof (substr (getvar "acadver") 1 4)) 16.2)
(progn

(defun trim&extend (cmd / error error_end olderr ssget-g ssRedraw cm os ss1 ss2 lst)
   (if cmd
   (setq cmd "_.trim")
   (setq cmd "_.extend")
   )
   (defun error (x) (error_end))
   (defun error_end ()
   (if ss1 (ss-Redraw ss1 4))
   (if cm (setvar "cmdecho" cm))
   (if os (setvar "osmode" os))
   (setq *error* olderr)
   )
   (setq olderr *error* *error* error)
   (defun ss-Redraw (ss mode)
   (mapcar '(lambda (x) (redraw x mode))
             (vl-remove-if-not '(lambda (x) (= (type x) 'ename)) (mapcar 'cadr (ssnamex ss)))
   )
   )
   (setq cm (getvar "cmdecho")
         os (getvar "osmode")
   )
   (setvar "cmdecho" 0)
   (setvar "osmode" 0)
   (defun ssget-g (msg fit / p1 p2 ss)
   (if (not msg) (setq msg "\n选择对象: "))
   (setq p1 (getpoint msg))
   (if p1
       (progn
         (setq p2 (getcorner p1 "指定对角点: "))
         (while (not p2)
         (if (not p2) (princ "窗口说明无效。"))
         (setq p2 (getcorner p1 (strcat msg "指定对角点: ")))
         )
         (setq ss (ssget "_c" p1 p2 fit))
       )
   )
   (list ss p1 p2)
   )
   (princ "\n选择剪切边或 <全部选择>... ")
   (setq ss1 (ssget))
   (while
   (progn
       (if ss1 (ss-redraw ss1 3))
       (apply 'or (setq lst (cdr (setq ss2 (ssget-g "\n选择要修剪的对象: " nil)))))
   )
   (if (car ss2)
       (progn
         (setq lst (list (car lst)
                         (cons (caar lst) (cdadr lst))
                         (cadr lst)
                         (cons (caadr lst) (cdar lst))
                         (car lst)
                   )
         )
         (command cmd)
         (if ss1 (command ss1 "") (command ""))
         (command "_f")
         (apply 'command lst)
         (command "" "")
       )
   )
   )
   (error_end)
   (princ)
)

(defun c:t () (trim&extend T))
(defun c:ex () (trim&extend nil))


--------------------------------------------------
)
   (princ)

寒林清远 发表于 2013-8-30 14:07:07

这个必须支持一下，非常好用。就是不再支持“F”模式了

l18c19 发表于 2013-11-18 20:29:24

本帖最后由 l18c19 于 2013-11-18 21:06 编辑

楼主的好程序，值得收藏学习！
35楼的暂时还不知道怎么用呢？

恕放之生命 发表于 2014-8-1 21:02:30

谢谢分享。

chenbh2 发表于 2014-9-30 09:20:01

收藏了,备用!

就此别过 发表于 2015-9-25 12:36:35

cad用来用去，有时候还是觉得04版挺好，真的谢谢
页: 1 2 3 [4] 5
查看完整版本: 【源码分享】可点选、框选、栏选的修剪和延伸命令。几乎与CAD06一样。