[编程申请]：天正有个标注一分为二的命令，能否实现个一分为多个的命令？

忘忧

谢谢！:4

梦断江南

2. 
   
3. (princ "\ndmd====dim 标注断开(1次)-v1.01------------------lxx.2001.5ok")
   
4. 
   
5. (defun c:dmd (/ uo ux uy odims ent entl entl2 ptd1 p10 p13 p14 ang1 ang2 ptd2 np14 np10)
   
6. (princ "\ndmd====dim 标注断开-v1.01-------------------lxx.2001.5ok")
   
7. (setq uo (getvar "ucsorg")
   
8.       ux (getvar "ucsxdir")
   
9.       uy (getvar "ucsydir")
   
10.       odims (getvar "dimstyle")
    
11. )
    
12. (command "cmdecho" "0" "osnap" "nea")
    
13. (command "ucs" "")
    
14. (defun *error* (msg) (print "退出程序")(command ".ucs" "3" uo ux uy ".dimstyle" "r" odims)(setq *error* nil)(princ))
    
15. (while
    
16.   (setq ent (car(entsel "\n选择要断开的dim:"))
    
17.         entl (entget ent)
    
18.         entl2 entl
    
19.   )
    
20.   (if (member '(0 . "DIMENSION") entl)
    
21.     (progn
    
22.       (setq ptd1 (getpoint "\n选择断开点:")
    
23.             p10 (cdr(assoc 10 entl))
    
24.             p13 (cdr(assoc 13 entl))
    
25.             p14 (cdr(assoc 14 entl))
    
26.             p3 (cdr (assoc 3 entl));;dimstyle
    
27.       )
    
28.       (if (member '(100 . "AcDbRotatedDimension") entl)
    
29.         (setq ang1 (cdr(assoc 50 entl)))
    
30.         (setq ang1 (angle p14 p13))
    
31.       )       
    
32.       (setq ang2 (+ ang1 (/ PI 2))
    
33.             ptd2 (polar ptd1 ang2 100)
    
34.             np14 (inters ptd1 ptd2 p13 p14 nil)
    
35.             np10 (inters ptd1 ptd2 p10 (polar p10 ang1 100) nil)
    
36.             entl (subst (cons 13 np14)(assoc 13 entl) entl)
    
37.             entl2 (subst (cons 10 np10)(assoc 10 entl2) entl2)
    
38.             entl2 (subst (cons 14 np14)(assoc 14 entl2) entl2)
    
39.       )
    
40.       (command ".dimstyle" "r" p3)
    
41.       (entmod entl)
    
42.       (entmake entl2)
    
43.       (setq ent2 (entlast))
    
44.       (command ".dim" "hom" ent ent2 "" ^c)
    
45.     );;end progn
    
46.   );;END IF
    
47. );;END WHILE
    
48. (command ".ucs" "3" uo ux uy
    
49.          ".dimstyle" "r" odims)
    
50. (setq *error* nil)
    
51. (princ)
    
52. )
    

<br /> (princ "\ndmd====dim 标注断开(1次)-v1.01------------------lxx.2001.5ok")<br /> <br /> (defun c:dmd (/ uo ux uy odims ent entl entl2 ptd1 p10 p13 p14 ang1 ang2 ptd2 np14 np10)<br /> (princ "\ndmd====dim 标注断开-v1.01-------------------lxx.2001.5ok")<br /> (setq uo (getvar "ucsorg")<br />       ux (getvar "ucsxdir")<br />       uy (getvar "ucsydir")<br />       odims (getvar "dimstyle")<br /> )<br /> (command "cmdecho" "0" "osnap" "nea")<br /> (command "ucs" "")<br /> (defun *error* (msg) (print "退出程序")(command ".ucs" "3" uo ux uy ".dimstyle" "r" odims)(setq *error* nil)(princ))<br /> (while<br />   (setq ent (car(entsel "\n选择要断开的dim:"))<br />         entl (entget ent)<br />         entl2 entl<br />   )<br />   (if (member '(0 . "DIMENSION") entl)<br />     (progn<br />       (setq ptd1 (getpoint "\n选择断开点:")<br />             p10 (cdr(assoc 10 entl))<br />             p13 (cdr(assoc 13 entl))<br />             p14 (cdr(assoc 14 entl))<br />             p3 (cdr (assoc 3 entl));;dimstyle<br />       )<br />       (if (member '(100 . "AcDbRotatedDimension") entl) <br />         (setq ang1 (cdr(assoc 50 entl)))<br />         (setq ang1 (angle p14 p13))<br />       )        <br />       (setq ang2 (+ ang1 (/ PI 2))<br />             ptd2 (polar ptd1 ang2 100)<br />             np14 (inters ptd1 ptd2 p13 p14 nil)<br />             np10 (inters ptd1 ptd2 p10 (polar p10 ang1 100) nil)<br />             entl (subst (cons 13 np14)(assoc 13 entl) entl)<br />             entl2 (subst (cons 10 np10)(assoc 10 entl2) entl2)<br />             entl2 (subst (cons 14 np14)(assoc 14 entl2) entl2)<br />       )<br />       (command ".dimstyle" "r" p3)<br />       (entmod entl)<br />       (entmake entl2)<br />       (setq ent2 (entlast))<br />       (command ".dim" "hom" ent ent2 "" ^c)<br />     );;end progn<br />   );;END IF<br /> );;END WHILE<br /> (command ".ucs" "3" uo ux uy<br />          ".dimstyle" "r" odims)<br /> (setq *error* nil)<br /> (princ)<br /> )<br />

梦断江南

2. 
   
3. (princ "\ndmdd====dim 标注**多点**断开--v1.01-----------------lxx.2001.6")
   
4. 
   
5. (defun c:dmdd (/ uo ux uy odims ent entl entl2 ptd1 p10 p13 p14 ang1 ang2 ptd2 np14 np10 i sent sentl)
   
6. (princ "\ndmd====dim 标注 多点断开--v1.01-------------------lxx.2001.6")
   
7. (setq uo (getvar "ucsorg")
   
8.       ux (getvar "ucsxdir")
   
9.       uy (getvar "ucsydir")
   
10.       odims (getvar "dimstyle")
    
11. )
    
12. (command "cmdecho" "0" "osnap" "nea")
    
13. (command "ucs" "")
    
14. (defun *error* (msg) (print "退出程序")(command ".ucs" "3" uo ux uy ".dimstyle" "r" odims)(setq *error* nil)(princ))  ;;;自定义出错处理
    
15. (setq ent (car(entsel "\n选择要断开的dim:"))
    
16.       entl (entget ent)
    
17. )
    
18. (if (member '(0 . "DIMENSION") entl)
    
19.     (setq entl2 entl
    
20.           p10 (cdr(assoc 10 entl))
    
21.           p13 (cdr(assoc 13 entl))
    
22.           p14 (cdr(assoc 14 entl))
    
23.           p3 (cdr (assoc 3 entl));;dimstyle
    
24.     )
    
25. )
    
26. (if (member '(100 . "AcDbRotatedDimension") entl)
    
27.     (setq ang1 (cdr(assoc 50 entl)))
    
28.     (setq ang1 (angle p14 p13))
    
29. );;get angle
    
30. (setq ang2 (+ ang1 (/ PI 2)) )
    
31. (while
    
32.       (setq ptd1 (getpoint "\n选择断开点:")
    
33.             ptd2 (polar ptd1 ang2 100)
    
34.             np10 (inters ptd1 ptd2 p10 (polar p10 ang1 100) nil)
    
35.             ss (ssget "f" (list np10 (polar np10 ang2 1)) '((0 . "DIMENSION")))
    
36.             i 0
    
37.       );;while 条件
    
38.       (repeat (sslength ss)
    
39.         (setq sent (ssname ss i)
    
40.               i (1+ i)
    
41.               sentl (entget ent)
    
42.         )
    
43.         (if (member '(0 . "DIMENSION") entl)
    
44.             (setq ent sent)
    
45.         )
    
46.       );end repeat
    
47.       (setq entl (entget ent)
    
48.             ;p10 (cdr(assoc 10 entl))
    
49.             p13 (cdr(assoc 13 entl))
    
50.             p14 (cdr(assoc 14 entl))
    
51.             np14 (inters ptd1 ptd2 p13 p14 nil)
    
52.       )                                               
    
53.       (setq entl2 entl
    
54.             entl (subst (cons 13 np14)(assoc 13 entl) entl)
    
55.             entl2 (subst (cons 10 np10)(assoc 10 entl2) entl2)
    
56.             entl2 (subst (cons 14 np14)(assoc 14 entl2) entl2)
    
57.       )
    
58.       (command ".dimstyle" "r" p3)
    
59.       (entmod entl)
    
60.       (entmake entl2)
    
61.       (setq ent2 (entlast))
    
62.       (command ".dim" "hom" ent ent2 "" ^c)
    
63.       (foreach n (setq n nil) '(ptd1 ptd2 ss ent entl))
    
64. );END WHILE
    
65. (command ".ucs" "3" uo ux uy
    
66.          ".dimstyle" "r" odims)
    
67. (setq *error* nil)
    
68. (princ)
    
69. )
    

<br /> (princ "\ndmdd====dim 标注**多点**断开--v1.01-----------------lxx.2001.6")<br /> <br /> (defun c:dmdd (/ uo ux uy odims ent entl entl2 ptd1 p10 p13 p14 ang1 ang2 ptd2 np14 np10 i sent sentl)<br /> (princ "\ndmd====dim 标注 多点断开--v1.01-------------------lxx.2001.6")<br /> (setq uo (getvar "ucsorg")<br />       ux (getvar "ucsxdir")<br />       uy (getvar "ucsydir")<br />       odims (getvar "dimstyle")<br /> )<br /> (command "cmdecho" "0" "osnap" "nea")<br /> (command "ucs" "")<br /> (defun *error* (msg) (print "退出程序")(command ".ucs" "3" uo ux uy ".dimstyle" "r" odims)(setq *error* nil)(princ))  ;;;自定义出错处理<br /> (setq ent (car(entsel "\n选择要断开的dim:"))<br />       entl (entget ent)<br /> )<br /> (if (member '(0 . "DIMENSION") entl)<br />     (setq entl2 entl<br />           p10 (cdr(assoc 10 entl))<br />           p13 (cdr(assoc 13 entl))<br />           p14 (cdr(assoc 14 entl))<br />           p3 (cdr (assoc 3 entl));;dimstyle<br />     )<br /> )<br /> (if (member '(100 . "AcDbRotatedDimension") entl) <br />     (setq ang1 (cdr(assoc 50 entl)))<br />     (setq ang1 (angle p14 p13))<br /> );;get angle<br /> (setq ang2 (+ ang1 (/ PI 2)) )<br /> (while <br />       (setq ptd1 (getpoint "\n选择断开点:")<br />             ptd2 (polar ptd1 ang2 100)<br />             np10 (inters ptd1 ptd2 p10 (polar p10 ang1 100) nil)<br />             ss (ssget "f" (list np10 (polar np10 ang2 1)) '((0 . "DIMENSION")))<br />             i 0<br />       );;while 条件<br />       (repeat (sslength ss)<br />         (setq sent (ssname ss i)<br />               i (1+ i)<br />               sentl (entget ent)<br />         )<br />         (if (member '(0 . "DIMENSION") entl)<br />             (setq ent sent)<br />         )<br />       );end repeat<br />       (setq entl (entget ent)<br />             ;p10 (cdr(assoc 10 entl))<br />             p13 (cdr(assoc 13 entl))<br />             p14 (cdr(assoc 14 entl))<br />             np14 (inters ptd1 ptd2 p13 p14 nil)<br />       )                                                <br />       (setq entl2 entl<br />             entl (subst (cons 13 np14)(assoc 13 entl) entl)<br />             entl2 (subst (cons 10 np10)(assoc 10 entl2) entl2)<br />             entl2 (subst (cons 14 np14)(assoc 14 entl2) entl2)<br />       )<br />       (command ".dimstyle" "r" p3)<br />       (entmod entl)<br />       (entmake entl2)<br />       (setq ent2 (entlast))<br />       (command ".dim" "hom" ent ent2 "" ^c)<br />       (foreach n (setq n nil) '(ptd1 ptd2 ss ent entl))<br /> );END WHILE<br /> (command ".ucs" "3" uo ux uy <br />          ".dimstyle" "r" odims)<br /> (setq *error* nil)<br /> (princ)<br /> )<br />

eachy

最新的晓东工具箱中的标注断开有此功能，还可以任意均分。

lw111111

天正5为何没有标注断开

漏网の鱼

TSSD中的尺寸断开可以输入/n就变成N等分了。

Qun

理正建筑中的【一分为二】命令可以一分为多。

悟生

天正建筑5中【增补尺寸】命令可任意分段尺寸，很方便啦

ygz6918

其实天正5中使用增加尺寸命令就能把标注断开

空壳

把以上两个lsp存成dmd.lsp和dmdd.lsp，
放到cad里的support下，
在acadr14.lsp里加入
(autoload "dmd" '("dmd"))
(autoload "dmdd" '("dmdd"))

然后就可以用了。--------给7、8楼的回复

xiaohill

哇~~~~~~2楼主太厉害了~
不过不知道怎么修改啊?