表格处理：自动延伸＋修剪

风树

Lisper 发表于 2013-10-1 22:47
**** 本内容被作者隐藏 ****

你的主体都出来了，感觉将到最近延申点的延申长度和可能要裁剪的长度做比较，前者长时裁剪删悬挂线，否则延申。
就是很好的代码了。

梦里水香

xyp1964 发表于 2013-10-3 07:56
该延伸的延伸，该打断的打断

15.19楼的程序都试了一下，不好用，三行的应用之后变成二行了，还有很多。。08版测试，
不是很完善。。
院长的没试过，没代码。

Lisper

梦里水香 发表于 2013-10-3 20:08
15.19楼的程序都试了一下，不好用，三行的应用之后变成二行了，还有很多。。08版测试，
不是很完善。。
...

请上传具体的示例来说明一下！

crazylsp

这个问题就是ZML大师编制的框选延伸的嘛,参见
http://bbs.mjtd.com/forum.php?mo ... 71&page=2#pid557756
(defun c:test (/ stn i stnn stnnt ptlst pt10 pt11)
    (setq dm(getvar "EDGEMODE" ))
    (setvar "EDGEMODE" 1)
    (setq i 0)
    (if        (setq stn (ssget))(progn
        (vl-cmdf "_undo"  "be")
        (repeat        (sslength stn)
            (setq stnn   (ssname stn i)
                  stnnt  (entget stnn)
                  pt10 (cdr (assoc 10 stnnt))
                  pt11 (cdr (assoc 11 stnnt))
            )
            (vl-cmdf "_extend"  "" (list stnn pt10) "")
            (vl-cmdf "_extend"  "" (list stnn pt11) "")
            (vl-cmdf "_trim"  "" (list stnn pt10) "")
            (vl-cmdf "_trim"  "" (list stnn pt11) "")
            (setq i (1+ i))
        )
        (vl-cmdf "_undo"  "e")
    ))
    (setq i 0 ptlst nil)
    (repeat (sslength stn)
            (setq stnn   (ssname stn i)
                  stnnt  (entget stnn)
                  pt10 (cdr (assoc 10 stnnt))
                  pt11 (cdr (assoc 11 stnnt))
                  ptlst(cons pt10 ptlst)
                  ptlst(cons pt11 ptlst)
                  i    (1+ i)
            )
    )
    (setq pt(maxmin ptlst))
    (vl-cmdf "_rectang" "non"(car pt) "non"(cadr pt))
    (setvar "EDGEMODE" dm)
    (princ)
)

(defun maxmin(lst / x n a b c d)
    (setq x (car lst)
          a (car x)   
          b (cadr x)  
          c (car x)   
          d (cadr x)  
          n 1
    )
    (repeat (max (- (length lst) 1) 0)
      (setq x (nth n lst)      
            a (min a (car x))  
            b (min b (cadr x))
            c (max c (car x))  
            d (max d (cadr x))
      )
      (setq n (1+ n))
    )
    (list (list a b) (list c d))
)

czb203

这个还不错哦

鱼与熊掌

这个不错 不过我居然没阅读能力 我的天```````

恕放之生命

那就设计意图不明显，有时候不知道是修剪还是要延伸。

coverne

院长的思路有么

tongtong3489

很有意思的想法

tender138

好东西，谢谢！