[编程申请]：文字查找并缩放到对应的地方for r14

wujimmy

在r14版本下没有查找到文字并缩放到指定位置的软件
所以大家讨论一下怎么实现？？？

eachy

最初由 wujimmy 发布
[B]在r14版本下没有查找到文字并缩放到指定位置的软件
所以大家讨论一下怎么实现？？？ [/B]

1 查找文字 (ssget '((1 . string)))
2 然后用循环的方法把字 Move 到指定点并使用 Scale

wujimmy

我的意思不是移动文字，而是
找到文字以后，把窗口缩放到一定的大小，能够正好看到找到的文字
本来2000里面就用这个功能
但是我不能用2000的（盗版的不能用）

eachy

最初由 wujimmy 发布
[B]我的意思不是移动文字，而是
找到文字以后，把窗口缩放到一定的大小，能够正好看到找到的文字
本来2000里面就用这个功能
但是我不能用2000的（盗版的不能用） [/B]

用 textbox 求出文字的对角点， 然后 zoom w

wujimmy

斑竹回复帖子的速度真是快啊！
不错，还有textbox这个函数：
（下面是autocad r14中文版的帮助）

测量一个指定文本对象的尺寸，并返回围住该文本的一个矩形框的对角坐标

(textbox elist)

elist 参数是一个图元定义数据表，其格式与 entget 函数返回的表的格式相同。它定义的必须是一个文本对象。如果在 elist 表中定义文本参数（而不是文本本身）的那些域被省略，则使用当前值或缺省值。如果 textbox 函数调用成功，它返回一个包括两个点的表；否则它返回 nil。

textbox 函数可以接受的最小的表是文本本身：

(textbox '((1 . "Hello world.")))                可能返回 ((0.0 0.0 0.0) (0.8 0.2 0.0))

在这种情况下，textbox 函数将使用当前缺省值来为文本提供其余参数。

textbox 函数返回的点描述了文本对象的边框（假定该文本对象的插入点是 (0,0,0)，而它的旋转角度是 0）。通常由 textbox 函数返回的第一个子表是点 (0.0 0.0 0.0)，除非该文本对象是倾斜的、或者是垂直书写的、或者它包含的字符串中有下行字符（如 g 和 p）。第一个点表的值指定从文本的插入点到围住该文本的最小矩形的左下角的偏移量。第二个点表的值指定该矩形框的右上角。无论被测量文本的方向怎样，返回的两个点表总是描述围住文本的矩形框的左下角和右上角。

eachy

最初由 wujimmy 发布
[B]斑竹回复帖子的速度真是快啊！
不错，还有textbox这个函数：
（下面是autocad r14中文版的帮助）

测量一个指定文本对象的尺寸，并返回围住该文本的一个矩形框的对角坐标

(textbox elist)

elist 参数是一?.. [/B]

2. 
   
3. (defun c:test (/ str ss box e1 oldos)
   
4.   (if (and (setq str (getstring "\n查找字串: "))
   
5.            (/= str "")
   
6.       )
   
7.     (progn
   
8.       (setq oldos (getvar "osmode"))
   
9.       (setvar "osmode" 0)
   
10.       (setq ss (ssget (list (cons 1 str))))
    
11.       (if ss
    
12.         (progn
    
13.           (setq        e1  (ssname ss 0)
    
14.                 box (textbox (entget e1))
    
15.           )
    
16.           (command ".ucs" "e" e1)
    
17.           (command ".zoom" "w" (car box) (cadr box))
    
18.           (command ".ucs" "p")
    
19.         )
    
20.       )
    
21.       (setvar "osmode" oldos)
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

<br /> (defun c:test (/ str ss box e1 oldos)<br />   (if (and (setq str (getstring "\n查找字串: "))<br />            (/= str "")<br />       )<br />     (progn<br />       (setq oldos (getvar "osmode"))<br />       (setvar "osmode" 0)<br />       (setq ss (ssget (list (cons 1 str))))<br />       (if ss<br />         (progn<br />           (setq        e1  (ssname ss 0)<br />                 box (textbox (entget e1))<br />           )<br />           (command ".ucs" "e" e1)<br />           (command ".zoom" "w" (car box) (cadr box))<br />           (command ".ucs" "p")<br />         )<br />       )<br />       (setvar "osmode" oldos)<br />     )<br />   )<br />   (princ)<br /> )

tc405003

有个好用的LISP看一下是不是你想要的

2. 
   
3. (defun c:tc (/ chgtxt zoompt1 zoompt2 sstxt sstxtlen txtent1 txtins dwgscal
   
4.                      pt1 pt3 num embed zoomnext txtent1 txtstyl txtlay txtinspt
   
5.                      txt_elev txt_height txt_rotate txt_obliq txt_width txt_color
   
6.                      txt_2_chg txt_chg)
   
7.   (setq txt (getstring T "\nEnter text string to zoom to: "))
   
8.   (initget 1 "Y N")
   
9.   (setq embed (getkword "\nSearch for embedded strings? <Y or N>: "))
   
10.   (if (= embed "Y")
    
11.     (setq txt (strcat "*" txt "*"))
    
12.   )
    
13.   (setq zoompt1 (getvar "extmin"))
    
14.   (setq zoompt2 (getvar "extmax"))
    
15.   (setq search_list
    
16.     (list
    
17.       (cons 0 "text")
    
18.       (cons 1 txt)
    
19.     )
    
20.   )
    
21.   (if (/= (setq sstxt (ssget "X" search_list)) nil)
    
22.     (progn
    
23.       (setq sstxtlen (sslength sstxt))
    
24.       (alert (strcat "\nThere are " (itoa sstxtlen) " text entities meeting your criteria"))
    
25.       (setq
    
26.         txtent1 (entget (ssname sstxt 0))
    
27.         txtins (cdr (assoc '10 txtent1))
    
28.         dwgscal (getvar "ltscale")
    
29.         pt1 (list (- (car txtins) (* 1.0 dwgscal))
    
30.                   (- (cadr txtins) (* 1.0 dwgscal))
    
31.             )
    
32.         pt3 (list (+ (car txtins) (* 1.0 dwgscal))
    
33.                   (+ (cadr txtins) (* 1.0 dwgscal))
    
34.             )
    
35.       )
    
36.       (command "_zoom" "w" pt1 pt3)
    
37.       (initget 1 "T P N")
    
38.       (setq chgtxt (getkword "\nEdit Text, text Properties or Neither? <T P N>: "))
    
39.       (cond ((= chgtxt "T") (command "_ddedit" (ssname sstxt 0) ""))
    
40.             ((= chgtxt "P") (txt_prop))
    
41.             ((= chgtxt "N") (setq num 1))
    
42.       )
    
43.       (setq num 1)
    
44.       (if (> sstxtlen 1)
    
45.         (progn
    
46.           (initget 1 "Y N")
    
47.           (while (and (/= (setq zoomnext (getkword "\nZoom to next string? <Y or N>: ")) "N") (< num sstxtlen))
    
48.             (ssdel (ssname sstxt 0) sstxt)
    
49.             (setq
    
50.               txtent1 (entget (ssname sstxt 0))
    
51.               txtins (cdr (assoc '10 txtent1))
    
52.               dwgscal (getvar "ltscale")
    
53.               pt1 (list (- (car txtins) (* 1.0 dwgscal))
    
54.                         (- (cadr txtins) (* 1.0 dwgscal))
    
55.                   )
    
56.               pt3 (list (+ (car txtins) (* 1.0 dwgscal))
    
57.                         (+ (cadr txtins) (* 1.0 dwgscal))
    
58.                   )
    
59.             )
    
60.             (command "_zoom" "w" pt1 pt3)
    
61.             (initget 1 "T P N")
    
62.             (setq chgtxt (getkword "\nEdit Text, text Properties or Neither? <T P N>: "))
    
63.             (cond ((= chgtxt "T") (command "_ddedit" (ssname sstxt 0) ""))
    
64.                   ((= chgtxt "P") (txt_prop))
    
65.                   ((= chgtxt "N") (setq num 1))
    
66.             )
    
67.             (setq num (+ num 1))
    
68.             (initget 1 "Y N")
    
69.           )
    
70.         )
    
71.       )
    
72.       (command "_zoom" zoompt1 zoompt2)
    
73.     )
    
74.     (alert (strcat "\nThe text string ,"txt", does not exist in this drawing...  Sorry!!!"))
    
75.   )
    
76. )
    
77. 
    
78. (Defun txt_prop ()
    
79.   (setq
    
80.     txt_styl (cdr (assoc '7 (entget (ssname sstxt 0))))
    
81.     txt_lay (cdr (assoc '8 (entget (ssname sstxt 0))))
    
82.     txt_inspt (cdr (assoc '10 (entget (ssname sstxt 0))))
    
83.     txt_elev (cdr (assoc '38 (entget (ssname sstxt 0))))
    
84.     txt_height (cdr (assoc '40 (entget (ssname sstxt 0))))
    
85.     txt_width (cdr (assoc '41 (entget (ssname sstxt 0))))
    
86.     txt_rotate (cdr (assoc '50 (entget (ssname sstxt 0))))
    
87.     txt_obliq (cdr (assoc '51 (entget (ssname sstxt 0))))
    
88.     txt_color (cdr (assoc '62 (entget (ssname sstxt 0))))
    
89.   )
    
90.   (prompt (strcat "\nCurrent text Style is :           " txt_styl))
    
91.   (prompt (strcat "\nCurrent text Layer is :           " txt_lay))
    
92.   (prompt (strcat "\nCurrent text Insertion point:     "
    
93.                   (if (< (car txt_inspt) 0.0)
    
94.                     (strcat "-" (rtos (abs (car txt_inspt)) 2 4))
    
95.                     (rtos (car txt_inspt) 2 4)
    
96.                   )
    
97.                   ","
    
98.                   (if (< (cadr txt_inspt) 0.0)
    
99.                     (strcat "-" (rtos (abs (cadr txt_inspt)) 2 4))
    
100.                     (rtos (cadr txt_inspt) 2 4)
     
101.                   )
     
102.                   ","
     
103.                   (if (< (nth 2 txt_inspt) 0.0)
     
104.                     (strcat "-" (rtos (abs (nth 2 txt_inspt)) 2 4))
     
105.                     (rtos (nth 2 txt_inspt) 2 4)
     
106.                   )
     
107.           )
     
108.   )
     
109.   (if (/= txt_elev nil)
     
110.     (prompt (strcat "\nCurrent text Elevation is :       " (rtos txt_elev 2 4)))
     
111.     (prompt "\nCurrent text elevation is :       0")
     
112.   )
     
113.   (prompt (strcat "\nCurrent text Height is :          " (rtos txt_height 2 4)))
     
114.   (prompt (strcat "\nCurrent text Width is :           " (rtos txt_width 2 4)))
     
115.   (prompt (strcat "\nCurrent text Rotation angle is :  " (rtos txt_rotate 2 4)))
     
116.   (prompt (strcat "\nCurrent text Obliquing angle is : " (rtos txt_obliq 2 4)))
     
117.   (if (/= txt_color nil)
     
118.     (prompt (strcat "\nCurrent text Color is :           " (rtos txt_color 2 4)))
     
119.     (prompt "\nCurrent text color is :           Bylayer")
     
120.   )
     
121.   (setq txt_2_chg 1)
     
122.   (while (/= txt_2_chg "Q")
     
123.   (initget "S L I E H W R O C Q")
     
124.   (setq txt_2_chg (getkword "\nChange which property -
     
125.             Style,Layer,Insertion point,Elev,Height,Width,Rotation,Oblique angle,Color, or Quit: "))  
     
126.   (cond
     
127.     ((= txt_2_chg "S")
     
128.        (command "style" "?" "*")
     
129.        (setq txt_styl (getstring "\nWhich text style do you wish to use? : "))
     
130.        (txt_2_make)
     
131.     )
     
132.     ((= txt_2_chg "L")
     
133.        (alert "\nLook for the layer you wish")
     
134.        (command "_ddlmodes")
     
135.        (setq txt_lay (getstring "\nWhich text layer do you wish to use? : "))
     
136.        (txt_2_make)
     
137.     )
     
138.     ((= txt_2_chg "I")
     
139.        (setq txt_inspt (getpoint "\nPick new text insertion point: "))
     
140.        (txt_2_make)
     
141.     )
     
142.     ((= txt_2_chg "E")
     
143.        (setq txt_elev (getreal "\nEnter the text elevation you wish to use: "))
     
144.        (txt_2_make)
     
145.     )
     
146.     ((= txt_2_chg "H")
     
147.        (setq txt_height (getreal "\nEnter the text height you wish to use: "))
     
148.        (txt_2_make)
     
149.     )
     
150.     ((= txt_2_chg "W")
     
151.        (setq txt_width (getreal "\nEnter the text width you wish to use: "))
     
152.        (txt_2_make)
     
153.     )
     
154.     ((= txt_2_chg "R")
     
155.        (setq txt_rotate (getangle "\nEnter or pick the text rotation you wish to use: "))
     
156.        (txt_2_make)
     
157.     )
     
158.     ((= txt_2_chg "O")
     
159.        (setq txt_obliq (* (/ (getreal "\nEnter the text obliquing angle you wish to use: ") 180.0) PI))
     
160.        (txt_2_make)
     
161.     )
     
162.     ((= txt_2_chg "C")
     
163.        (setq txt_color (getreal "\nEnter the number for the text color you wish to use: "))
     
164.        (txt_2_make)
     
165.     )
     
166.   )
     
167.   )
     
168. )
     
169. 
     
170. (defun txt_2_make ()
     
171.   (setq txt_chg (entget (ssname sstxt 0)))
     
172.   (setq txt_chg (subst (cons 7 txt_styl) (assoc 7 txt_chg) txt_chg))
     
173.   (entmod txt_chg)
     
174.   (setq txt_chg (entget (ssname sstxt 0)))
     
175.   (setq txt_chg (subst (cons 8 txt_lay) (assoc 8 txt_chg) txt_chg))
     
176.   (entmod txt_chg)
     
177.   (setq txt_chg (entget (ssname sstxt 0)))
     
178.   (setq txt_chg (subst (cons 10 txt_inspt) (assoc 10 txt_chg) txt_chg))
     
179.   (entmod txt_chg)
     
180.   (if (/= txt_elev nil)
     
181.     (progn
     
182.       (setq txt_chg (entget (ssname sstxt 0)))
     
183.       (setq txt_chg (subst (cons 38 txt_elev) (assoc 38 txt_chg) txt_chg))
     
184.       (entmod txt_chg)
     
185.     )
     
186.   )
     
187.   (setq txt_chg (entget (ssname sstxt 0)))
     
188.   (setq txt_chg (subst (cons 40 txt_height) (assoc 40 txt_chg) txt_chg))
     
189.   (entmod txt_chg)
     
190.   (setq txt_chg (entget (ssname sstxt 0)))
     
191.   (setq txt_chg (subst (cons 41 txt_width) (assoc 41 txt_chg) txt_chg))
     
192.   (entmod txt_chg)
     
193.   (setq txt_chg (entget (ssname sstxt 0)))
     
194.   (setq txt_chg (subst (cons 50 txt_rotate) (assoc 50 txt_chg) txt_chg))
     
195.   (entmod txt_chg)
     
196.   (setq txt_chg (entget (ssname sstxt 0)))
     
197.   (setq txt_chg (subst (cons 51 txt_obliq) (assoc 51 txt_chg) txt_chg))
     
198.   (entmod txt_chg)
     
199.   (if (/= txt_color nil)
     
200.     (progn
     
201.       (setq txt_chg (entget (ssname sstxt 0)))
     
202.       (setq txt_chg (subst (cons 62 txt_color) (assoc 62 txt_color) txt_chg))
     
203.       (entmod txt_chg)
     
204.     )
     
205.   )
     
206. )

<br /> (defun c:tc (/ chgtxt zoompt1 zoompt2 sstxt sstxtlen txtent1 txtins dwgscal<br />                      pt1 pt3 num embed zoomnext txtent1 txtstyl txtlay txtinspt<br />                      txt_elev txt_height txt_rotate txt_obliq txt_width txt_color<br />                      txt_2_chg txt_chg)<br />   (setq txt (getstring T "\nEnter text string to zoom to: "))<br />   (initget 1 "Y N")<br />   (setq embed (getkword "\nSearch for embedded strings? <Y or N>: "))<br />   (if (= embed "Y")<br />     (setq txt (strcat "*" txt "*"))<br />   )<br />   (setq zoompt1 (getvar "extmin"))<br />   (setq zoompt2 (getvar "extmax"))<br />   (setq search_list<br />     (list<br />       (cons 0 "text")<br />       (cons 1 txt)<br />     )<br />   )<br />   (if (/= (setq sstxt (ssget "X" search_list)) nil)<br />     (progn<br />       (setq sstxtlen (sslength sstxt))<br />       (alert (strcat "\nThere are " (itoa sstxtlen) " text entities meeting your criteria"))<br />       (setq<br />         txtent1 (entget (ssname sstxt 0))<br />         txtins (cdr (assoc '10 txtent1))<br />         dwgscal (getvar "ltscale")<br />         pt1 (list (- (car txtins) (* 1.0 dwgscal))<br />                   (- (cadr txtins) (* 1.0 dwgscal))<br />             )<br />         pt3 (list (+ (car txtins) (* 1.0 dwgscal))<br />                   (+ (cadr txtins) (* 1.0 dwgscal))<br />             )<br />       )<br />       (command "_zoom" "w" pt1 pt3)<br />       (initget 1 "T P N")<br />       (setq chgtxt (getkword "\nEdit Text, text Properties or Neither? <T P N>: "))<br />       (cond ((= chgtxt "T") (command "_ddedit" (ssname sstxt 0) ""))<br />             ((= chgtxt "P") (txt_prop))<br />             ((= chgtxt "N") (setq num 1))<br />       )<br />       (setq num 1)<br />       (if (> sstxtlen 1)<br />         (progn<br />           (initget 1 "Y N")<br />           (while (and (/= (setq zoomnext (getkword "\nZoom to next string? <Y or N>: ")) "N") (< num sstxtlen))<br />             (ssdel (ssname sstxt 0) sstxt)<br />             (setq<br />               txtent1 (entget (ssname sstxt 0))<br />               txtins (cdr (assoc '10 txtent1))<br />               dwgscal (getvar "ltscale")<br />               pt1 (list (- (car txtins) (* 1.0 dwgscal))<br />                         (- (cadr txtins) (* 1.0 dwgscal))<br />                   )<br />               pt3 (list (+ (car txtins) (* 1.0 dwgscal))<br />                         (+ (cadr txtins) (* 1.0 dwgscal))<br />                   )<br />             )<br />             (command "_zoom" "w" pt1 pt3)<br />             (initget 1 "T P N")<br />             (setq chgtxt (getkword "\nEdit Text, text Properties or Neither? <T P N>: "))<br />             (cond ((= chgtxt "T") (command "_ddedit" (ssname sstxt 0) ""))<br />                   ((= chgtxt "P") (txt_prop))<br />                   ((= chgtxt "N") (setq num 1))<br />             )<br />             (setq num (+ num 1))<br />             (initget 1 "Y N")<br />           )<br />         )<br />       )<br />       (command "_zoom" zoompt1 zoompt2)<br />     )<br />     (alert (strcat "\nThe text string ,"txt", does not exist in this drawing...  Sorry!!!"))<br />   )<br /> )<br /> <br /> (Defun txt_prop ()<br />   (setq<br />     txt_styl (cdr (assoc '7 (entget (ssname sstxt 0))))<br />     txt_lay (cdr (assoc '8 (entget (ssname sstxt 0))))<br />     txt_inspt (cdr (assoc '10 (entget (ssname sstxt 0))))<br />     txt_elev (cdr (assoc '38 (entget (ssname sstxt 0))))<br />     txt_height (cdr (assoc '40 (entget (ssname sstxt 0))))<br />     txt_width (cdr (assoc '41 (entget (ssname sstxt 0))))<br />     txt_rotate (cdr (assoc '50 (entget (ssname sstxt 0))))<br />     txt_obliq (cdr (assoc '51 (entget (ssname sstxt 0))))<br />     txt_color (cdr (assoc '62 (entget (ssname sstxt 0))))<br />   )<br />   (prompt (strcat "\nCurrent text Style is :           " txt_styl))<br />   (prompt (strcat "\nCurrent text Layer is :           " txt_lay))<br />   (prompt (strcat "\nCurrent text Insertion point:     " <br />                   (if (< (car txt_inspt) 0.0)<br />                     (strcat "-" (rtos (abs (car txt_inspt)) 2 4))<br />                     (rtos (car txt_inspt) 2 4)<br />                   )<br />                   ","<br />                   (if (< (cadr txt_inspt) 0.0)<br />                     (strcat "-" (rtos (abs (cadr txt_inspt)) 2 4))<br />                     (rtos (cadr txt_inspt) 2 4)<br />                   )<br />                   ","<br />                   (if (< (nth 2 txt_inspt) 0.0)<br />                     (strcat "-" (rtos (abs (nth 2 txt_inspt)) 2 4))<br />                     (rtos (nth 2 txt_inspt) 2 4)<br />                   )<br />           )<br />   )<br />   (if (/= txt_elev nil)<br />     (prompt (strcat "\nCurrent text Elevation is :       " (rtos txt_elev 2 4)))<br />     (prompt "\nCurrent text elevation is :       0")<br />   )<br />   (prompt (strcat "\nCurrent text Height is :          " (rtos txt_height 2 4)))<br />   (prompt (strcat "\nCurrent text Width is :           " (rtos txt_width 2 4)))<br />   (prompt (strcat "\nCurrent text Rotation angle is :  " (rtos txt_rotate 2 4)))<br />   (prompt (strcat "\nCurrent text Obliquing angle is : " (rtos txt_obliq 2 4)))<br />   (if (/= txt_color nil)<br />     (prompt (strcat "\nCurrent text Color is :           " (rtos txt_color 2 4)))<br />     (prompt "\nCurrent text color is :           Bylayer")<br />   )<br />   (setq txt_2_chg 1)<br />   (while (/= txt_2_chg "Q")<br />   (initget "S L I E H W R O C Q")<br />   (setq txt_2_chg (getkword "\nChange which property - <br />             Style,Layer,Insertion point,Elev,Height,Width,Rotation,Oblique angle,Color, or Quit: "))  <br />   (cond<br />     ((= txt_2_chg "S")<br />        (command "style" "?" "*")<br />        (setq txt_styl (getstring "\nWhich text style do you wish to use? : "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "L")<br />        (alert "\nLook for the layer you wish")<br />        (command "_ddlmodes")<br />        (setq txt_lay (getstring "\nWhich text layer do you wish to use? : "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "I")<br />        (setq txt_inspt (getpoint "\nPick new text insertion point: "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "E")<br />        (setq txt_elev (getreal "\nEnter the text elevation you wish to use: "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "H")<br />        (setq txt_height (getreal "\nEnter the text height you wish to use: "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "W")<br />        (setq txt_width (getreal "\nEnter the text width you wish to use: "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "R")<br />        (setq txt_rotate (getangle "\nEnter or pick the text rotation you wish to use: "))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "O")<br />        (setq txt_obliq (* (/ (getreal "\nEnter the text obliquing angle you wish to use: ") 180.0) PI))<br />        (txt_2_make)<br />     )<br />     ((= txt_2_chg "C")<br />        (setq txt_color (getreal "\nEnter the number for the text color you wish to use: "))<br />        (txt_2_make)<br />     )<br />   )<br />   )<br /> )<br /> <br /> (defun txt_2_make ()<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 7 txt_styl) (assoc 7 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 8 txt_lay) (assoc 8 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 10 txt_inspt) (assoc 10 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (if (/= txt_elev nil)<br />     (progn<br />       (setq txt_chg (entget (ssname sstxt 0)))<br />       (setq txt_chg (subst (cons 38 txt_elev) (assoc 38 txt_chg) txt_chg))<br />       (entmod txt_chg)<br />     )<br />   )<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 40 txt_height) (assoc 40 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 41 txt_width) (assoc 41 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 50 txt_rotate) (assoc 50 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (setq txt_chg (entget (ssname sstxt 0)))<br />   (setq txt_chg (subst (cons 51 txt_obliq) (assoc 51 txt_chg) txt_chg)) <br />   (entmod txt_chg)<br />   (if (/= txt_color nil)<br />     (progn<br />       (setq txt_chg (entget (ssname sstxt 0)))<br />       (setq txt_chg (subst (cons 62 txt_color) (assoc 62 txt_color) txt_chg))<br />       (entmod txt_chg)<br />     )<br />   )<br /> )

coolzhb

李国杰老师编的asde中命令tsr就是你要的命令！

wujimmy

最初由 coolzhb 发布
[B]李国杰老师编的asde中命令tsr就是你要的命令！ [/B]

我用的就是李国杰老师（是不是哪个学校的老师啊？介绍一下）的asdehk.arx
不过里面好像没有这个命令啊！

coolzhb

最初由 wujimmy 发布
[B]
我用的就是李国杰老师（是不是哪个学校的老师啊？介绍一下）的asdehk.arx
不过里面好像没有这个命令啊！ [/B]

你得安装李国杰老师的asde软件才有tsr命令，不是拷其中的一个文件asdehk.arx，是一个cad平台上的二次开发软件，在下载中心有下载的！