[求助]：修改TEXT实体DXF码中72值问题

qjcpj

修改TEXT实体DXF码中72值，修改后无反应，请教如何处理?

zxq0220

程序是怎么写的？

cy956

dxf72和dxf73，肯定可以。
下面的程序是从明经通道来的，稍微加了内部函数，你可以参考。如果想直接用，可以去mjtd下载原程序

2. 
   
3. (defun C:wzq ;;;改字对齐方式;;;
   
4.        (/ E EN FH FV IN PT1 PT2 S XYZ-WZQ)
   
5.   (undo_begin)
   
6.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(0 4 4 32 0))
   
7.   (SETQ k-wzq(if k-wzq k-wzq "L"))
   
8.   (while (progn
   
9.            (prompt "\n选择要改 对齐方式 的TEXT,ATTDEF实体【不选＝退出】:")
   
10.            (setq s(ssget '((0 . "TEXT,ATTDEF")))))
    
11.     (setq xyz-wzq '("左(L)""中间(M)""右(R)""中心(C)""对齐(F)"
    
12.                     "左上(TL)""中上(TC)""右上(TR)"
    
13.                     "左中(ML)""正中(MC)""右中(MR)"
    
14.                     "左下(BL)""中下(BC)""右下(BR)")
    
15.           k-wzq(dos_combolist "----" "选择一种新的对齐方式" xyz-wzq (if k-wzq k-wzq "左(L)")))
    
16.     (cond
    
17.       ((= k-wzq "中间(M)") (setq fh 4 fv 0))
    
18.       ((= k-wzq "左(L)") (setq fh 0 fv 0))
    
19.       ((= k-wzq "中心(C)") (setq fh 1 fv 0))
    
20.       ((= k-wzq "右(R)") (setq fh 2 fv 0))
    
21.       ((= k-wzq "对齐(F)") (setq fh 4 fv 0))
    
22.       ((= k-wzq "左上(TL)")(setq fh 0 fv 3))
    
23.       ((= k-wzq "中上(TC)")(setq fh 1 fv 3))
    
24.       ((= k-wzq "右上(TR)")(setq fh 2 fv 3))
    
25.       ((= k-wzq "左中(ML)")(setq fh 0 fv 2))
    
26.       ((= k-wzq "正中(MC)")(setq fh 1 fv 2))
    
27.       ((= k-wzq "右中(MR)")(setq fh 2 fv 2))
    
28.       ((= k-wzq "左下(BL)")(setq fh 0 fv 1))
    
29.       ((= k-wzq "中下(BC)")(setq fh 1 fv 1))
    
30.       ((= k-wzq "右下(BR)")(setq fh 2 fv 1))
    
31.     )
    
32.     (setq in 0)
    
33.     (repeat (sslength s)
    
34.       (setq e(ssname s in)en(entget e)
    
35.             pt1(dxf 10 en) in(1+ in)
    
36.             en(subst (cons 72 fh)(assoc 72 en)en)
    
37.             en(subst (cons 73 fv)(assoc 73 en)en))
    
38.       (entmod en)
    
39.       (setq pt2 (dxf 10 (entget e)))
    
40.       (mapcar 'setvar '("pickbox""aperture""osmode") '(0 1 0))
    
41.       (command "_move" e "" "non" pt2 "non" pt1)
    
42.       (mapcar 'setvar '("pickbox""aperture""osmode") '(4 4 32))
    
43.     )
    
44.   )
    
45.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode")
    
46.           '(1 4 4 32 1))
    
47.   (undo_end)(princ)
    
48. )
    

<br /> (defun C:wzq ;;;改字对齐方式;;;<br />        (/ E EN FH FV IN PT1 PT2 S XYZ-WZQ)<br />   (undo_begin)<br />   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(0 4 4 32 0))<br />   (SETQ k-wzq(if k-wzq k-wzq "L"))<br />   (while (progn<br />            (prompt "\n选择要改 对齐方式 的TEXT,ATTDEF实体【不选＝退出】:")<br />            (setq s(ssget '((0 . "TEXT,ATTDEF")))))<br />     (setq xyz-wzq '("左(L)""中间(M)""右(R)""中心(C)""对齐(F)"<br />                     "左上(TL)""中上(TC)""右上(TR)"<br />                     "左中(ML)""正中(MC)""右中(MR)"<br />                     "左下(BL)""中下(BC)""右下(BR)")<br />           k-wzq(dos_combolist "----" "选择一种新的对齐方式" xyz-wzq (if k-wzq k-wzq "左(L)")))<br />     (cond<br />       ((= k-wzq "中间(M)") (setq fh 4 fv 0))<br />       ((= k-wzq "左(L)") (setq fh 0 fv 0))<br />       ((= k-wzq "中心(C)") (setq fh 1 fv 0))<br />       ((= k-wzq "右(R)") (setq fh 2 fv 0))<br />       ((= k-wzq "对齐(F)") (setq fh 4 fv 0))<br />       ((= k-wzq "左上(TL)")(setq fh 0 fv 3))<br />       ((= k-wzq "中上(TC)")(setq fh 1 fv 3))<br />       ((= k-wzq "右上(TR)")(setq fh 2 fv 3))<br />       ((= k-wzq "左中(ML)")(setq fh 0 fv 2))<br />       ((= k-wzq "正中(MC)")(setq fh 1 fv 2))<br />       ((= k-wzq "右中(MR)")(setq fh 2 fv 2))<br />       ((= k-wzq "左下(BL)")(setq fh 0 fv 1))<br />       ((= k-wzq "中下(BC)")(setq fh 1 fv 1))<br />       ((= k-wzq "右下(BR)")(setq fh 2 fv 1))<br />     )<br />     (setq in 0)<br />     (repeat (sslength s)<br />       (setq e(ssname s in)en(entget e)<br />             pt1(dxf 10 en) in(1+ in)<br />             en(subst (cons 72 fh)(assoc 72 en)en)<br />             en(subst (cons 73 fv)(assoc 73 en)en))<br />       (entmod en)<br />       (setq pt2 (dxf 10 (entget e)))<br />       (mapcar 'setvar '("pickbox""aperture""osmode") '(0 1 0))<br />       (command "_move" e "" "non" pt2 "non" pt1)<br />       (mapcar 'setvar '("pickbox""aperture""osmode") '(4 4 32))<br />     )<br />   )<br />   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode")<br />           '(1 4 4 32 1))<br />   (undo_end)(princ)<br /> )<br />

qjcpj

谢谢斑竹，我再试试。