5币 求标注等分小程序

cjjh8301

要求程序可实现将整个的标注等量拆分成N个标注，N是键盘输入值，主要是针对线性及对齐标注，如圆弧、角度标注也能实现则更好。

dwg001

2. 
   
3. 
   
4. ;;;;dwg001 早期练习  
   
5. ;; 现小作修改
   
6. (defun c:df (/  ang ang1-0 dimstl dist dxf ent i inter j l lay obj oldecho oldla oldmode oldsty p0 p0- p1 p2 p2- r)
   
7. 
   
8.   (setq oldmode (getvar 'osmode)
   
9. oldla (getvar 'clayer)
   
10. oldecho (getvar 'cmdecho)
    
11. oldsty  (getvar 'dimstyle)
    
12.   )
    
13.   (setvar 'osmode  0)
    
14.   (setvar 'cmdecho 0)
    
15.   (while (setq obj (entsel "\n...选择需等分的标注> "))
    
16.     (setq
    
17.       J   (getint "\n...输入等分标注数>　")
    
18.       ent (car obj)
    
19.       dxf (entget ent)
    
20.       lay (cdr (assoc 8 dxf))
    
21.       dimstl (cdr (assoc 3 dxf))
    
22.       )
    
23.    
    
24.     (if (and obj (> J 1) (= (cdr (assoc 0 dxf)) "DIMENSION"))
    
25.       (progn
    
26. (setq i 0
    
27.        r 0
    
28. )
    
29. (command "-layer" "s" lay "")
    
30. (command "dimstyle" "r" dimstl)
    
31. (setq P0 (cdr (assoc 10 dxf))
    
32.        P2 (cdr (assoc 13 dxf))
    
33.        P1 (cdr (assoc 14 dxf))
    
34. )
    
35.         
    
36. 
    
37. (setq L (distance p1 p0)
    
38.            ang1-0 (angle P1 P0)
    
39.               p0- (polar p0  (- ang1-0  (/ pi 2)) 50)
    
40.        p2- (polar p2  ang1-0   50)
    
41.        inter (inters p0 p0-  p2 p2- nil))
    
42.         
    
43. 
    
44.         (if (/= L (distance p2 inter))(progn
    
45.          (setq dxf (subst
    
46.      (cons 13 (polar inter (- ang1-0 pi) L))
    
47.      (assoc 13 dxf)
    
48.      dxf  )   )
    
49.         　　(entmod dxf)
    
50.       　　(setq  P2 (cdr (assoc 13 dxf)))
    
51.   ) );end_ if
    
52. 
    
53. 
    
54. 　 (setq ang  (angle P1 P2)
    
55.               dist (/ (distance P1 P2) J)
    
56.        P2   (polar P1 ang dist)
    
57. )
    
58. (command "dim1" "ali" P1 P2 P0 "")
    
59. 
    
60. (while (< r (- J 1))
    
61.    (setq P2 (polar P2 ang dist))
    
62.    (command "dim" "con" P2 "" "e")
    
63.    (setq r (1+ r))
    
64. )
    
65. (setq i (1+ i))
    
66. (entdel ent)
    
67.       )
    
68.     )
    
69.     (setvar 'clayer oldla)
    
70.     (command "dimstyle" "r" oldsty)
    
71.   )
    
72.   (princ "\n...等分标注数＝")
    
73.   (princ J)
    
74.   (princ "\n...[学lisp练习: 尺寸标注等分]")
    
75.   (setvar 'osmode oldmode)
    
76.   (setvar 'cmdecho oldecho)
    
77.   (princ)
    
78. )
    

<br /> <br /> ;;;;dwg001 早期练习  <br /> ;; 现小作修改<br /> (defun c:df (/  ang ang1-0 dimstl dist dxf ent i inter j l lay obj oldecho oldla oldmode oldsty p0 p0- p1 p2 p2- r)<br /> <br />   (setq oldmode (getvar 'osmode)<br /> oldla (getvar 'clayer)<br /> oldecho (getvar 'cmdecho)<br /> oldsty  (getvar 'dimstyle)<br />   )<br />   (setvar 'osmode  0)<br />   (setvar 'cmdecho 0)<br />   (while (setq obj (entsel "\n...选择需等分的标注> "))<br />     (setq<br />       J   (getint "\n...输入等分标注数>　")<br />       ent (car obj)<br />       dxf (entget ent)<br />       lay (cdr (assoc 8 dxf))<br />       dimstl (cdr (assoc 3 dxf))<br />       )<br />     <br />     (if (and obj (> J 1) (= (cdr (assoc 0 dxf)) "DIMENSION"))<br />       (progn<br /> (setq i 0<br />        r 0<br /> )<br /> (command "-layer" "s" lay "")<br /> (command "dimstyle" "r" dimstl)<br /> (setq P0 (cdr (assoc 10 dxf))<br />        P2 (cdr (assoc 13 dxf))<br />        P1 (cdr (assoc 14 dxf))<br /> )<br />         <br /> <br /> (setq L (distance p1 p0)<br />            ang1-0 (angle P1 P0)<br />               p0- (polar p0  (- ang1-0  (/ pi 2)) 50)<br />        p2- (polar p2  ang1-0   50) <br />        inter (inters p0 p0-  p2 p2- nil))<br />         <br /> <br />         (if (/= L (distance p2 inter))(progn<br />          (setq dxf (subst<br />      (cons 13 (polar inter (- ang1-0 pi) L))<br />      (assoc 13 dxf)<br />      dxf  )   )<br />         　　(entmod dxf)<br />       　　(setq  P2 (cdr (assoc 13 dxf)))<br />   ) );end_ if<br /> <br /> <br /> 　 (setq ang  (angle P1 P2)<br />               dist (/ (distance P1 P2) J)<br />        P2   (polar P1 ang dist)<br /> )<br /> (command "dim1" "ali" P1 P2 P0 "")<br /> <br /> (while (< r (- J 1))<br />    (setq P2 (polar P2 ang dist))<br />    (command "dim" "con" P2 "" "e")<br />    (setq r (1+ r))<br /> )<br /> (setq i (1+ i))<br /> (entdel ent)<br />       )<br />     )<br />     (setvar 'clayer oldla)<br />     (command "dimstyle" "r" oldsty)<br />   )<br />   (princ "\n...等分标注数＝")<br />   (princ J)<br />   (princ "\n...[学lisp练习: 尺寸标注等分]")<br />   (setvar 'osmode oldmode)<br />   (setvar 'cmdecho oldecho)<br />   (princ)<br /> )<br />

Andyhon

类此命题都得有配合调试用的图纸(*.Dwg)
得包含充分的样例,分述原图与成果图
若只有概念性的描述殆望同行才能解读出

cjjh8301

实际很简单，就是一个命令实现等分标注的功能，比如图中的标注100变成4个25标注。

dwg001

早期的一个练习，试试．

669423907

dwg001 发表于 2012-4-29 09:25
;;学lisp早期的练习, 试试．

;;dwg001 早期练习

请问 dwg001 ，如何改，才能先选择标注，再输入等分数，且空选时，程序退出？

cjjh8301

程序可用，但是有个问题，等分后标注都归0层了，能不能改下，等分后图层不变呀。

dwg001

小作修改，见5楼更新．再试试．

cjjh8301

用了一会，发现个问题比较影响使用的，就是标注起点不在一直线的话，线性标准等分后标注都旋转了，如图

注册

等分之后连标注样式都改了啊