间隙分割→异等偏移

zheng209

非常不错，谢谢！

goubeishu

谢谢楼主分享

lz123456

代码实用  收藏备用！

长风（尚品）

路过。这个可以看

netkuo12

感謝分享

ucuc2003

sz721 发表于 2015-7-28 16:08

源码呢？源码呢？炫图不如炫源码

ucuc2003

2. ；重新加工了下，增加了距离记忆功能，楼主不知道你后期还有没有再重新优化过？
   
3. 
   
4. ;;;http://bbs.mjtd.com/thread-113876-1-1.html
   
5. ;;;间隙分割，异等偏移，定距等分
   
6. ;;;by荒野孤行，修改ucuc2003
   
7. (defun c:TT5 (/ o_DIMZIN os sel len gap npy a)
   
8.   (princ"定距等分")
   
9.   (setvar "cmdecho" 0)
   
10.   (setq o_DIMZIN (getvar "DIMZIN"))
    
11.   (setq os (getvar "osmode"))
    
12. (defun *Error* (msg);出错处理
    
13.     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))
    
14.       (progn
    
15.         (setvar "DIMZIN" o_DIMZIN)
    
16.         (setvar "osmode" os)
    
17.       )
    
18.     )
    
19. )
    
20.   (setvar "osmode" 15359)
    
21.   (setvar "DIMZIN" 8)
    
22. 
    
23.   (if (= djdf_oldlen nil) (setq djdf_oldlen 1000))
    
24.   (princ (strcat "\n指定等分总距离<" (rtos djdf_oldlen 2 7) ">: "))
    
25.   (setq len (getdist))
    
26.   (if len (setq djdf_oldlen len) (setq len djdf_oldlen))
    
27. 
    
28.   (if (= djdf_oldgap nil) (setq djdf_oldgap 50))
    
29.   (princ (strcat "\n指定固定间距<" (rtos djdf_oldgap 2 7) ">(这个值不能大于等分总距离" (rtos len 2 7) "): "))
    
30.   (setq gap (getdist))
    
31.   (if gap (setq djdf_oldgap gap) (setq gap djdf_oldgap))
    
32. 
    
33.   (if (> gap len)
    
34.     (progn (alert "请按照规定重新输入!") (exit))
    
35.   )
    
36. 
    
37.   (setq a (1+ (fix (/ len gap))))
    
38. 
    
39.   (if (= djdf_olddfs nil) (setq djdf_olddfs 10))
    
40.   (princ (strcat "\n指定等分数<" (rtos djdf_olddfs 2 7) ">(这个值不能大于" (rtos a 2 7) "):"))
    
41.   (setq npy (getint))
    
42.   (if npy (setq djdf_olddfs npy) (setq npy djdf_olddfs))
    
43.   (setvar "DIMZIN" o_DIMZIN)
    
44.   (if (> npy a)
    
45.     (progn (alert "请按照规定重新输入!") (exit))
    
46.   )
    
47. 
    
48. ;(while
    
49.   (while
    
50.     (progn
    
51.       (setq sel (entsel "\n请点选(直线、多段线、圆弧、圆、射线、或构造线)："))
    
52.       (not (if (= sel nil)
    
53.              nil
    
54.              (wcmatch (cdr (assoc 0 (entget (car sel)))) "LWPOLYLINE,POLYLINE,LINE,XLINE,RAY,SPLINE,CIRCLE,ARC") ;实体类型必须为大写
    
55.            )
    
56.       )
    
57.     )
    
58.     (princ"\n未选取任何图元,请重新点选：")
    
59.   )
    
60.   (setq len (/ (- len (* (- npy 1) gap)) npy))
    
61.   (initget 1)
    
62.   (setq pt1 (getpoint "\n指定等分偏移方向："))
    
63.   (setvar "osmode" 0)
    
64.   (setq len1 len
    
65.         gap1 gap
    
66.   )
    
67.   (command "undo" "be")
    
68.   (repeat (- npy 1)
    
69.     (command "OFFSET" len sel pt1 "")
    
70.     (setq gap (+ gap1 len))
    
71.     (command "OFFSET" gap sel pt1 "")
    
72.     (setq len (+ len1 gap))
    
73.   )
    
74.   (command "OFFSET" len sel pt1 "")
    
75.   (setvar "osmode" os)
    
76.   (command "undo" "e")
    
77. ;);while
    
78.   (princ)
    
79. )
    

；重新加工了下，增加了距离记忆功能，楼主不知道你后期还有没有再重新优化过？<br /> <br /> ;;;http://bbs.mjtd.com/thread-113876-1-1.html<br /> ;;;间隙分割，异等偏移，定距等分<br /> ;;;by荒野孤行，修改ucuc2003<br /> (defun c:TT5 (/ o_DIMZIN os sel len gap npy a) <br />   (princ"定距等分")<br />   (setvar "cmdecho" 0)<br />   (setq o_DIMZIN (getvar "DIMZIN"))<br />   (setq os (getvar "osmode"))<br /> (defun *Error* (msg);出错处理<br />     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))<br />       (progn<br />         (setvar "DIMZIN" o_DIMZIN)<br />         (setvar "osmode" os)<br />       )<br />     )<br /> )<br />   (setvar "osmode" 15359)<br />   (setvar "DIMZIN" 8)<br /> <br />   (if (= djdf_oldlen nil) (setq djdf_oldlen 1000))<br />   (princ (strcat "\n指定等分总距离<" (rtos djdf_oldlen 2 7) ">: "))<br />   (setq len (getdist))<br />   (if len (setq djdf_oldlen len) (setq len djdf_oldlen))<br /> <br />   (if (= djdf_oldgap nil) (setq djdf_oldgap 50))<br />   (princ (strcat "\n指定固定间距<" (rtos djdf_oldgap 2 7) ">(这个值不能大于等分总距离" (rtos len 2 7) "): "))<br />   (setq gap (getdist))<br />   (if gap (setq djdf_oldgap gap) (setq gap djdf_oldgap))<br /> <br />   (if (> gap len)<br />     (progn (alert "请按照规定重新输入!") (exit))<br />   )<br /> <br />   (setq a (1+ (fix (/ len gap))))<br /> <br />   (if (= djdf_olddfs nil) (setq djdf_olddfs 10))<br />   (princ (strcat "\n指定等分数<" (rtos djdf_olddfs 2 7) ">(这个值不能大于" (rtos a 2 7) "):"))<br />   (setq npy (getint))<br />   (if npy (setq djdf_olddfs npy) (setq npy djdf_olddfs))<br />   (setvar "DIMZIN" o_DIMZIN)<br />   (if (> npy a)<br />     (progn (alert "请按照规定重新输入!") (exit))<br />   )<br /> <br /> ;(while<br />   (while<br />     (progn<br />       (setq sel (entsel "\n请点选(直线、多段线、圆弧、圆、射线、或构造线)："))<br />       (not (if (= sel nil)<br />              nil<br />              (wcmatch (cdr (assoc 0 (entget (car sel)))) "LWPOLYLINE,POLYLINE,LINE,XLINE,RAY,SPLINE,CIRCLE,ARC") ;实体类型必须为大写<br />            )<br />       )<br />     )<br />     (princ"\n未选取任何图元,请重新点选：")<br />   )<br />   (setq len (/ (- len (* (- npy 1) gap)) npy))<br />   (initget 1)<br />   (setq pt1 (getpoint "\n指定等分偏移方向："))<br />   (setvar "osmode" 0)<br />   (setq len1 len<br />         gap1 gap<br />   )<br />   (command "undo" "be")<br />   (repeat (- npy 1)<br />     (command "OFFSET" len sel pt1 "")<br />     (setq gap (+ gap1 len))<br />     (command "OFFSET" gap sel pt1 "")<br />     (setq len (+ len1 gap))<br />   )<br />   (command "OFFSET" len sel pt1 "")<br />   (setvar "osmode" os)<br />   (command "undo" "e")<br /> ;);while<br />   (princ)<br /> )<br />

sz721

ucuc2003 发表于 2015-8-11 13:38
源码呢？源码呢？炫图不如炫源码

http://bbs.mjtd.com/thread-96656-1-1.html

杜阳

yuan  dai  ma   xue  xi              

lingduwx

这个工具确实非常麻烦实用，麻烦大哥修改一下，要是能支持  固定间距  为 0  的话就更强大了