标注尺寸点恢复

sxy

如何恢复默认点

yaokui25

2. (defun c:SENPOTI_modosi( / ObjSet ObjNameL m i Item I_NameList Pt3Pt4 Pt10 Pt11 Pt13 Pt14
   
3.                                         Ang50 Text1 )
   
4.         (if (= SD:Lang "E")
   
5.                 (princ "\n Return to original dimension")
   
6.                 (princ "\n 値と位置を元に戻す")
   
7.         )
   
8.         (princ "\n **********************************")
   
9.         (setq *error* *myerror*)
   
10.         (SD1028)
    
11. 
    
12.         (setq ObjSet nil)
    
13.         (while (= ObjSet nil)
    
14.                 (setq ObjSet (ssget '((0 . "DIMENSION"))))
    
15.         )
    
16.         (setq i -1 ObjNameL nil)
    
17.         (repeat (setq m (sslength ObjSet))
    
18.                         (setq ObjNameL (append ObjNameL (list (ssname ObjSet (setq i (1+ i))))))
    
19.         )
    
20. 
    
21.         (foreach Item ObjNameL
    
22.                 (setq Data (entget Item ))
    
23.                 (setq Data (subst (cons 1 "<>")(assoc 1 Data) Data))
    
24.                 (setq Data (subst (cons 51 0)(assoc 51 Data) Data))
    
25.                 (setq newid (list "ACAD"))
    
26.                 (setq newid (list (list -3 newid)))
    
27.                 (setq Data (append Data newid))
    
28.                 (entmod Data)
    
29.         )
    
30. 
    
31.                 (command "dim")
    
32.                 (foreach Item ObjNameL
    
33.                         (command "Te" Item "H")
    
34.                 )
    
35.                 (command "exit")
    
36. 
    
37. ;        (initget "Y N")
    
38. ;        (setq KW (getkword "寸法値の位置も元に戻しますか？[はい(Y)/いいえ(N)]<Y>"))
    
39. ;        (if (or (= KW "Y")(null KW))
    
40. ;                (progn                (command "dim")
    
41. ;                                        (foreach Item ObjNameL
    
42. ;                                                (command "Te" Item "H")
    
43. ;                                        )
    
44. ;                                        (command "exit")
    
45. ;                )
    
46. ;        )
    
47. 
    
48.         (SD2056)
    
49.         (setq *error* nil)
    
50. )
    
51. (if (= SD:Lang "E")
    
52.         (princ "\n Command Name: SENPOTI_modosi \n")
    
53. ;;        (princ "\n コマンド名：SENPOTI_modosi \n")
    
54. )
    
55. (defun SD1028 ()
    
56.   (setq OldCmdEcho (getvar "CMDECHO"))
    
57.   (setvar "CMDECHO" 0)
    
58.   (command "undo" "be")
    
59.   (setq OldOsmode (getvar "OSMODE"))
    
60.   (setq OldLayer (getvar "CLAYER"))
    
61.   (setq OldLType (getvar "CeLType"))
    
62.   (setq OldCeLWeight (getvar "CeLWeight"))
    
63.   (setq OldColor (getvar "CeColor"))
    
64.   (setq OldOrtho (getvar "ORTHOMODE"))
    
65.   (setq OldDStyle  (getvar "DIMSTYLE"))
    
66.   (setq OldExpert (getvar "Expert"))
    
67.   (setvar "EXPERT" 0)
    
68.   (setq Path_Lang "HKEY_CURRENT_USER\\Software\\SpeedDraftLT")
    
69.   (if (vl-registry-read Path_Lang "SD_Language" )
    
70.           (setq SD:Lang (vl-registry-read Path_Lang "SD_Language" ))
    
71.           (progn        (setq SD:Lang "J")
    
72.                           (vl-registry-write Path_Lang "SD_Language" "J")
    
73.           )
    
74.   )
    
75.   (princ)
    
76. )
    
77. ;********************************
    
78. (defun SD2056 ()
    
79.   (setvar "OSMODE" OldOsmode)
    
80.   (command "undo" "end")
    
81.   (setvar "CLAYER" OldLayer)
    
82.   (setvar "CeLType" OldLType)
    
83.   (setvar "CeLWeight" OldCeLWeight)
    
84.   (setvar "CeColor" OldColor)
    
85.   (setvar "ORTHOMODE" OldOrtho)
    
86.   (setvar "Expert" OldExpert)
    
87.   (if (and (/= (getvar "DIMSTYLE") OldDStyle)(tblsearch "DIMSTYLE" OldDStyle))
    
88.           (command "-dimstyle" "Restore" OldDStyle)
    
89.   )
    
90.   (princ "\n (C)OffshoreCad&Management")
    
91.   (setvar "CMDECHO" OldCmdEcho)
    
92.   (princ)
    
93. )
    
94. 
    
95. ;********************************
    
96. (defun *myerror* (msg)
    
97.         (setq *error* nil)
    
98.         (SD2056)
    
99.         (princ "\n Error in SpeedDraftLT")
    
100.         (princ)
     
101. )
     
102. (princ)

(defun c:SENPOTI_modosi( / ObjSet ObjNameL m i Item I_NameList Pt3Pt4 Pt10 Pt11 Pt13 Pt14<br />                                         Ang50 Text1 )<br />         (if (= SD:Lang "E")<br />                 (princ "\n Return to original dimension")<br />                 (princ "\n 値と位置を元に戻す")<br />         )<br />         (princ "\n **********************************")<br />         (setq *error* *myerror*)<br />         (SD1028)<br /> <br />         (setq ObjSet nil)<br />         (while (= ObjSet nil)<br />                 (setq ObjSet (ssget '((0 . "DIMENSION"))))<br />         )<br />         (setq i -1 ObjNameL nil)<br />         (repeat (setq m (sslength ObjSet))<br />                         (setq ObjNameL (append ObjNameL (list (ssname ObjSet (setq i (1+ i))))))<br />         )<br /> <br />         (foreach Item ObjNameL<br />                 (setq Data (entget Item ))<br />                 (setq Data (subst (cons 1 "<>")(assoc 1 Data) Data))<br />                 (setq Data (subst (cons 51 0)(assoc 51 Data) Data))<br />                 (setq newid (list "ACAD"))<br />                 (setq newid (list (list -3 newid)))<br />                 (setq Data (append Data newid))<br />                 (entmod Data)<br />         )<br /> <br />                 (command "dim")<br />                 (foreach Item ObjNameL<br />                         (command "Te" Item "H")<br />                 )<br />                 (command "exit")<br /> <br /> ;        (initget "Y N")<br /> ;        (setq KW (getkword "寸法値の位置も元に戻しますか？[はい(Y)/いいえ(N)]<Y>"))<br /> ;        (if (or (= KW "Y")(null KW))<br /> ;                (progn                (command "dim")<br /> ;                                        (foreach Item ObjNameL<br /> ;                                                (command "Te" Item "H")<br /> ;                                        )<br /> ;                                        (command "exit")<br /> ;                )<br /> ;        )<br /> <br />         (SD2056)<br />         (setq *error* nil)<br /> )<br /> (if (= SD:Lang "E")<br />         (princ "\n Command Name: SENPOTI_modosi \n")<br /> ;;        (princ "\n コマンド名：SENPOTI_modosi \n")<br /> )<br /> (defun SD1028 ()<br />   (setq OldCmdEcho (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (command "undo" "be")<br />   (setq OldOsmode (getvar "OSMODE"))<br />   (setq OldLayer (getvar "CLAYER"))<br />   (setq OldLType (getvar "CeLType"))<br />   (setq OldCeLWeight (getvar "CeLWeight"))<br />   (setq OldColor (getvar "CeColor"))<br />   (setq OldOrtho (getvar "ORTHOMODE"))<br />   (setq OldDStyle  (getvar "DIMSTYLE"))<br />   (setq OldExpert (getvar "Expert"))<br />   (setvar "EXPERT" 0)<br />   (setq Path_Lang "HKEY_CURRENT_USER\\Software\\SpeedDraftLT")<br />   (if (vl-registry-read Path_Lang "SD_Language" )<br />           (setq SD:Lang (vl-registry-read Path_Lang "SD_Language" ))<br />           (progn        (setq SD:Lang "J")<br />                           (vl-registry-write Path_Lang "SD_Language" "J")<br />           )<br />   )<br />   (princ)<br /> )<br /> ;********************************<br /> (defun SD2056 ()<br />   (setvar "OSMODE" OldOsmode)<br />   (command "undo" "end")<br />   (setvar "CLAYER" OldLayer)<br />   (setvar "CeLType" OldLType)<br />   (setvar "CeLWeight" OldCeLWeight)<br />   (setvar "CeColor" OldColor)<br />   (setvar "ORTHOMODE" OldOrtho)<br />   (setvar "Expert" OldExpert)<br />   (if (and (/= (getvar "DIMSTYLE") OldDStyle)(tblsearch "DIMSTYLE" OldDStyle))<br />           (command "-dimstyle" "Restore" OldDStyle)<br />   )<br />   (princ "\n (C)OffshoreCad&Management")<br />   (setvar "CMDECHO" OldCmdEcho)<br />   (princ)<br /> )<br /> <br /> ;********************************<br /> (defun *myerror* (msg)<br />         (setq *error* nil)<br />         (SD2056)<br />         (princ "\n Error in SpeedDraftLT")<br />         (princ)<br /> )<br /> (princ)

LLXXZZ

命令: DIMEDIT

输入标注编辑类型 [默认(H)/新建(N)/旋转(R)/倾斜(O)] <默认>: h
选择对象: 找到 1 个

xiabin68

yaokui25 发表于 2012-12-7 11:52

高手啊，这么快，，，

yaokui25

xiabin68 发表于 2012-12-7 13:29
高手啊，这么快，，，

有现成的，一直在用

123523058

yaokui25 发表于 2012-12-7 11:52

还有日语那 你在日企工作‘？？？？？？？？？？？？？？

yaokui25

123523058 发表于 2012-12-7 13:50
还有日语那 你在日企工作‘？？？？？？？？？？？？？？

嘿嘿~又何指示?
用的是日语版的cad

123523058

yaokui25 发表于 2012-12-7 14:37
嘿嘿~又何指示?
用的是日语版的cad

没啥 我以前在日企干过 呵呵 ~~  后来跳出来了 在国企干啦