[源码]修改线段长度－initget参数设置问题

言社长

以下是修改线段长度的源码，
麻烦帮我加个initget的交互输入，像这样

1. "\n请输入每边变化值 /或 <总长T>: "

复制代码

当输入T时，

1. "\n请输入改后总长 "

复制代码

源码部分

2. 
   
3. 
   
4. (defun c:tt()
   
5. (setq os (getvar "osmode"))
   
6. (setvar "osmode" 0)
   
7. (princ "\n请选择对象：")
   
8. (setq ss(ssget '((0 . "line,arc"))))
   
9. (setq d (getreal "\n请输入每边变化值: "))
   
10. (setq len(sslength ss))
    
11. (setq i 0)
    
12. (if (/= NIL ss)
    
13.   (repeat len
    
14. (setq en1(ssname ss i))
    
15. (setq e1 (entget en1))
    
16. (setq TS (cdr(assoc 0 e1)))
    
17. (cond
    
18.   ((= TS "LINE")  ;直线
    
19. (setq pt1 (cdr (assoc 10 e1)))
    
20. (setq ptt1 (cdr (assoc 11 e1)))
    
21. (setq px1 (car pt1)
    
22.        py1 (cadr pt1)
    
23.        z0 (list px1 py1))
    
24. (setq pxx1 (car ptt1)
    
25.        pyy1 (cadr ptt1)
    
26.        z2 (list pxx1 pyy1))
    
27. (setq zx1 (/ (+ px1 pxx1) 2.0)
    
28.        zy1 (/ (+ py1 pyy1) 2.0)
    
29.        z1 (list zx1 zy1))
    
30. (setq zc (distance pt1 ptt1))  ;;;;;;;;;;;直线总长
    
31. (if (> (- d) (/ zc 2.0)) (exit))
    
32. (setq jd (angle z0 z2))
    
33. (setq b0 (polar z0 (+ pi jd) d))
    
34. (setq bn (polar z2 jd d ))
    
35. (setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))
    
36. (setq e1 (subst (cons 11 bn) (assoc 11 e1) e1))
    
37. (entmod e1)
    
38. )
    
39. ((= TS "ARC")  ;圆弧
    
40. (setq o (cdr (assoc 10 e1))
    
41.        r (cdr (assoc 40 e1))
    
42.        p0 (cdr (assoc 50 e1))
    
43.        pn (cdr (assoc 51 e1))
    
44.        hd0 (- pn p0)
    
45.        zdhd (+ p0 (/ hd0 2.0)))
    
46. (if (>= d (* (/ (abs (/ hd0 2.0)) pi) pi r)) (exit))
    
47. (setq ds (atof (angtos hd0 0 4))
    
48.        zc (* 2 pi r (/ ds 360)))  ;;;;;;;;;;;圆弧总长
    
49. (setq xds (/ (* d 360) (* 2 pi r)))
    
50. (setq xhd (* pi (/ xds 180)))
    
51. (if (>= (- d) (/ zc 2.0))  (exit))
    
52. (setq e1 (subst (cons 50 (- p0 xhd)) (assoc 50 e1) e1))
    
53. (setq e1 (subst (cons 51 (+ pn xhd)) (assoc 51 e1) e1))
    
54. (entmod e1)
    
55. )
    
56. )
    
57. (setq i (+ i 1))
    
58. )
    
59. )
    
60. (setvar "osmode" os)
    
61. (princ)
    
62. )
    
63. 
    

<br /> <br /> (defun c:tt()<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (princ "\n请选择对象：")<br /> (setq ss(ssget '((0 . "line,arc"))))<br /> (setq d (getreal "\n请输入每边变化值: "))<br /> (setq len(sslength ss))<br /> (setq i 0)<br /> (if (/= NIL ss)<br />   (repeat len<br /> (setq en1(ssname ss i))<br /> (setq e1 (entget en1))<br /> (setq TS (cdr(assoc 0 e1)))<br /> (cond <br />   ((= TS "LINE")  ;直线<br /> (setq pt1 (cdr (assoc 10 e1)))<br /> (setq ptt1 (cdr (assoc 11 e1)))<br /> (setq px1 (car pt1)<br />        py1 (cadr pt1)<br />        z0 (list px1 py1))<br /> (setq pxx1 (car ptt1)<br />        pyy1 (cadr ptt1)<br />        z2 (list pxx1 pyy1))<br /> (setq zx1 (/ (+ px1 pxx1) 2.0)<br />        zy1 (/ (+ py1 pyy1) 2.0)<br />        z1 (list zx1 zy1))<br /> (setq zc (distance pt1 ptt1))  ;;;;;;;;;;;直线总长<br /> (if (> (- d) (/ zc 2.0)) (exit))<br /> (setq jd (angle z0 z2))<br /> (setq b0 (polar z0 (+ pi jd) d))<br /> (setq bn (polar z2 jd d ))<br /> (setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))<br /> (setq e1 (subst (cons 11 bn) (assoc 11 e1) e1))<br /> (entmod e1) <br /> )<br /> ((= TS "ARC")  ;圆弧<br /> (setq o (cdr (assoc 10 e1))<br />        r (cdr (assoc 40 e1))<br />        p0 (cdr (assoc 50 e1))<br />        pn (cdr (assoc 51 e1))<br />        hd0 (- pn p0)<br />        zdhd (+ p0 (/ hd0 2.0)))<br /> (if (>= d (* (/ (abs (/ hd0 2.0)) pi) pi r)) (exit))<br /> (setq ds (atof (angtos hd0 0 4))<br />        zc (* 2 pi r (/ ds 360)))  ;;;;;;;;;;;圆弧总长<br /> (setq xds (/ (* d 360) (* 2 pi r)))<br /> (setq xhd (* pi (/ xds 180)))<br /> (if (>= (- d) (/ zc 2.0))  (exit))<br /> (setq e1 (subst (cons 50 (- p0 xhd)) (assoc 50 e1) e1))<br /> (setq e1 (subst (cons 51 (+ pn xhd)) (assoc 51 e1) e1))<br /> (entmod e1)<br /> )<br /> )<br /> (setq i (+ i 1))<br /> )<br /> )<br /> (setvar "osmode" os)<br /> (princ)<br /> )<br /> <br />

ZZXXQQ

2. (defun c:tt()
   
3. (setq os (getvar "osmode"))
   
4. (setvar "osmode" 0)
   
5. (princ "\n请选择对象：")
   
6. (setq ss(ssget '((0 . "LINE,ARC"))))
   
7. (initget "T" 1)
   
8. (setq d (getreal "\n请输入每边变化值/或 <总长T>: "))
   
9. (if (= d "T") (progn
   
10.   (setq td (getreal "\n请输入改后总长: "))
    
11.   ;...
    
12. ) (progn
    
13. (if (/= ss nil)
    
14.   (repeat (setq i (sslength ss))
    
15.    (setq e1 (entget(ssname ss (setq i (1- i)))))
    
16.    (setq TS (cdr(assoc 0 e1)))
    
17.    (if (= TS "LINE") (progn ;直线
    
18.     (setq pt1 (cdr (assoc 10 e1)))
    
19.     (setq ptt1 (cdr (assoc 11 e1)))
    
20.     (setq z0 (mapcar '+ px1 '(0 0)))
    
21.     (setq z2 (mapcar '+ ptt1 '(0 0)))
    
22. ;    (setq z1 (mapcar '(lambda (a b) (/ (+ a b) 2)) z0 z1))
    
23.     (setq zc (distance pt1 ptt1))  ;;;;;;;;;;;直线总长
    
24.     (if (> (- d) (/ zc 2.0)) (exit))
    
25.     (setq jd (angle z0 z2))
    
26.     (setq b0 (polar z0 (+ pi jd) d))
    
27.     (setq bn (polar z2 jd d))
    
28.     (setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))
    
29.     (entmod (subst (cons 11 bn) (assoc 11 e1) e1))
    
30.    ) (progn  ;圆弧
    
31.     (setq o (cdr (assoc 10 e1))
    
32.           r (cdr (assoc 40 e1))
    
33.           p0 (cdr (assoc 50 e1))
    
34.           pn (cdr (assoc 51 e1))
    
35.           hd0 (- pn p0)
    
36.           zdhd (+ p0 (/ hd0 2.0)))
    
37.     (if (>= d (* (/ (abs (/ hd0 2.0)) pi) pi r)) (exit))
    
38.     (setq ds (atof (angtos hd0 0 4))
    
39.           zc (* 2 pi r (/ ds 360)))  ;;;;;;;;;;;圆弧总长
    
40.     (setq xds (/ (* d 360) (* 2 pi r)))
    
41.     (setq xhd (* pi (/ xds 180)))
    
42.     (if (>= (- d) (/ zc 2.0))  (exit))
    
43.     (setq e1 (subst (cons 50 (- p0 xhd)) (assoc 50 e1) e1))
    
44.     (entmod (subst (cons 51 (+ pn xhd)) (assoc 51 e1) e1))
    
45.    ))
    
46.   )
    
47. )
    
48. ))
    
49. (setvar "osmode" os)
    
50. (princ)
    
51. )
    

(defun c:tt()<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (princ "\n请选择对象：")<br /> (setq ss(ssget '((0 . "LINE,ARC"))))<br /> (initget "T" 1)<br /> (setq d (getreal "\n请输入每边变化值/或 <总长T>: "))<br /> (if (= d "T") (progn<br />   (setq td (getreal "\n请输入改后总长: "))<br />   ;...<br /> ) (progn<br /> (if (/= ss nil)<br />   (repeat (setq i (sslength ss))<br />    (setq e1 (entget(ssname ss (setq i (1- i)))))<br />    (setq TS (cdr(assoc 0 e1)))<br />    (if (= TS "LINE") (progn ;直线<br />     (setq pt1 (cdr (assoc 10 e1)))<br />     (setq ptt1 (cdr (assoc 11 e1)))<br />     (setq z0 (mapcar '+ px1 '(0 0)))<br />     (setq z2 (mapcar '+ ptt1 '(0 0)))<br /> ;    (setq z1 (mapcar '(lambda (a b) (/ (+ a b) 2)) z0 z1))<br />     (setq zc (distance pt1 ptt1))  ;;;;;;;;;;;直线总长<br />     (if (> (- d) (/ zc 2.0)) (exit))<br />     (setq jd (angle z0 z2))<br />     (setq b0 (polar z0 (+ pi jd) d))<br />     (setq bn (polar z2 jd d))<br />     (setq e1 (subst (cons 10 b0) (assoc 10 e1) e1))<br />     (entmod (subst (cons 11 bn) (assoc 11 e1) e1))<br />    ) (progn  ;圆弧<br />     (setq o (cdr (assoc 10 e1))<br />           r (cdr (assoc 40 e1))<br />           p0 (cdr (assoc 50 e1))<br />           pn (cdr (assoc 51 e1))<br />           hd0 (- pn p0)<br />           zdhd (+ p0 (/ hd0 2.0)))<br />     (if (>= d (* (/ (abs (/ hd0 2.0)) pi) pi r)) (exit))<br />     (setq ds (atof (angtos hd0 0 4))<br />           zc (* 2 pi r (/ ds 360)))  ;;;;;;;;;;;圆弧总长<br />     (setq xds (/ (* d 360) (* 2 pi r)))<br />     (setq xhd (* pi (/ xds 180)))<br />     (if (>= (- d) (/ zc 2.0))  (exit))<br />     (setq e1 (subst (cons 50 (- p0 xhd)) (assoc 50 e1) e1))<br />     (entmod (subst (cons 51 (+ pn xhd)) (assoc 51 e1) e1))<br />    ))<br />   )<br /> )<br /> ))<br /> (setvar "osmode" os)<br /> (princ)<br /> )<br />

mocheng

请问楼主的问题解决了吗？能否请教下啊？

zengsijun

谢谢楼主的热心共享！！！