求增减直线长度的工具

gbhsu

回复 ljpnb 的帖子
可能是写错了，标注这个词我也不太明白！
应是，点选尺寸线的一端，可以伸长或缩短！

gcho

类似将标注延长（或修剪）一样，看动画：

动画是为了表示清楚，添加了辅助线然后用了延伸_extend命令！
最好能和增减直线合并到一个命令zz（即选择对象可以为直线、也可以为标注），还有一点就是选择时提供一次框选多个对象。请ljpnb 再帮忙一下，谢谢！

zhynt

2. 
   
3. (defun c:len ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq en (entsel "\n选择需要修改的标注:"))
   
6.   (setq lengthen (getreal "\n输入需增加或减少的长度:"))
   
7.   (setq pt1 (cadr en))
   
8.   (setq ent (entget (car en)))
   
9.   (setq        pta (cdr (assoc 13 ent))
   
10.         ptb (cdr (assoc 14 ent))
    
11.   )
    
12.   (if (> (distance pta pt1) (distance pt1 ptb))
    
13.     (progn (setq pt2 (polar ptb (angle pta ptb) lengthen))
    
14.            (setq ent1 (cons 14 pt2))
    
15.            (setq ent (subst ent1 (assoc 14 ent) ent))
    
16.            (entmod ent)
    
17.     )
    
18.     (progn (setq pt2 (polar pta (angle ptb pta) lengthen))
    
19.            (setq ent1 (cons 13 pt2))
    
20.            (setq ent (subst ent1 (assoc 13 ent) ent))
    
21.            (entmod ent)
    
22.     )
    
23.   )
    
24.   (setvar "cmdecho" 1)
    
25.   (princ)
    
26. )
    

<br /> (defun c:len ()<br />   (setvar "cmdecho" 0)<br />   (setq en (entsel "\n选择需要修改的标注:"))<br />   (setq lengthen (getreal "\n输入需增加或减少的长度:"))<br />   (setq pt1 (cadr en))<br />   (setq ent (entget (car en)))<br />   (setq        pta (cdr (assoc 13 ent))<br />         ptb (cdr (assoc 14 ent))<br />   )<br />   (if (> (distance pta pt1) (distance pt1 ptb))<br />     (progn (setq pt2 (polar ptb (angle pta ptb) lengthen))<br />            (setq ent1 (cons 14 pt2))<br />            (setq ent (subst ent1 (assoc 14 ent) ent))<br />            (entmod ent)<br />     )<br />     (progn (setq pt2 (polar pta (angle ptb pta) lengthen))<br />            (setq ent1 (cons 13 pt2))<br />            (setq ent (subst ent1 (assoc 13 ent) ent))<br />            (entmod ent)<br />     )<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

ljpnb

直线长度增减,支持框选

xiaxiang

gcho 发表于 2011-7-26 09:03
类似将标注延长（或修剪）一样，看动画：

动画是为了表示清楚，添加了辅助线然后用了延伸_extend命令！
...

这个像是尺寸驱动。貌似没有好的成熟的程序。

zhynt

简单的标注操作：

2. 
   
3. (defun c:ddi (/        control        dim_ss mod refer refer_pt n m ent a_pt1        a_pt2 pta ptb pta1 ptb1        e_pt e_pt1
   
4.               pt1 pt2 pt1a pt2a         jpt1 jpt2 lengthen ang en
   
5.              )
   
6.   (initget "H R UP A E")
   
7.   (setq        control        (getkword
   
8.                   "\n请选择操作方式:[复位(H)/还原(R)/更新(UP)/对齐(A)/延伸(E)]<退出>"
   
9.                 )
   
10.   )
    
11.   (cond        ((= control "H")
    
12.          (princ "\n选择需修改的标注 :")
    
13.          (setq dim_ss (ssget '((0 . "DIMENSION"))))
    
14.          (command "dimedit" "h" dim_ss "")
    
15.         )
    
16.         ((= control "R")
    
17.          (princ "\n选择需修改的标注 :")
    
18.          (setq dim_ss (ssget '((0 . "DIMENSION"))))
    
19.          (command "dimedit" "n" "" dim_ss "")
    
20.         )
    
21.         ((= control "UP")
    
22.          (princ "\n选择需修改的标注 :")
    
23.          (setq dim_ss (ssget '((0 . "DIMENSION"))))
    
24.          (command "-DIMSTYLE" "a" dim_ss "")
    
25.         )
    
26.         ((= control "A")
    
27.          (initget "D L")
    
28.          (setq mode (getkword "\n请选择对齐方式:[尺寸线(D)/延伸线(L)]<L>"))
    
29.          (cond ((= mode "D")
    
30.                 (setq refer (entsel "\n选择参考标注:"))
    
31.                 (princ "\n选择需对齐的标注 :")
    
32.                 (setq dim_ss (ssget '((0 . "DIMENSION"))))
    
33.                 (setq refer_pt (assoc 10 (entget (car refer))))
    
34.                 (setq n (sslength dim_ss))
    
35.                 (setq m 0)
    
36.                 (while (/= m n)
    
37.                   (setq ent (entget (ssname dim_ss m)))
    
38.                   (setq ent (subst refer_pt (assoc 10 ent) ent))
    
39.                   (entmod ent)
    
40.                   (setq m (1+ m))
    
41.                 )
    
42.                )
    
43.                ((= mode "L")
    
44.                 (setq a_pt1 (getpoint "\n指定对齐点:"))
    
45.                 (princ "\n选择需对齐的标注 :")
    
46.                 (setq dim_ss (ssget '((0 . "DIMENSION"))))
    
47.                 (setq n (sslength dim_ss))
    
48.                 (setq m 0)
    
49.                 (while (/= m n)
    
50.                   (setq ent (entget (ssname dim_ss m)))
    
51.                   (setq        pta (cdr (assoc 10 ent))
    
52.                         pt1 (cdr (assoc 13 ent))
    
53.                         pt2 (cdr (assoc 14 ent))
    
54.                   )
    
55.                   (setq ang (angle pta pt2))
    
56.                   (setq a_pt2 (polar a_pt1 (+ ang (* 0.5 pi)) 1.0))
    
57.                   (setq pt1a (inters pt1 (polar pt1 ang 1.0) a_pt1 a_pt2 nil))
    
58.                   (setq ent (subst (cons 13 pt1a) (assoc 13 ent) ent))
    
59.                   (setq pt2a (inters pt2 pta a_pt1 a_pt2 nil))
    
60.                   (setq ent (subst (cons 14 pt2a) (assoc 14 ent) ent))
    
61.                   (entmod ent)
    
62.                   (setq m (1+ m))
    
63.                 )
    
64.                )
    
65.          )
    
66.         )
    
67.         ((= control "E")
    
68.          (setq lengthen (getreal "\n输入需增加或减少的长度:<图中点取>"))
    
69.          (if (= lengthen nil)
    
70.            (setq e_pt (getpoint "\n延伸至:"))
    
71.          )
    
72.          (while        (setq en (entsel "\n选择需要修改的标注:"))
    
73.            (setq pt1 (cadr en))
    
74.            (setq ent (entget (car en)))
    
75.            (setq pta (cdr (assoc 13 ent))
    
76.                  ptb (cdr (assoc 14 ent))
    
77.                  ptc (cdr (assoc 10 ent))
    
78.                  ang (angle ptc ptb)
    
79.            )
    
80.            (if (= lengthen nil)
    
81.              (progn (setq e_pt1        (polar e_pt ang 1.0)
    
82.                           pta1        (polar pta (+ ang (* 0.5 pi)) 1.0)
    
83.                           ptb1        (polar ptb (+ ang (* 0.5 pi)) 1.0)
    
84.                     )
    
85.                     (setq jpt1 (inters pta pta1 e_pt e_pt1 nil)
    
86.                           jpt2 (inters ptb ptb1 e_pt e_pt1 nil)
    
87.                     )
    
88.                     (if        (< (distance pta jpt1) (distance ptb jpt2))
    
89.                       (setq ent (subst (cons 13 jpt1) (assoc 13 ent) ent))
    
90.                       (setq ent (subst (cons 14 jpt2) (assoc 14 ent) ent))
    
91.                     )
    
92.                     (entmod ent)
    
93.              )
    
94.              (progn
    
95.                (if (> (distance pta pt1) (distance pt1 ptb))
    
96.                  (progn        (setq pt2 (polar ptb (angle pta ptb) lengthen))
    
97.                         (setq ent1 (cons 14 pt2))
    
98.                         (setq ent (subst ent1 (assoc 14 ent) ent))
    
99.                         (entmod ent)
    
100.                  )
     
101.                  (progn        (setq pt2 (polar pta (angle ptb pta) lengthen))
     
102.                         (setq ent1 (cons 13 pt2))
     
103.                         (setq ent (subst ent1 (assoc 13 ent) ent))
     
104.                         (entmod ent)
     
105.                  )
     
106.                )
     
107.              )
     
108.            )
     
109.          )
     
110.         )
     
111.   )
     
112.   (setvar "cmdecho" 1)
     
113.   (princ)
     
114. )
     

<br /> (defun c:ddi (/        control        dim_ss mod refer refer_pt n m ent a_pt1        a_pt2 pta ptb pta1 ptb1        e_pt e_pt1<br />               pt1 pt2 pt1a pt2a         jpt1 jpt2 lengthen ang en<br />              )<br />   (initget "H R UP A E")<br />   (setq        control        (getkword<br />                   "\n请选择操作方式:[复位(H)/还原(R)/更新(UP)/对齐(A)/延伸(E)]<退出>"<br />                 )<br />   )<br />   (cond        ((= control "H")<br />          (princ "\n选择需修改的标注 :")<br />          (setq dim_ss (ssget '((0 . "DIMENSION"))))<br />          (command "dimedit" "h" dim_ss "")<br />         )<br />         ((= control "R")<br />          (princ "\n选择需修改的标注 :")<br />          (setq dim_ss (ssget '((0 . "DIMENSION"))))<br />          (command "dimedit" "n" "" dim_ss "")<br />         )<br />         ((= control "UP")<br />          (princ "\n选择需修改的标注 :")<br />          (setq dim_ss (ssget '((0 . "DIMENSION"))))<br />          (command "-DIMSTYLE" "a" dim_ss "")<br />         )<br />         ((= control "A")<br />          (initget "D L")<br />          (setq mode (getkword "\n请选择对齐方式:[尺寸线(D)/延伸线(L)]<L>"))<br />          (cond ((= mode "D")<br />                 (setq refer (entsel "\n选择参考标注:"))<br />                 (princ "\n选择需对齐的标注 :")<br />                 (setq dim_ss (ssget '((0 . "DIMENSION"))))<br />                 (setq refer_pt (assoc 10 (entget (car refer))))<br />                 (setq n (sslength dim_ss))<br />                 (setq m 0)<br />                 (while (/= m n)<br />                   (setq ent (entget (ssname dim_ss m)))<br />                   (setq ent (subst refer_pt (assoc 10 ent) ent))<br />                   (entmod ent)<br />                   (setq m (1+ m))<br />                 )<br />                )<br />                ((= mode "L")<br />                 (setq a_pt1 (getpoint "\n指定对齐点:"))<br />                 (princ "\n选择需对齐的标注 :")<br />                 (setq dim_ss (ssget '((0 . "DIMENSION"))))<br />                 (setq n (sslength dim_ss))<br />                 (setq m 0)<br />                 (while (/= m n)<br />                   (setq ent (entget (ssname dim_ss m)))<br />                   (setq        pta (cdr (assoc 10 ent))<br />                         pt1 (cdr (assoc 13 ent))<br />                         pt2 (cdr (assoc 14 ent))<br />                   )<br />                   (setq ang (angle pta pt2))<br />                   (setq a_pt2 (polar a_pt1 (+ ang (* 0.5 pi)) 1.0))<br />                   (setq pt1a (inters pt1 (polar pt1 ang 1.0) a_pt1 a_pt2 nil))<br />                   (setq ent (subst (cons 13 pt1a) (assoc 13 ent) ent))<br />                   (setq pt2a (inters pt2 pta a_pt1 a_pt2 nil))<br />                   (setq ent (subst (cons 14 pt2a) (assoc 14 ent) ent))<br />                   (entmod ent)<br />                   (setq m (1+ m))<br />                 )<br />                )<br />          )<br />         )<br />         ((= control "E")<br />          (setq lengthen (getreal "\n输入需增加或减少的长度:<图中点取>"))<br />          (if (= lengthen nil)<br />            (setq e_pt (getpoint "\n延伸至:"))<br />          )<br />          (while        (setq en (entsel "\n选择需要修改的标注:"))<br />            (setq pt1 (cadr en))<br />            (setq ent (entget (car en)))<br />            (setq pta (cdr (assoc 13 ent))<br />                  ptb (cdr (assoc 14 ent))<br />                  ptc (cdr (assoc 10 ent))<br />                  ang (angle ptc ptb)<br />            )<br />            (if (= lengthen nil)<br />              (progn (setq e_pt1        (polar e_pt ang 1.0)<br />                           pta1        (polar pta (+ ang (* 0.5 pi)) 1.0)<br />                           ptb1        (polar ptb (+ ang (* 0.5 pi)) 1.0)<br />                     )<br />                     (setq jpt1 (inters pta pta1 e_pt e_pt1 nil)<br />                           jpt2 (inters ptb ptb1 e_pt e_pt1 nil)<br />                     )<br />                     (if        (< (distance pta jpt1) (distance ptb jpt2))<br />                       (setq ent (subst (cons 13 jpt1) (assoc 13 ent) ent))<br />                       (setq ent (subst (cons 14 jpt2) (assoc 14 ent) ent))<br />                     )<br />                     (entmod ent)<br />              )<br />              (progn<br />                (if (> (distance pta pt1) (distance pt1 ptb))<br />                  (progn        (setq pt2 (polar ptb (angle pta ptb) lengthen))<br />                         (setq ent1 (cons 14 pt2))<br />                         (setq ent (subst ent1 (assoc 14 ent) ent))<br />                         (entmod ent)<br />                  )<br />                  (progn        (setq pt2 (polar pta (angle ptb pta) lengthen))<br />                         (setq ent1 (cons 13 pt2))<br />                         (setq ent (subst ent1 (assoc 13 ent) ent))<br />                         (entmod ent)<br />                  )<br />                )<br />              )<br />            )<br />          )<br />         )<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

daiguafan

刚好需要啊，谢谢

ljpnb

更新对象用直接修改DXF数据效率高,这里提供了另一种"拉伸"的方式来实现

2. 
   
3. (defun c:tt ()
   
4.   (setq en (entsel "\n选择一线性标注:"))
   
5.   (setq        ent (car en)
   
6.         dxf (entget ent)
   
7.         pt  (cadr en)
   
8.   )
   
9.   (setq        p1  (cdr (assoc 10 dxf))
   
10.         p3  (cdr (assoc 13 dxf))
    
11.         p4  (cdr (assoc 14 dxf))
    
12.         len (cdr (assoc 42 dxf))
    
13.         txt (cdr (assoc 1 dxf))
    
14.   )
    
15.   (setq        len0 (getreal (strcat "\n当前尺寸的实际值为<"
    
16.                               (rtos len)
    
17.                               ">,请输入新的尺寸值:"
    
18.                       )
    
19.              )
    
20.   )
    
21.   (if (/= txt "")
    
22.     (progn
    
23.       (setq dxf (subst (cons 1 "") (assoc 1 dxf) dxf))
    
24.       (entmod dxf)
    
25.     )
    
26.   )
    
27.   (setq ang (angle p4 p1))
    
28.   (cond        ((= ang (* pi 0.5)) (setq ang1 0))
    
29.         ((= ang pi) (setq ang1 (* pi 0.5)))
    
30.         (T (setq ang1 (angle p3 p4)))
    
31.   )
    
32.   (setq l (- len0 len))
    
33.   (setq os (getvar "osmode"))
    
34.   (setvar "osmode" 0)
    
35.   (setvar "cmdecho" 0)
    
36.   (if (< (distance pt p4) (distance pt p3))
    
37.     (progn
    
38.       (setq p44 (polar p4 ang1 l))
    
39.       (command "stretch" "c" p4 p4 "" p4 p44)
    
40.     )
    
41.     (progn
    
42.       (setq p33 (polar p3 (+ ang1 pi) l))
    
43.       (command "stretch" "c" p3 p3 "" p3 p33)
    
44.     )
    
45.   )
    
46.   (setvar "osmode" os)
    
47.   (setvar "cmdecho" 1)
    
48.   (princ)
    
49. )
    

<br /> (defun c:tt ()<br />   (setq en (entsel "\n选择一线性标注:"))<br />   (setq        ent (car en)<br />         dxf (entget ent)<br />         pt  (cadr en)<br />   )<br />   (setq        p1  (cdr (assoc 10 dxf))<br />         p3  (cdr (assoc 13 dxf))<br />         p4  (cdr (assoc 14 dxf))<br />         len (cdr (assoc 42 dxf))<br />         txt (cdr (assoc 1 dxf))<br />   )<br />   (setq        len0 (getreal (strcat "\n当前尺寸的实际值为<"<br />                               (rtos len)<br />                               ">,请输入新的尺寸值:"<br />                       )<br />              )<br />   )<br />   (if (/= txt "")<br />     (progn<br />       (setq dxf (subst (cons 1 "") (assoc 1 dxf) dxf))<br />       (entmod dxf)<br />     )<br />   )<br />   (setq ang (angle p4 p1))<br />   (cond        ((= ang (* pi 0.5)) (setq ang1 0))<br />         ((= ang pi) (setq ang1 (* pi 0.5)))<br />         (T (setq ang1 (angle p3 p4)))<br />   )<br />   (setq l (- len0 len))<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (if (< (distance pt p4) (distance pt p3))<br />     (progn<br />       (setq p44 (polar p4 ang1 l))<br />       (command "stretch" "c" p4 p4 "" p4 p44)<br />     )<br />     (progn<br />       (setq p33 (polar p3 (+ ang1 pi) l))<br />       (command "stretch" "c" p3 p3 "" p3 p33)<br />     )<br />   )<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

AMTONNY

这个思路不错哟

434939575

精品哦。学习了。