自己拼凑的代码，运行不了，烦请老师们调整下，谢谢!

wangxf888

代码也是咱们论坛上下载的，原作者忘记了，抱歉！我自己组合拼凑了下，搞不定~~~
代码如下：
(defun c:TY(/ e1 e13 e14 e2 e2list en en0 p1 p2 sk_dxf code)

    (setq old_lay (getvar "clayer"))
    (setq vv (getvar "osmode"))
    (setq layer "___S-Dims")
    (COMMAND "clayer" layer)  
    (setvar "osmode" 37)


  (defun sk_dxf(en code)(cdr(assoc code(entget en))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (setq key T)

  (initget "S ")

  (while(and key(= (setq p1

  (getpoint "\n指定第一条尺寸界线原点[样式(S)]:"))

      "S")
(if P1(setq key nil))
(if (command "-DIMSTYLE" "R" "ModelsDrawing-1-100")


    (key T)


  (initget "S ")
     )
       (setq p2(getpoint p1 "\n指定第二条尺寸界线原点:"))  )
    (setq en0(entlast))
    (if(= (getvar "orthomode") 0)
      (progn
      (command "_.DIMALIGNED" p1 p2 pause )      
    (setq en(entlast))
    (if (and en0 en (= (sk_dxf en0 5)(sk_dxf en 5)))
      (princ)  
      (progn
      (setq e1(entget en)
      e2(entget en '("*"))
      e2list(assoc -3 e2)
      e1(subst(cons 70 32)(assoc 70 e1)e1)
      e13(cdr(assoc 13 e1))
      e14(cdr(assoc 14 e1))
      e1(subst(cons 50 (angle e13 e14))(assoc 50 e1)e1)
      e1(reverse(cons '(100 . "AcDbRotatedDimension")(reverse e1))))
      ;(entmake (list(cons 0 "line")(cons 10 e13)(cons 11 e14)))
      (entdel en)
      (if e2list(setq e1(cons e2list e1)))
      (entmake  e1)      
      )
      )
    )
      (command "_.DIMLINEAR" p1 p2 pause )
    )
    )
    (setvar "osmode" vv)
    (setvar "clayer" old_lay)
  (princ))

菜卷鱼

你直接说要实现什么功能，否则要看半天

菜卷鱼

不知道是不是这个意思，反正改了一下，至少程序能跑了

1. (defun c:TY (/ e1 e13 e14 e2 e2list en en0 p1 p2 sk_dxf code)
   
2.   (setq old_lay (getvar "clayer"))
   
3.   (setq vv (getvar "osmode"))
   
4.   (setq layer "06文字")  ;;;;;;;;;;;这个图层你自己改回去
   
5.   (COMMAND "clayer" layer)
   
6.   (setvar "osmode" 37)
   
7.   (defun sk_dxf (en code) (cdr (assoc code (entget en))))
   
8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
9.   (setq key T)
   
10. 
    
11.   (initget "S ")
    
12. 
    
13.   (while
    
14.     (and key
    
15. (IF
    
16.    (= (setq p1 (getpoint "\n指定第一条尺寸界线原点[样式(S)]:"))
    
17.        "S "
    
18.    )
    
19.    (if P1
    
20.      (setq key nil)
    
21.    )
    
22.    (PROGN
    
23.            (command "-DIMSTYLE" "R" "02标注")  ;;;;;;;;;;;这个图层你自己改回去
    
24.      (initget "S ")
    
25.      (setq key T)
    
26.    )
    
27. )
    
28.    (setq p2 (getpoint p1 "\n指定第二条尺寸界线原点:"))
    
29.     )
    
30.      (setq en0 (entlast))
    
31.      (if (= (getvar "orthomode") 0)
    
32.        (progn
    
33.    (command "_.DIMALIGNED" p1 p2 pause)
    
34.    (setq en (entlast))
    
35.    (if (and en0 en (= (sk_dxf en0 5) (sk_dxf en 5)))
    
36.      (princ)
    
37.      (progn
    
38.        (setq e1    (entget en)
    
39.        e2    (entget en '("*"))
    
40.        e2list (assoc -3 e2)
    
41.        e1    (subst (cons 70 32) (assoc 70 e1) e1)
    
42.        e13    (cdr (assoc 13 e1))
    
43.        e14    (cdr (assoc 14 e1))
    
44.        e1    (subst (cons 50 (angle e13 e14)) (assoc 50 e1) e1)
    
45.        e1    (reverse
    
46.           (cons '(100 . "AcDbRotatedDimension") (reverse e1))
    
47.         )
    
48.        )
    
49.           ;(entmake (list(cons 0 "line")(cons 10 e13)(cons 11 e14)))
    
50.        (entdel en)
    
51.        (if e2list
    
52.          (setq e1 (cons e2list e1))
    
53.        )
    
54.        (entmake e1)
    
55.      )
    
56.    )
    
57.        )
    
58.        (command "_.DIMLINEAR" p1 p2 pause)
    
59.      )
    
60.   )
    
61.   (setvar "osmode" vv)
    
62.   (setvar "clayer" old_lay)
    
63.   (princ)
    
64. )
    

(defun c:TY (/ e1 e13 e14 e2 e2list en en0 p1 p2 sk_dxf code)<br />   (setq old_lay (getvar "clayer"))<br />   (setq vv (getvar "osmode"))<br />   (setq layer "06文字")  ;;;;;;;;;;;这个图层你自己改回去<br />   (COMMAND "clayer" layer)<br />   (setvar "osmode" 37)<br />   (defun sk_dxf (en code) (cdr (assoc code (entget en))))<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (setq key T)<br /> <br />   (initget "S ")<br /> <br />   (while<br />     (and key<br /> (IF<br />    (= (setq p1 (getpoint "\n指定第一条尺寸界线原点[样式(S)]:"))<br />        "S "<br />    )<br />    (if P1<br />      (setq key nil)<br />    )<br />    (PROGN<br />            (command "-DIMSTYLE" "R" "02标注")  ;;;;;;;;;;;这个图层你自己改回去<br />      (initget "S ")<br />      (setq key T)<br />    )<br /> )<br />    (setq p2 (getpoint p1 "\n指定第二条尺寸界线原点:"))<br />     )<br />      (setq en0 (entlast))<br />      (if (= (getvar "orthomode") 0)<br />        (progn<br />    (command "_.DIMALIGNED" p1 p2 pause)<br />    (setq en (entlast))<br />    (if (and en0 en (= (sk_dxf en0 5) (sk_dxf en 5)))<br />      (princ)<br />      (progn<br />        (setq e1    (entget en)<br />        e2    (entget en '("*"))<br />        e2list (assoc -3 e2)<br />        e1    (subst (cons 70 32) (assoc 70 e1) e1)<br />        e13    (cdr (assoc 13 e1))<br />        e14    (cdr (assoc 14 e1))<br />        e1    (subst (cons 50 (angle e13 e14)) (assoc 50 e1) e1)<br />        e1    (reverse<br />           (cons '(100 . "AcDbRotatedDimension") (reverse e1))<br />         )<br />        )<br />           ;(entmake (list(cons 0 "line")(cons 10 e13)(cons 11 e14)))<br />        (entdel en)<br />        (if e2list<br />          (setq e1 (cons e2list e1))<br />        )<br />        (entmake e1)<br />      )<br />    )<br />        )<br />        (command "_.DIMLINEAR" p1 p2 pause)<br />      )<br />   )<br />   (setvar "osmode" vv)<br />   (setvar "clayer" old_lay)<br />   (princ)<br /> )<br />