[转贴]：尺寸标注的断开

lsjjm

转贴一个尺寸标注的断开的程序请大家试用:

2. 
   
3. ;;DBREAK - dimension line break utility.  by W.Kramer
   
4. (defun C:DBREAK ( / EN P1 P2 ENL ENB ELB NMB ELT ENT)
   
5.    (if (DBREAK0) (progn
   
6.       (DBREAK1)
   
7.       (if (null
   
8.          (entmake (list
   
9.            '(0 . "BLOCK")
   
10.            (assoc 2 ELT)
    
11.            (assoc 10 ELT)
    
12.            '(70 . 1)
    
13.          ))) (progn
    
14.           (prompt "\nRedefine failed!")
    
15.           (exit) ;;force exit of routine
    
16.       ))
    
17.       (while ENT
    
18.         (setq ELT (entget ENT))
    
19.         (if (not (eq ENL ENT))
    
20.           (entmake ELT)
    
21.           (DBREAK2)
    
22.         )
    
23.         (setq ENT (entnext ENT))
    
24.       )
    
25.       (if (entmake '((0 . "ENDBLK")))
    
26.         (prompt "\nBlock modified")
    
27.         (prompt "\nBLOCK END failure!")
    
28.       )
    
29.       (entupd ENB)
    
30.      )
    
31.      (prompt "\nInvalid input")
    
32.    )
    
33.    (princ)
    
34. )
    
35. (defun DBREAK0 ( / EL)
    
36.   (setq EN
    
37.      (nentsel
    
38.        "\nSelect dimension line to break: "))
    
39.      (if EN (progn
    
40.        (setq EL (entget (car EN))
    
41.             P1 (cadr EN))
    
42.        (if (and (= (cdr (assoc 0 EL)) "LINE")
    
43.                (> (length EN) 2))
    
44.           (setq P2
    
45.             (getpoint
    
46.               (cadr EN)
    
47.                 "\nOther side of break: "))
    
48.           (prompt "\nLine was not selected!")
    
49.       )
    
50.    ))
    
51.    (if (and P1 P2)
    
52.       (setq P1 (osnap (cadr EN) "NEA")
    
53.             P2 (osnap P2 "NEA")
    
54.       ))
    
55.    (if (and P1 P2) 'T nil))
    
56. (defun DBREAK1 ()
    
57.    (setq
    
58.          ENL (car EN)
    
59.          ENB (car (last EN))
    
60.          ELB (entget ENB)
    
61.          NMB (cdr (assoc 2 ELB))
    
62.          ELT (tblsearch "BLOCK" NMB)
    
63.          ENT (cdr (assoc -2 ELT))
    
64.    )
    
65. )
    
66. (defun DBREAK2 ( / LYR PP1 PP2 PA PB)
    
67.   (setq PP1 (cdr (assoc 10 ELT))
    
68.          PP2 (cdr (assoc 11 ELT))
    
69.          LYR (cdr (assoc 8 ELT)) )
    
70.   (if (< (distance PP1 P1)
    
71.           (distance PP1 P2))
    
72.       (setq PA P1
    
73.             PB P2)
    
74.       (setq PA P2
    
75.             PB P1) )
    
76.    (LINE PP1 PA Lyr 1)
    
77.    (LINE PB PP2 Lyr 1))
    
78. (defun LINE (P1 P2 Lyr BlkFlg)
    
79.   (entmake (list
    
80.     '(0 . "LINE")
    
81.     (cons 6 (if BlkFlg "BYBLOCK" "BYLAYER"))
    
82.     (if LYR
    
83.       (cons 8 LYR)
    
84.       (getvar "CLAYER"))
    
85.     (cons 10 P1) (cons 11 P2)
    
86.     (cons 62 (if BlkFlg 0 256))))
    
87. )

<br /> ;;DBREAK - dimension line break utility.  by W.Kramer<br /> (defun C:DBREAK ( / EN P1 P2 ENL ENB ELB NMB ELT ENT)<br />    (if (DBREAK0) (progn<br />       (DBREAK1) <br />       (if (null<br />          (entmake (list<br />            '(0 . "BLOCK")<br />            (assoc 2 ELT)<br />            (assoc 10 ELT)<br />            '(70 . 1)<br />          ))) (progn<br />           (prompt "\nRedefine failed!")<br />           (exit) ;;force exit of routine<br />       )) <br />       (while ENT<br />         (setq ELT (entget ENT))<br />         (if (not (eq ENL ENT))<br />           (entmake ELT)<br />           (DBREAK2) <br />         ) <br />         (setq ENT (entnext ENT))<br />       ) <br />       (if (entmake '((0 . "ENDBLK")))<br />         (prompt "\nBlock modified")<br />         (prompt "\nBLOCK END failure!")<br />       ) <br />       (entupd ENB) <br />      ) <br />      (prompt "\nInvalid input")<br />    ) <br />    (princ)<br /> )<br /> (defun DBREAK0 ( / EL)<br />   (setq EN<br />      (nentsel<br />        "\nSelect dimension line to break: "))<br />      (if EN (progn<br />        (setq EL (entget (car EN))<br />             P1 (cadr EN))<br />        (if (and (= (cdr (assoc 0 EL)) "LINE")<br />                (> (length EN) 2))<br />           (setq P2<br />             (getpoint<br />               (cadr EN)<br />                 "\nOther side of break: "))<br />           (prompt "\nLine was not selected!")<br />       ) <br />    ))<br />    (if (and P1 P2)<br />       (setq P1 (osnap (cadr EN) "NEA")<br />             P2 (osnap P2 "NEA")<br />       ))<br />    (if (and P1 P2) 'T nil))<br /> (defun DBREAK1 ()<br />    (setq<br />          ENL (car EN)<br />          ENB (car (last EN))<br />          ELB (entget ENB)<br />          NMB (cdr (assoc 2 ELB))<br />          ELT (tblsearch "BLOCK" NMB)<br />          ENT (cdr (assoc -2 ELT))<br />    )<br /> )<br /> (defun DBREAK2 ( / LYR PP1 PP2 PA PB)<br />   (setq PP1 (cdr (assoc 10 ELT))<br />          PP2 (cdr (assoc 11 ELT))<br />          LYR (cdr (assoc 8 ELT)) )<br />   (if (< (distance PP1 P1)<br />           (distance PP1 P2))<br />       (setq PA P1<br />             PB P2)<br />       (setq PA P2<br />             PB P1) )<br />    (LINE PP1 PA Lyr 1)<br />    (LINE PB PP2 Lyr 1))<br /> (defun LINE (P1 P2 Lyr BlkFlg)<br />   (entmake (list<br />     '(0 . "LINE")<br />     (cons 6 (if BlkFlg "BYBLOCK" "BYLAYER"))<br />     (if LYR<br />       (cons 8 LYR)<br />       (getvar "CLAYER"))<br />     (cons 10 P1) (cons 11 P2)<br />     (cons 62 (if BlkFlg 0 256))))<br /> )

LUCAS

這個程序用很多了,缺點是打斷後線會改變為bylayer

aeo

我没看懂呀,为什么要画line ?

liyguo

什么软件

maxbug

标题不清楚.应该是"尺寸线打断",