[LISP函数]：请问怎么办到更改文字对齐点，且文字仍在原位置

stgpmin

用LISP写的话需要用到什么函数??
或者已有人写出来??

cy956

版本n多.这个是明经的版本,我加了doslib.供参考.

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

<br /> (defun C:wzq (/ E EN FH FV IN PT1 PT2 S XYZ-WZQ);;;改TEXT,ATTDEF对齐方式;;;<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 "--by陈勇--" "选择一种新的对齐方式" 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 /> <br />

它山之石

justifytext


;;如果不是左对齐方式，改为左对齐方式
  (if (or (/= (cdr (assoc 72 el1)) 0)
          (/= (cdr (assoc 73 el1)) 0)
      ) ;_ 结束or
    (command "justifytext" ent1 "" "l")
  ) ;_ 结束if

.....................

fsxm

这个很好搞定的吧？
管你什么对齐一种方法就搞定:
先求出最外框box左下角
更新对齐点
再求出最外框box左下角
以两点左下角点差平移插入点

hhc_1

试了一下 justifytext命令可以改变对齐方式,而文字位置不变

stgpmin

斑竹一楼的程序函数怪怪的  dos_combolist     没有看过这个函数，   是需要特别的文件吗   执行不出来，求BOX的函数是哪个，fsxm大大可以叙述详细一点吗，感激

感谢五楼的楼主，我知道怎么改了，原來這個指令可以達成

qjcpj

最初由 stgpmin 发布
[B]斑竹一楼的程序函数怪怪的  dos_combolist     没有看过这个函数，是需要特别的文件吗...[/B]

加载doslib.arx文件后方能使用dos_combolist 等函数！

stormorwind

终于看到了，原来DOSLIB.ARX是这样用的啊。。。。