线段批量缩短或伸长，沿上次改进，望指导。

缘份呐

沿上次继续加强改进。


(defun c:lll()
(setvar "osmode" 0)
(setq w (getstring "\n请选择项［缩短（SD）/总长（ZC）/伸长（SC）］: "))
(if (or (= w "zc") (= w "ZC"))
(progn
(setq d (getreal "\n输入总长度: "))
(setq ss(ssget '((0 . "line"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq pt1 (assoc 10 e1))
(setq ptt1 (assoc 11 e1))
(setq po1 (cdr pt1)
       px1 (car po1)
       py1 (cadr po1)
       z0 (list px1 py1))
(setq poo1 (cdr ptt1)
       pxx1 (car poo1)
       pyy1 (cadr poo1)
       z2 (list pxx1 pyy1))
(setq zx1 (/ (+ px1 pxx1) 2.0)
       zy1 (/ (+ py1 pyy1) 2.0)
       z1 (list zx1 zy1))
(setq jd (angle z0 z2))
(setq b0 (polar z1 (+ pi jd) (/ d 2.0)))
(setq bn (polar z1 jd (/ d  2.0)))
(setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))
(setq e1 (subst (cons 11 bn) (assoc 11 e1) e1))
(entmod e1)
)))

(if (or (= w "sc") (= w "SC"))
(progn
(setq d (getreal "\n输入每边伸长值: "))
(setq ss(ssget '((0 . "line"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq pt1 (assoc 10 e1))
(setq ptt1 (assoc 11 e1))
(setq po1 (cdr pt1)
       px1 (car po1)
       py1 (cadr po1)
       z0 (list px1 py1))
(setq poo1 (cdr ptt1)
       pxx1 (car poo1)
       pyy1 (cadr poo1)
       z2 (list pxx1 pyy1))
(setq zx1 (/ (+ px1 pxx1) 2.0)
       zy1 (/ (+ py1 pyy1) 2.0)
       z1 (list zx1 zy1))
(setq jd (angle z0 z2))
(setq b0 (polar z0 (+ pi jd) d))
(setq bn (polar z2 jd d ))
(setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))
(setq e1 (subst (cons 11 bn) (assoc 11 e1) e1))
(entmod e1)
)))
  
(if (or (= w "sd") (= w "SD"))
(progn
(setq d (getreal "\n输入每边缩短值: "))
(setq ss(ssget '((0 . "line"))))
(setq len(sslength ss))
(setq i -1)
(repeat len
  (setq i (1+ i))
(setq en1(ssname ss i))
(setq e1 (entget en1))
(setq pt1 (assoc 10 e1))
(setq ptt1 (assoc 11 e1))
(setq po1 (cdr pt1)
       px1 (car po1)
       py1 (cadr po1)
       z0 (list px1 py1))
(setq poo1 (cdr ptt1)
       pxx1 (car poo1)
       pyy1 (cadr poo1)
       z2 (list pxx1 pyy1))
(setq dd (distance po1 poo1))
(if (> d (/ dd 2.0)) (exit))
(setq zx1 (/ (+ px1 pxx1) 2.0)
       zy1 (/ (+ py1 pyy1) 2.0)
       z1 (list zx1 zy1))
(setq jd (angle z0 z2))
(setq b0 (polar z0 jd d))
(setq bn (polar z2 (+ pi jd) d ))
(setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))
(setq e1 (subst (cons 11 bn) (assoc 11 e1) e1))
(entmod e1)
)))
(setvar "osmode" 3)
(princ)
)

ZZXXQQ

1. (defun c:lll ()
   
2. (setvar "CMDECHO" 0)
   
3. (command "_.UNDO" "BE")
   
4. (setq w (strcase(getstring "\n请选择项［缩短（SD）/总长（ZC）/伸长（SC）］: ") nil))
   
5. (cond
   
6.   ((= w "ZC")
   
7.    (setq d (/ (getdist "\n输入总长度: ") 2))
   
8.    (setq ss(ssget '((0 . "LINE"))))
   
9.    (setq i -1)
   
10.    (repeat (sslength ss)
    
11.     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))
    
12.     (setq pt1 (cdr(assoc 10 e1))
    
13.           pt2 (cdr(assoc 11 e1)))
    
14.     (setq ds (- d (/ (distance pt1 pt2) 2)))
    
15.     (command "_.LENGTHEN" "DE" ds (list en pt1) (list en pt2) "")
    
16.    )
    
17.   )
    
18.   ((= w "SC")
    
19.    (setq d (getdist "\n输入每边伸长值: "))
    
20.    (setq ss (ssget '((0 . "LINE"))))
    
21.    (setq i -1)
    
22.    (repeat (sslength ss)
    
23.     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))
    
24.     (setq pt1 (cdr(assoc 10 e1))
    
25.           pt2 (cdr(assoc 11 e1)))
    
26.     (command "_.LENGTHEN" "DE" d (list en pt1) (list en pt2) "")
    
27.    )
    
28.   )
    
29.   ((= w "SD")
    
30.    (setq d (getreal "\n输入每边缩短值: "))
    
31.    (setq ss(ssget '((0 . "LINE"))))
    
32.    (setq i -1)
    
33.    (repeat (sslength ss)
    
34.     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))
    
35.     (setq pt1 (cdr(assoc 10 e1))
    
36.           pt2 (cdr(assoc 11 e1)))
    
37.     (if (> (distance pt1 pt2) (+ d d))
    
38.      (command "_.LENGTHEN" "DE" (- d) (list en pt1) (list en pt2) "")
    
39.     )
    
40.    )
    
41.   )
    
42. )
    
43. (setvar "osmode" 3)
    
44. (command "_.UNDO" "E")
    
45. (setvar "CMDECHO" 1)
    
46. (princ)
    
47. )
    

(defun c:lll ()<br /> (setvar "CMDECHO" 0)<br /> (command "_.UNDO" "BE")<br /> (setq w (strcase(getstring "\n请选择项［缩短（SD）/总长（ZC）/伸长（SC）］: ") nil))<br /> (cond<br />   ((= w "ZC")<br />    (setq d (/ (getdist "\n输入总长度: ") 2))<br />    (setq ss(ssget '((0 . "LINE"))))<br />    (setq i -1)<br />    (repeat (sslength ss)<br />     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))<br />     (setq pt1 (cdr(assoc 10 e1))<br />           pt2 (cdr(assoc 11 e1)))<br />     (setq ds (- d (/ (distance pt1 pt2) 2)))<br />     (command "_.LENGTHEN" "DE" ds (list en pt1) (list en pt2) "")<br />    )<br />   )<br />   ((= w "SC")<br />    (setq d (getdist "\n输入每边伸长值: "))<br />    (setq ss (ssget '((0 . "LINE"))))<br />    (setq i -1)<br />    (repeat (sslength ss)<br />     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))<br />     (setq pt1 (cdr(assoc 10 e1))<br />           pt2 (cdr(assoc 11 e1)))<br />     (command "_.LENGTHEN" "DE" d (list en pt1) (list en pt2) "")<br />    )<br />   )<br />   ((= w "SD")<br />    (setq d (getreal "\n输入每边缩短值: "))<br />    (setq ss(ssget '((0 . "LINE"))))<br />    (setq i -1)<br />    (repeat (sslength ss)<br />     (setq en (ssname ss (setq i (1+ i))) e1 (entget en))<br />     (setq pt1 (cdr(assoc 10 e1))<br />           pt2 (cdr(assoc 11 e1)))<br />     (if (> (distance pt1 pt2) (+ d d))<br />      (command "_.LENGTHEN" "DE" (- d) (list en pt1) (list en pt2) "")<br />     )<br />    )<br />   )<br /> )<br /> (setvar "osmode" 3)<br /> (command "_.UNDO" "E")<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

ynhh

ZZXXQQ 发表于 2012-4-3 23:26

大师版主好：请教如何改为将多段线，两端同时拉长为缩短？
谢谢您

vladimirputin

非常不错的资料， 谢谢楼主分享的啊。

缘份呐

怎么没人呢？
马上会跟进弧线的批量缩短或伸长

669423907

我支持源码！

缘份呐

谢谢了，会继续前进。

注册

楼主方便上个动画吗，谢谢

缘份呐

注册 发表于 2012-4-3 12:55
楼主方便上个动画吗，谢谢

动画，没试过，怎么弄？

注册

缘份呐 发表于 2012-4-3 22:12
动画，没试过，怎么弄？

晕，gif啊，呵呵

缘份呐

我试一下动画，

功夫佬

怎么把OSMODE变量里面的草图设置全部是打开的，在完成命令时。