源码学习 间隙分割，异等偏移，定距等分

ucuc2003

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

<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 />   (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 />

源码学习： 《间隙分割，异等偏移，定距等分》
修改了下，增加了自动记忆功能，以及判断等分数，重新发帖
鸣谢原帖作者：荒野孤行
http://bbs.mjtd.com/thread-113876-1-1.html

星辰g88

大神，能不能把标尺寸的插件发一下啊，

zj20190405

大佬，能麻烦修改下源码嘛，点选对象改成捕捉对角点支持横向竖向，然后。输入等分距离，然后等分数量，空格结束我觉得这样方便点，更快

00放飞梦想00

alexmai 发表于 2017-11-29 18:43
如果要实现这种等分，应如何操作？

这个功能实现了吗

xzs0829

顶顶顶！！

wslb

顶顶顶！！

yoyoho

感谢 ucuc2003 分享程序!!!!

305341043

好！

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

love1030312

这个修改非常好用了  感谢 感谢

fsafaffa

很有用啊，感谢楼主分享

天下逍遥

很好的程序，顶楼主